Question

如何用vb修改csv文件

Answer 1

写得有点粗糙，不好意思了

Dim TextLine
Dim TextString
Dim SplitStr As Variant

Open App.Path & "\123.csv" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
' Debug.Print TextLine ' 在调试窗口中显示数据。
If TextString = "" Then
TextString = TextLine
Else
TextString = TextString & "," & TextLine
End If
Loop
Close #1 ' 关闭文件。
SplitStr = Split(TextString, ",")

Answer 2

需要用vb实现对一个CSV文件的分析，对每一行的数据进行判断，若符合一定条件可以呀。以的行方式来读文本就可以了。你读一行然后分析一行，如果符合则