VPF::Чтение из текстового файла с разделителями

Дмитрий

Дата 23.7.2003, 06:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Имеется текстовый файл - несколько строк, в каждой строке 5 колонок разделенных #
Как считать в отдельные переменные каждый из столбцов например (Иванов # 40 лет # тел. 40-89-44)
Иванов надо считать в переменную ФИО, 40 лет в ВОЗРАСТ и т.д.
и так по каждой строке ??

Plamenk

Дата 23.7.2003, 08:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3

Такой команды, по-моему, нет. Но можно считывать строку, а потом с помощью InStr() искать символ "#" и вырезать часть строки (Left() или Right()). И так до тех пор пока InStr() не вернёт 0.

-Mikle-

Дата 24.7.2003, 06:30 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Я бы сделал так:

Код


.......
dim sTmp() as String
dim strExpr as String
strExpr="Иванов # 40 лет # тел. 40-89-44"
sTmp=Split(strExpr,"#")
'если не знаешь число колонок, то Ubound(sTmp) вернет тебе индекс последнего элемента
sFIO=sTmp(0)
sAge=sTmp(1)
sTel=sTmp(2)
........

И есть обратная функция:

Код


sStr=Join(sArray,"~")
в качестве разделителя - любой символ или последовательность символов, которые не встречаются в строке (чтоб потом, при разделении, не было ошибок)

Если что, пиши: [email protected]

--------------------

Если тебе плюют в спину, значит ты впереди...

Shekspir

Дата 26.7.2003, 07:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 22.6.2003

Репутация: нет
Всего: нет

Все это слишком сложно.
Не проще ли воспользоваться стардантными функциями READ/WRITE

Открываем файл

Код

Open "c:\test.txt" for output as #1

Затем записываем в файл необходимые данные:

Код

Write #1,"Иванов","тел 123-23-45","......"

Затем всё это легко читается:

Код

Read #1,string1,string2,string3

В переменных String№ будут все записи.

--------------------

Убить Билла 1, 2, 95, 98, 98SE, 2000, ME, XP....

-Mikle-

Дата 26.7.2003, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Цитата

Не проще ли воспользоваться стардантными функциями READ/WRITE

Было бы проще в случаях если данные в файл записывались этой же прогой или формат файла был типа: "Иванов","40 лет","тел. 40-89-44" , но формат: (Иванов # 40 лет # тел. 40-89-44) то есть с разделителем "#", поэтому READ не прочитает правильно. Хотя если Дмитрий сам создает файл, то эти функции идеальный вариант.

Код

WRITE #1, varStringType, varNumType, varDateTimeType, varBooleanType

запишет в файл строку вида:
"строковое значение", 0, #01/01/2003#, False
а оператор

Код

READ #1, varStringType, varNumType, varDateTimeType, varBooleanType

корректно все прочитает. adv/76.gif

--------------------

Если тебе плюют в спину, значит ты впереди...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »