Здравствуйте.
Помогите, пожалуйста, разобраться с TStringList. Статью о TStringList я прочитал, но всё равно не могу понять, почему происходит так, как описанное ниже.
У меня есть txt файл, который мне необходимо обработать. Скажем, записать результат его парсинга в memo.
Файл состоит из двух секций [IN_PARAM] и [OUT_PARAM].
В секции [OUT_PARAM] содержится информация в формате “^имя” = “значение^”. Причём блоки параметров “^имя” = “значение^” периодически (через 12 строк) повторяются (начало 12-и строчного блока это ^DocDate, а конец это ^Num ). Первые 12 строк описывают одну организацию, следующие 12 строк описывают вторую организацию и т.д.
На выходе, я хочу получить только “значения”.
txt файл прикреплён.
Разбор я выполняю так.
| Код |
procedure TForm1.Button2Click(Sender: TObject);
var
s : TStringList;
i,k,b,l,h,j,f : integer;
a,ss:string;
begin
s := TStringList.Create;
try
if dlgOpen1.Execute then Memo1.Lines.LoadFromFile(dlgOpen1.FileName);
Memo1.Lines.LoadFromFile(dlgOpen1.FileName);
s.LoadFromFile(dlgOpen1.FileName);
k:=s.IndexOf('[OUT_PARAM]'); // определяем номер строки, где находится [OUT_PARAM]
f:=0;
l:=k+1;
// В этом while ищем номер строки, где находится ^DocDate именно с ^DocDate начинаются те самые 12 строк
while f=0 do
begin
If (Pos('^DocDate',s.Names[l])<>0) then
begin
ShowMessage(IntToStr(l));
h:=l; // номер строки, где находится ^DocDate
f:=1;
end;
l:=l+1;
end;
// Выводим в мемо по 12 строк
while h<s.Count-1 do
begin
for j:= h to h+12 do
begin
b:= Pos('^',s.Values[s.Names[j]]); // определяю позицию нахождения в строке символа ^
ss:=s.Values[s.Names[j]]; // переписываем строку
Delete(ss,b,1); // удаляем символ ^
Memo2.Lines.Add(ss); // выводим результат в memo
h:=h+1;
end;
end
finally
s.Free;
end;
end;
|
Вся проблема во втором while:
Первый 12 итераций в for выполняются нормально, и я получаю данные об первой организации. Но следующие 12 итераций for опять выводят информацию о первой организации, а не о следующей. С третей та же проблема и т.д. Хотя я вижу, что переменная j меняется.
Возникает такое ощущение, что “указатель строки” не перемещается дальше, а остаётся на первом блоке из 12-записей.
Покажите, где здесь ошибка и как её исправить?
P.S.
Потом, если удастся побороть описанную проблему, нужно будет вносить “значения” в БД, Insert запросом по 12 за раз.
Посоветуйте, как и куда лучше сохранять мои “значения”, для последующей вставки в БД через Insert ?
|
)
Кстати, я даже боюсь представить, что будет, если пользователь всё же не выберет файла через OpenDialog! 
Впрочем, ошибка через try...finally всё равно отловится, согласен.
Да и "значения" я бы брал, просто отсекая всё слева, что идёт за "равно", а потом удаляя ^.
