Форум: "Начинающим";
Текущий архив: 2008.06.29;
Скачать: [xml.tar.bz2];

Вниз

Выборка (поиск) необходимых строк в текстовом файле (макете)   Найти похожие ветки 

← →
n_sch   (2008-05-30 14:43) [0]

Добрый день! Ни как не могу сооброзить, как организовать поиск в "текстовике" точнее макете, строки которого разделенны тэгами, он примерно выглядит так:

0B52305080003000000452592|DT3:005|PA10:0003000000|RC10:4025770011|AM17:000000000 04272373|CU3:RUR|MT3:193|PN145:УФК|EE:
0B52305080003000000452590|DT3:005|PA10:0003000000|RC10:4025770011|AM17:000000002 77432670|CU3:RUR|MT3:193|PN145:УФК|EE:

т.е. задача состоит в следующем найти во всех строках и вывести в Edit значение ну допустим  тэга AM17: и MT3:
пытался сделать некий цикл типа:

OpenDialog1.Execute;
f:=OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(f);
listaccount:= Tstringlist.Create;
listaccount.LoadFromFile(f);
for i:=1 to listaccount.Count do begin
s := listaccount.Strings[i-1];
for z:=i to (Length(s)) do   begin
if (s[z]="|") and (s[z+1]="А") and (s[z+2]="М") then begin
Edit1.Text:=s[z+3]+s[z+4];

но что делать дальше не сооброжу, как вывести значение цифр до появления следующего тэга???? Я  работал с таблицам типа paradox или dbf, там такие задачи решаются просто, а тут надо текстовый макет обработать...
Заранее спасибо!

---

← →
Vlad Oshin ©   (2008-05-30 14:49) [1]

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

---

← →
Vlad Oshin ©   (2008-05-30 14:49) [2]

Удалено модератором

---

← →
Vlad Oshin ©   (2008-05-30 14:49) [3]

Удалено модератором

---

← →
Ega23 ©   (2008-05-30 14:49) [4]

Pos, Copy + F1

---

← →
Reindeer Moss Eater ©   (2008-05-30 14:52) [5]

Начало:
Pos("AM17",строка) + Lenth("AM17")
Длина:
Pos("MT3",строка) - начало - Lenth("AM17")

плюс/минус трамвайная остановка.

---

← →
TUserClass   (2008-05-30 14:55) [6]

Вот так мона еще:

function GetElement (Text, TagName : string) : string;
var
 TempS : string;
 Res : string;
 I : word;
begin
 TempS := StrPos (PChar (Text), PChar (TagName));
 Delete (TempS, 1, Length (TagName));
 I := 1;
 Res := "";
 While (TempS[I] <> "|") and (I <= Length (TempS)) do begin
   Res := Res + TempS[I];
   INC (I);
 end;
 Result := Res;
end;

---

← →
TUserClass   (2008-05-30 14:59) [7]

> TUserClass   (30.05.08 14:55) [6]


Пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
 ShowMessage (GetElement ("0B52305080003000000452590|DT3:005|PA10:0003000000|RC10:4025770011|AM17:0000000 02 77432670|CU3:RUR|MT3:193|PN145:УФК|EE:", "AM17:"));
end;

---

← →
Сергей М. ©   (2008-05-30 15:10) [8]

> n_sch   (30.05.08 14:43)


Если обрабатываемые файлы достаточно большого размера и/или состоит из строк переменной длины, есть прямой резон воспользоваться любым готовым механизмом обработки регулярных выражений.

см., к примеру, TRegExpr

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.06.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.042 c