|
Платные хостинги
Раскрутка сайта
Книги по программированию
Чтение из текстового файла с разделителями
- Такой команды, по-моему, нет. Но можно считывать строку, а потом с помощью InStr() искать символ "#" и вырезать часть строки (Left() или Right()). И так до тех пор пока InStr() не вернёт 0.
- Я бы сделал так:Код .......dim sTmp() as Stringdim strExpr as StringstrExpr="Иванов # 40 лет # тел. 40-89-44"sTmp=Split(strExpr,"#")'если не знаешь число колонок, то Ubound(sTmp) вернет тебе индекс последнего элементаsFIO=sTmp(0)sAge=sTmp(1)sTel=sTmp(2)........highlightSyntax('vbyOGI4Y','vb');И есть обратная функция:Код sStr=Join(sArray,"~")в качестве разделителя - любой символ или последовательность символов, которые не встречаются в строке (чтоб потом, при разделении, не было ошибок)highlightSyntax('vbQ2MmFjZ','vb');Если что, пиши: mic7581@mail.ru
- Все это слишком сложно.Не проще ли воспользоваться стардантными функциями READ/WRITEОткрываем файлКод Open "c:\test.txt" for output as #1highlightSyntax('vbY5NWNk','vb');Затем записываем в файл необходимые данные:Код Write #1,"Иванов","тел 123-23-45","......"highlightSyntax('vbMTczODA','vb');Затем всё это легко читается:Код Read #1,string1,string2,string3highlightSyntax('vbGQwNzk5Y','vb');В переменных String№ будут все записи.
- Было бы проще в случаях если данные в файл записывались этой же прогой или формат файла был типа: "Иванов","40 лет","тел. 40-89-44" , но формат: (Иванов # 40 лет # тел. 40-89-44) то есть с разделителем "#", поэтому READ не прочитает правильно. Хотя если Дмитрий сам создает файл, то эти функции идеальный вариант.Код WRITE #1, varStringType, varNumType, varDateTimeType, varBooleanTypehighlightSyntax('vbYxNTZi','vb');запишет в файл строку вида: "строковое значение", 0, #01/01/2003#, Falseа операторКод READ #1, varStringType, varNumType, varDateTimeType, varBooleanTypehighlightSyntax('vbyZDI3M2','vb');корректно все прочитает.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
