Вопрос № 38530: Здравствуйте, уважаемые эксперты.
Помогите, пожалуйста, решить следующую задачу:
Имеется текстовый файл с реквизитами организаций. Информация внесена построчно без пробелов.
1. В первой строке название организации заключается между двух ...
Вопрос № 38.530
Здравствуйте, уважаемые эксперты.
Помогите, пожалуйста, решить следующую задачу:
Имеется текстовый файл с реквизитами организаций. Информация внесена построчно без пробелов.
1. В первой строке название организации заключается между двух запятых слева и двух запятых справа. Как можно извлечь из строки только эту информацию (при условии, что заранее неизвестно количество символов в названии) ?
2. Как перейти после чтения первой строки сразу к четвёртой ?
Если с программой не выгорит, придется данные по хреновой туче организаций вносить дедовским способом - пером на бумаге. Не хотелось бы!
1) Если вся строка в nStr, то выделить часть, ограниченную описанным в вопросе образом, можно следующим образом - см.приложение
2) Чтобы прочитать 4-ую строку из текстового файла после первой, нужно повторить чтение 3 раза после чтения первой стороки.
Приложение:
Ответ отправил: Genyaa (статус: 2-ой класс)
Ответ отправлен: 26.03.2006, 12:47
Отвечает: Godal
Здравствуйте, Кокорич Вадим Леонидович!
Долго и нудно.
Как я понял файл имеет следующую структуру:
,,НазваниеОрганизации1,,
Реквизиты1Организации1
Реквизиты2Организации1
,,НазваниеОрганизации2,,
Реквизиты1Организации2
Реквизиты2Организации2
и т.д.
Сделаем проще.
У VB, как и у VBA есть функция Spilt().
Пишем код
Sub FileWorkHard()
Dim arrDataFromFile() As String
Dim strZapt As String
