Удаление строк

[UKRtortik]

Как удалить все строки из txt в которых нет символа "+" ?

[Аватар]

читать каждую строку из источника, в приемник записывать только те строки, у которых есть символ +. Это же очевидно

[spirit-ua]

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

Как удалить все строки из txt в которых нет символа "+" ?

Как вариант:
1. Загрузить файл в StringList (LoadFromFile)
2. Пройтись циклом по всем строкам StringList проверяя фенкцией pos на наличие знака "+". Если присутствует - удалять строку из StringList
3. Сохранить содержимое StringList (SaveToFile) в нужный файл

[UKRtortik]

j:='+';
OpenDialog1.execute;
if OpenDialog1.filename<>'' then begin
uploaded := tstringlist.Create;
uploaded.LoadFromFile(OpenDialog1.FileName);
for a:=uploaded.Count-1 downto 0 do
if pos(j, uploaded[a])<>0 then begin
uploaded.delete(a);
end;
end;
uploaded.SaveToFile('1.txt');
showmessage ('GOOD');
end;

Так?

[Stilet]

Так. Только uploaded освободить не забывай.

[UKRtortik]

а точно, спасибо!

[Serge_Bliznykov]

OpenDialog1.execute;
if OpenDialog1.filename<>'' then begin

OpenDialog.Execute так не используют!!

Кроме того, Вы же собирались удалить строки, в которых НЕТ знака '+'. А в коде наоборот, удаляются строки со знаком '+'...

рекомендую ваш код записать так:

if OpenDialog1.execute then begin
  uploaded := tstringlist.Create;
  uploaded.LoadFromFile(OpenDialog1.FileName);
  for a:=uploaded.Count-1 downto 0 do
      if pos('+', uploaded[a])=0 then uploaded.delete(a);
  uploaded.SaveToFile('1.txt');
  uploaded.Free; 
  showmessage ('GOOD');
end;

[UKRtortik]

я перепутал надо наоборот в которых есть +

а еще вопрос, а как определить есть ли после знака еще какие то (буквы/цифры/симолы), если нету то удалить?

[spirit-ua]

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

а еще вопрос, а как определить есть ли после знака еще какие то (буквы/цифры/симолы), если нету то удалить?

- проверить наличие знака "+" в строке
- если присутствует - определить длину строки (length)
- если "+" последний - удалить строку

  s := 'asd+';
  if copy(s,length(s),1) = '+' then s := '';

[UKRtortik]

spirit-ua, спасибо, а еще вопрос сюда же, вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
uploaded: tstringlist;
a,b: integer;
j:string;
begin
j:=edit1.text;
if OpenDialog1.execute then begin
uploaded := tstringlist.Create;
uploaded.LoadFromFile(OpenDialog1.FileName);
for a:=uploaded.Count-1 downto 0 do
if copy(uploaded[a],length(uploaded[a]),1) = j then begin
uploaded.delete(a);
b:=b+1;
end;
showmessage ('Удалено: '+inttostr(b));
if SaveDialog1.Execute then uploaded.SaveToFile (SAveDialog1.FileName+'.txt');
uploaded.Free;
end;
end;

Удаляет только если после указанного символа больше не чего не идет, а как еще сделать чтобы удалял строку если в ней вообще нет этого символа?