tstringlist

[sven4ik]

1.В текстовом файле(выбирает пользователь) найти кол-во строк,начинающихся со знака !.используя свойства и методы класса TStringList
2.Переписать содержимое текстового файла(выбирает пользователь) в новый текстовый файл(выбирает пользователь),заменяя точками запятыми,используя свойства и методы класса TStringList

[саша40]

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

1.В текстовом файле(выбирает пользователь) найти кол-во строк,начинающихся со знака !.используя свойства и методы класса TStringList
2.Переписать содержимое текстового файла(выбирает пользователь) в новый текстовый файл(выбирает пользователь),заменяя точками запятыми,используя свойства и методы класса TStringList

1.

var
e: TStringList;
f1: TextFile;
T: String;
i: integer;
l: integer;
begin
e:= TStringList.Create;
if OpenDialog1.Execute then 
begin
AssignFile(f1,OpenDialog1.FileName);
Rewrite(f1);
try 
Read(f1, T);
e.Add(T);
finally 
closefile(f1);
end;
for i:=0 To e.Count Do 
begin
T:=e.Strings[i];
if t[1]='!' then l:=l+1;
end;
ShowMessage('Количество строк:' + inttostr(l));
end;
FreeandNil(e);
end;

2.

var
e: TStringList;
T,t1: String; 
i: integer; 
y: integer;
begin
e:= TStringList.Create;
if OpenDialog1.Execute then 
begin
e.LoadFromFile(OpenDialog1.FileName);
for i:=0 To e.Count Do 
begin
t1:=e.Strings[i];
for y:=1 To Length(t1) Do 
begin
if t1[y]=',' then t[y]:='.';
end;
e.Strings[i]:=t1;
end;
if SaveDialog1.Execute then 
e.SaveToFile(SaveDialog1.FileName);
end;
FreeandNil(e);
end;

[LeGenDik]

const
T: String = '!';
var
e: TStringList;
f1: string;
i: integer;
l: integer;
begin
l:=0;
e:=TStringList.Create;
if OpenDialog1.Execute then
begin
e.LoadFromFile(f1);
end;
for i := 0 to e.Count - 1 do
if Pos(T,e[i])<>0 then inc(l);
ShowMessage('Количество строк:' + IntToStr(l));
e.Free;
end;

[FaTaL]

Вот тебе на первую задачу полный код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl  : TStringList;
  od  : TOpenDialog;
  i   : Integer;
  s   : string;
  cnt : Word; // Кол-во строк
begin
  od := TOpenDialog.Create(self);
  od.Filter := 'Текстовые файлы (*.txt)|*.txt';
  if od.Execute then
    begin
      sl := TStringList.Create;
      sl.LoadFromFile(od.FileName);
      cnt := 0;
      for i := 0 to sl.Count - 1 do
        begin
          s := sl.Strings[i];
          if Length(s) > 0 then
            begin
              if s[1] = '!' then
                inc (cnt);
            end;
        end;
      sl.Free;
      ShowMessage ('Кол-во строк с !: ' + IntToStr (cnt));
    end;
  od.Free;
end;

А вот на вторую:

procedure TForm1.Button2Click(Sender: TObject);
var
  sl  : TStringList;
  od  : TOpenDialog;
  sd  : TSaveDialog;
  i   : Integer;
begin
  od := TOpenDialog.Create(self);
  od.Filter := 'Текстовые файлы (*.txt)|*.txt';
  if od.Execute then
    begin
      sl := TStringList.Create;
      sl.LoadFromFile(od.FileName);
      for i := 0 to sl.Count - 1 do
        begin
          sl.Strings[i] := StringReplace(sl.Strings[i], '.', ',', [rfReplaceAll]);
        end;
      sd := TSaveDialog.Create(self);
      sd.Filter := 'Текстовые файлы (*.txt)|*.txt';
      sd.DefaultExt := 'txt';
      sd.Options := [ofOverwritePrompt];
      if sd.Execute then
        sl.SaveToFile(sd.FileName);
      sl.Free;
      sd.Free;
    end;
  od.Free;
end;