csv文件，删除csv文件的某一列，有什么办法吗，多谢了

Question

csv文件，删除csv文件的某一列，有什么办法吗，多谢了

Answer 1

csv文件，删除csv文件的某一列，有什么办法吗，多谢了，
急！

Answer 2

用Ultra Edit 有删除列的功能

Answer 3

用filesystemobject读进来，然后split拆掉，然后写回去，比如你打算删掉第3列的话，就不把第三列写回就好了大概逻辑就是这样了

Answer 4

csv实际上就是文本文件，不过数据之间是用逗号隔开的。可以用open直接打开，比如想删掉第3列，
dim s As String,ss() as string,t as string
open "d:\aaa.csv" for input as #1
Do While Not EOF(1)
   Line Input #1, s
   ss=split(s,",")
   ss(2)=""  '删掉第3列的值
   s=join(ss,",")
   t=t+s+vbcrlf
loop
close #1
open "d:\new.csv" for output as #1
print #1,t
close #1

Answer 5

'先引用excel *.0 object library  Public ex   As Excel.Application
  Public wb   As Excel.Workbook
  Public sh   As Excel.Worksheet
Private Sub Command3_Click()
  Dim i As Long, A As Long
  Dim arr() As String, str As String, Count As Long
  Dim Result As String
    Set ex = CreateObject("Excel.Application")
    'Set wb = ex.Workbooks.Add '新建excel
    Set wb = ex.Workbooks.Open("c:\file.csv")  ' 你的A文件
    Set sh = wb.Sheets(1)   '第一个工作表
    
    
       sh.Columns("C:C").Select              '第三列
       ex.Selection.Delete Shift:=xlToLeft
       
    wb.Close SaveChanges:=True    '直接关闭
    ex.Quit
    MsgBox "删除完毕"
     'ex.Visible = True
    Set ex = Nothing
    Set wb = Nothing
    Set sh = Nothing
End Sub

Answer 6

csv文件是很规范的逗号分隔的文本文件，用创建excel来做有点大材小用，为了这个还得装个excel。