Скопировать определенные строки из файла, вставить в другой, произвести расчет и вывести значения в Label

@Tawan12 · Регистрация: 16.05.2016

Здравствуйте, помогите, пожалуйста! Есть txt файл со строками :
9/24/2017 2 120
9/25/2017 3 180
9/25/2017 4 240
9/25/2017 5 370
9/26/2017 6 370
Мне необходимо в Text1.Text и Text2.Text ввести в поиск значения 9/25/2017 и 9/26/2017 соответственно.После этого все значения за этот период:
9/25/2017 3 180
9/25/2017 4 240
9/25/2017 5 370
9/26/2017 6 370
необходимо скопировать и записать в другой txt файл, в нем же произвести расчет, во втором столбце от крайнего значения отнять первое (6-3) и вывести его в Label1.Caption, а в третьем столбце просуммировать все значения (180+240+370+370) и вывести значение в Label2.Caption.
Буду очень благодарна за помощь

@Alex77755 · 25.09.2017, 10:45

Надо выполнить набор действий:
1. Считать файл
2. Разбить на массив строк
3. Построчно обработать выделяя из строки дату и сравнивая с заданными
4. Если удовлетворяет условиям записывать в другой файл, производить вычисления и выводить куда надо. Паралельно суммировать все значения.
Конкретизируй вопрос. Что не получается.
1 и 2 можно объединить (full_file_Path$ = путь к файлу-источнику)

Visual Basic

1	Arr = Split(CreateObject("Scripting.FileSystemObject").Getfile(full_file_Path$).OpenasTextStream(1).ReadAll, vbNewLine)

Про работу с массивами читай тут
Ну а суммировать оператором "+"

@йот · 25.09.2017, 13:52

Alex77755,
обязательно выделять дату? Может достаточно того, что
дата входит в строку, а значит и вся строка подходит...

@Alex77755 · 25.09.2017, 23:55

йот,
И так можно. Строку потом разбить если подходит

@Tawan12 0 / 0 / 0 Регистрация: 16.05.2016 Сообщений: 36
		1
	Скопировать определенные строки из файла, вставить в другой, произвести расчет и вывести значения в Label 24.09.2017, 12:22. Показов 1834. Ответов 3 Метки нет (Все метки) Здравствуйте, помогите, пожалуйста! Есть txt файл со строками : 9/24/2017 2 120 9/25/2017 3 180 9/25/2017 4 240 9/25/2017 5 370 9/26/2017 6 370 Мне необходимо в Text1.Text и Text2.Text ввести в поиск значения 9/25/2017 и 9/26/2017 соответственно.После этого все значения за этот период: 9/25/2017 3 180 9/25/2017 4 240 9/25/2017 5 370 9/26/2017 6 370 необходимо скопировать и записать в другой txt файл, в нем же произвести расчет, во втором столбце от крайнего значения отнять первое (6-3) и вывести его в Label1.Caption, а в третьем столбце просуммировать все значения (180+240+370+370) и вывести значение в Label2.Caption. Буду очень благодарна за помощь __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@йот 27 / 32 / 14 Регистрация: 08.09.2017 Сообщений: 448
	25.09.2017, 13:52	3
	Alex77755, обязательно выделять дату? Может достаточно того, что дата входит в строку, а значит и вся строка подходит... 0

@Alex77755 11464 / 3757 / 675 Регистрация: 13.02.2009 Сообщений: 11,097
	25.09.2017, 23:55	4
	йот, И так можно. Строку потом разбить если подходит 0

Опции темы