Question

好吧，假设我有示例文本文件，其中包含一些逗号分隔的值，如下所示：

-1,0,3,0,5,4,6,7,8,9

我想在VB 6.0中创建一个打开该文件的程序，读取值并将它们存储在文本框中显示的变量中（例如）：

Name: [ Value -1 ]
Nationality: [ Value 0 ]
Experience: [ Value 3 ]

依旧......

因此，当我在程序文本框中出现这些值并点击保存文件时 - 它会使用新值保存文件。就这么简单。谢谢你们！

Answer 1

（注意：这个答案假设文本文件只包含一行。）

首先，您需要阅读文本文件：

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

接下来，您需要用逗号分隔rawData：

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。

Answer 2

如果您执行此操作，文件将自动以逗号分隔：

Write #filenumer Value1, Value2, Value3...

然后你可以使用Input＃一次获得一个值或Line Input来一次获取所有值。

如何在VB 6.0中读取和写入逗号分隔的文本值到文件

2 个答案: