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

[Stilet]

что и в этот раз, в четвёртый, ваш код TC не устроит..

Ответ тот же:

Я кагбэ не особо против.

Мну тоже предлагают взять автоматъ, я как и ТС упираюсь, так что не проблема.

[Алексей_2012]

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

...плюс удаляет если знак "+" последний, не обязательно "+",другой знак, указанный в edit1.text

procedure TForm1.Button1Click(Sender: TObject);
var
  uploaded: tstringlist;
  a, b, i, k: integer;
  s, j: string;
begin
  j := Trim(edit1.text);
  if j = '' then
  begin
    ShowMessage('Заполните образец!');
    edit1.SetFocus;
    exit;
  end;
  if not OpenDialog1.execute then Exit;
  b := 0;
  uploaded := tstringlist.Create;
  uploaded.LoadFromFile(OpenDialog1.FileName);
  for a := 0 to uploaded.Count - 1 do
  begin
    k := 0;
    s := uploaded[a];
    if Trim(S) = '' then Continue;
    for i := 1 to Length(s) do
    begin
      if s[i] <> j then inc(k);
      if i = Length(s) then
        if s[i] = j then
        begin
          ShowMessage(s[Length(s) - 1]);
          uploaded.delete(a);
          inc(b);
        end
        else
          if k = Length(s) then
          begin
            uploaded.delete(a);
            inc(b);
            continue;
          end;
    end;
  end;
  showmessage('Удалено;: ' + inttostr(b));
if  SaveDialog1.Execute then uploaded.SaveToFile (SAveDialog1.FileName+'.txt');
  uploaded.Free;
end;

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

Автор, не морочь людям головы, пришли задание целиком, а то так правильного ответа не добьешься и вопросник не закончится твой)

Писал на скорую руку, соответственно без оптимизации по коду, должно работать.

з.ы. работает только по одному символу, введенному в образец, для того, чтобы работало как полноценная программа замените в условии s[i] кодом, содержащем pos,copy.

[Serge_Bliznykov]

Алексей_2012, жуткий код..
я его, разумеется, не проверял, но практически уверен, что он будет работать криво.
Например, крайне не рекомендуется удалять в прямом цикле for строки.
Очевидно же, что не все строки будут обработаны (будет перескакивать через строку).
Да и проверка того, что последний символ строки равен заданному символу производит гнетущее впечатление!
Copy(s, Length(s), 1) = j - не проще?!


извините, если был слишком резок в суждениях...

[WhiskasTM]

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

Мне нужна удалять строку в 2-х случаях, если заданный символ последний в строке или его вообще нет.

procedure ProccessFile(const FileName:string);
var
list  : TStringList;
c     : Char;
i     : Integer;
j     : Integer;
begin
c := '+';
list := TStringList.Create;
list.LoadFromFile(FileName);
for i := list.Count-1 downto 0 do
begin
  j := Length(list[i]);
  if (j=0) or (list[i][j]=c) or (Pos(c,list[i])=0) then list.Delete(i);
end;
list.SaveToFile('D:\out.txt');
list.Free;
list := nil;
end;

Холостое копирование вредно)