如何在VB 6.0中读写逗号分隔的文本值

(注意:这个答案假设文本文件只包含一行。)

首先,您需要读取文本文件:

Dim rawData as string

Dim sFileText as String
Dim FileNo as Integer
FileNo = FreeFile
Open "C:\test.txt" For Input As #FileNo 'you should change the file path
Line Input #FileNo, sFileText 'read the whole line
rawData = sFileText 'store the first line of the text file in 'rawData'
Close #FileNo

接下来,需要用逗号分割原始数据:

Dim data() as string 'an array that will hold each value
data = Split(rawData, ",") 'split 'rawData' with a comma as delimiter

现在,第一个值存储在数据(0)中,第二个值存储在数据(1)中,以此类推。

至于“保存文件”按钮,您可以执行以下操作:

Dim newData as String
newData = data(0) & "," & data(1) & "," & data(2) 'etc.

然后 write it to a file .

Write #filenumer Value1, Value2, Value3...