SaveToFile проблема...

[FleXik]

Вобщем проблема в том что у меня есть два .txt файла и одно Memo, и мне нужно чтобы с Мемо разделяло строки и сохраняло в эти два .txt файла (первая часть в один .txt файл, вторая часть в другой .txt файл). Но у меня получается что сохраняет все мемо и в тот и в другой файлы, принцип следующий:

1. Отправляем запрос
2. Парсим
3. Выводим в Мемо
4. Сохраняем в .txt файл

Код как и после первого запроса так и после второго следующий (только .txt разные вписаны):

Form2.sMemo2.Lines.Add(text);
Form2.sMemo2.Lines.SaveToFile('trololo.txt');

[Slym]

ты посуду моешь после еды? помой memo - Memo.Lines.Clear;

[FleXik]

Сообщение от Slym

ты посуду моешь после еды? помой memo - Memo.Lines.Clear;

Пфф.. Так в том то и прикол что мне его очищать нельзя.

[Stilet]

Код в студию.

[FleXik]

Сообщение от Stilet

Код в студию.

Я дал код, остальное у меня все ок, я незнаю как сделать чтобы писало в 2 разных файла только... Вернее оно пишет в 2 разных файлах, только весь текст из мемо, а мне нужно чтобы писало в .txt файл ту строку которую добавило в Мемо. Выглядит код так:

запрос
парсим
Form2.sMemo2.Lines.Add(abc);
Form2.sMemo2.Lines.SaveToFile('1234 5.txt');
запрос
Form2.sMemo2.Lines.Add(abcd);
Form2.sMemo2.Lines.SaveToFile('1234 56.txt');

[Stilet]

Я дал код

По нему ничего не ясно.

Выглядит код так

Предлагаю:

with TStringList.Create do begin
 Form2.sMemo2.Lines.Add(abc); text:=abc;SaveToFile('1234 5.txt');
 Form2.sMemo2.Lines.Add(abcd); text:=abcd;SaveToFile('1234 56.txt');
...
 free;
end;

Подходит?

[FleXik]

Сообщение от Stilet

По нему ничего не ясно.

Предлагаю:

with TStringList.Create do begin
 Form2.sMemo2.Lines.Add(abc); text:=abc;SaveToFile('1234 5.txt');
 Form2.sMemo2.Lines.Add(abcd); text:=abcd;SaveToFile('1234 56.txt');
...
 free;
end;

Подходит?

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

Отправляем запрос, в Мемо парсится строка. Она сохраняется в 12345.txt , сразу после этого отправляется второй запрос, в мемо парсится строка немного другая. Она сохраняется в 123456.txt, а если делать так как я то вообще полностью все строки из Мемо записываются в оба .txt файла чего мне не надо.

[FleXik]

мне нужно что-то типа этого

WriteLn(myFile, 'Hello World');

но через мемо

[mosq]

если ты ищешь строку в самом мемо и ее выводишь в файл, то

writeln(f,copy(memo1.text,pos('string to parse!',memo1.text),16)); //пишем найденную в мемо строку в файл

если ты ищешь строку где-то в другом месте, а потом добавляешь ее в мемо как новую строку и тут же записываешь в файл, то

writeln(f, memo1.lines[memo1.lines.count-1]); //пишем последнюю строку, с учетом, что больше не добавлялось

соответственно, f назначаешь на нужные файлы.

ну, это если грубо и в одну строку кода

[Slym]

var Strings:TStringList;
begin
  Strings:=TStringList.Create;
  try
    Strings.Text:=Get;
    Strings.SaveToFile('1');
    Memo1.Lines.AddStrings(Strings);
    Strings.Clear;
    Strings.Text:=Get;
    Strings.SaveToFile('2');
    Memo1.Lines.AddStrings(Strings);
  finally
    Strings.Free;
  end;
end;