Как читать и записывать текстовые значения с разделителями-запятыми в файл в VB 6.0

Хорошо, скажем, у меня есть пример текстового файла, который включает некоторые значения с разделителями-запятыми, например:

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

И я хочу сделать программу в VB 6.0, которая открывает этот файл, читает значения и сохраняет их в переменных, которые отображаются в текстовых полях, например так (пример):

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

и так далее ..

Поэтому, когда я помещаю эти значения в текстовые поля программы и нажимаю «Сохранить файл», он сохраняет файл с новыми значениями. Это просто. Спасибо вам, ребята !


comma delimiter vb6 read-write
person Shadow Moon    schedule 16.10.2017    source источник
comment
Не могли бы вы опубликовать свой код, отредактировав этот вопрос?   -  person Dima Kozhevin    schedule 16.10.2017
comment
Извините, но у меня нет кода. Вот почему я спрашиваю, как это делается. Я все еще ищу его, но очень трудно найти что-то о VB 6.0.   -  person Shadow Moon    schedule 16.10.2017
comment
Это не должно быть сложно, так как каждая легальная копия VB6 поставляется с электронной документацией на компакт-дисках MSDN, включенных в пакет. Отсутствие компакт-дисков MSDN означает нелегальную копию.   -  person Bob77    schedule 16.10.2017

Ответы (2)


arrow_upward
1
arrow_downward

(Примечание: этот ответ предполагает, что текстовый файл содержит только одну строку.)

Во-первых, вам нужно будет прочитать текстовый файл:

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.

Затем запишите его в файл.

person user7391836    schedule 16.10.2017
comment
Работал как шарм. Благодарю вас! - person Shadow Moon; 18.10.2017

arrow_upward
0
arrow_downward

Файл будет автоматически разделен запятыми, если вы сделаете это:

Write #filenumer Value1, Value2, Value3...

Затем вы можете использовать Input #, чтобы получить одно значение за раз, или Line Input, чтобы получить их все сразу.

person ScytheRider    schedule 19.10.2017