Вставить в строку 3 переменных - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день, уважаемый пользователи. Назрела на работе проблема с работой на крупным документом. Задача стоит такая: Есть строка:
<Поставка П000000000018="ДАТА" П000000000019="НОМЕР" П000000000020="" П000000000021="ОБЪЕМ" />
И есть 3 txt файла (дата, номер и объем) в каждом из которых построчно имеются данные. Необходимо в имеющуюся строку вставить эта данные. Т.е. взяли строку заполнили ее переменными дата из файла дата.тхт, номер из файла номер.тхт и объем из файла объем.тхт и начали заполнять подобным образом следующую. Проблема - как в каждом цикле (в котором идет запись 3х переменных в строку)- открыть 3 файла и забрать построчно данные из файлов) и чтобы в каждом новом цикле строка читалась следующая.

Решение задачи: «Вставить в строку 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы