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

@a1eX28 · Регистрация: 21.04.2014

Студворк — интернет-сервис помощи студентам

Добрый день, уважаемый пользователи.
Назрела на работе проблема с работой на крупным документом.
Задача стоит такая:
Есть строка:

<Поставка П000000000018="ДАТА" П000000000019="НОМЕР" П000000000020="" П000000000021="ОБЪЕМ" />

И есть 3 txt файла (дата, номер и объем) в каждом из которых построчно имеются данные.

Необходимо в имеющуюся строку вставить эта данные.
Т.е. взяли строку заполнили ее переменными дата из файла дата.тхт, номер из файла номер.тхт и объем из файла объем.тхт и начали заполнять подобным образом следующую.

Проблема - как в каждом цикле (в котором идет запись 3х переменных в строку)- открыть 3 файла и забрать построчно данные из файлов) и чтобы в каждом новом цикле строка читалась следующая.

@Казанский · 21.04.2014, 14:01

a1eX28,
1. Открыть файлы.
2. В цикле: считать дату из файла дата.тхт, номер из файла номер.тхт, объем из файла объем.тхт.
Сформировать строку, записать ее куда-то.
Цикл пока не закончатся данные в одном из файлов, или по количеству проходов.
3. Закрыть файлы.
Примеров на форуме множество.

@a1eX28 · 21.04.2014, 14:20 **[ТС]**

Вот у меня к примеру, вывод идет в textbox

Visual Basic
1
2
3
4
5
6
Open sPytData For Input As Numb
Do While Not EOF(Numb)
Line Input #Numb, sdata
Text1.Text = Text1.Text + "<Поставка Ï000000000018=""" + sdata + """ Ï000000000019=""" + ttn + """ Ï000000000020="""""" Ï000000000021=""" + deka + """ />" & vbNewLine
Loop
Close #Numb

Первая переменная = sdata - вставляется и цикл отрабатывается до конца.
Не ткнете пальцем, как именно подставить еще 2 переменные, чтобы также заменялись.

@Казанский · 21.04.2014, 18:19

a1eX28,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	21.04.2014, 14:01
	a1eX28, 1. Открыть файлы. 2. В цикле: считать дату из файла дата.тхт, номер из файла номер.тхт, объем из файла объем.тхт. Сформировать строку, записать ее куда-то. Цикл пока не закончатся данные в одном из файлов, или по количеству проходов. 3. Закрыть файлы. Примеров на форуме множество. 0