Поиск значений в текстовом файле

@Myrus · Регистрация: 27.03.2015

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

Добрый день.

Имеется текстовый файл вида:

Code
1
2
3
4
5
6
22.10.2019;1;158;1000,50
22.10.2019;2;160;600,07
23.10.2019;1;115;1565,75
23.10.2019;2;150;1630,89
23.10.2019;3;140;1340,15
24.10.2019;2;125;500,19

Мне необходимо в Edit1 написать дату 23.10.2019.
А в Edit2 вывести сумму чисел 115+150+140 и в Edit3 1565,75+1630,89+1340,15

Помогите пожалуйста кодом.

Verevkin · 24.10.2019, 12:31

TStringList.DelimitedText тебе в помощь.

@Puporev · 24.10.2019, 12:47

Например так.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:TStringList;
    i,s1:integer;
    s2:double;
begin
t1:=TStringList.Create;
t1.LoadFromFile('11.txt');//файл в папке с программой
Memo1.Text:=t1.Text;
s1:=0;
s2:=0;
for i:=0 to t1.Count-1 do
if copy(t1[i],1,2)='23' then
 begin
  t2:=TStringList.Create;
  t2.Delimiter:=';';
  t2.DelimitedText:=t1[i];
  Edit1.Text:=t2[0];
  s1:=s1+strtoint(t2[2]);
  s2:=s2+strtofloat(t2[3]);
  t2.Free;
 end;
t1.Free;
Edit2.Text:=inttostr(s1);
Edit3.Text:=formatfloat('0.00',s2);
end;

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

Verevkin Злостный нарушитель 10865 / 5808 / 1285 Регистрация: 12.03.2015 Сообщений: 26,836
	24.10.2019, 12:31
	TStringList.DelimitedText тебе в помощь. 1

Опции темы

Поиск значений в текстовом файле

Решение