Вставить в строку 3 переменных - VB
Формулировка задачи:
Добрый день, уважаемый пользователи.
Назрела на работе проблема с работой на крупным документом.
Задача стоит такая:
Есть строка:
И есть 3 txt файла (дата, номер и объем) в каждом из которых построчно имеются данные.
Необходимо в имеющуюся строку вставить эта данные.
Т.е. взяли строку заполнили ее переменными дата из файла дата.тхт, номер из файла номер.тхт и объем из файла объем.тхт и начали заполнять подобным образом следующую.
Проблема - как в каждом цикле (в котором идет запись 3х переменных в строку)- открыть 3 файла и забрать построчно данные из файлов) и чтобы в каждом новом цикле строка читалась следующая.
<Поставка П000000000018="ДАТА" П000000000019="НОМЕР" П000000000020="" П000000000021="ОБЪЕМ" />
Решение задачи: «Вставить в строку 3 переменных»
textual
Листинг программы
Open sPytData For Input As Numb Open s2 For Input As Numb2 Open s3 For Input As Numb3 Do While Not (EOF(Numb) Or EOF(Numb2) Or EOF(Numb3)) Line Input #Numb, sdata Line Input #Numb2, ttn Line Input #Numb3, deka Text1.Text = Text1.Text + "<Поставка П000000000018=""" + sdata + """ П000000000019=""" + ttn + """ П000000000020="""""" П000000000021=""" + deka + """ />" & vbNewLine Loop Reset 'закрыть все открытые файлы End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д