Форум АНТИЧАТ - [Delphi] Помогите с .txt файлом

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - [Delphi] Помогите с .txt файлом (https://forum.antichat.xyz/showthread.php?t=164499)

Kandi

18.12.2009 21:15

[Delphi] Помогите с .txt файлом

Привет всем) народ помогите разобраться с text файлами...интересует меня собственно 2 вопроса:

1. Как мне посчитать строки в .txt файле при его открытие, ну и собственно нужно, чтобы кол-во вывелось куда нить...пофиг куда) главное пример!?

2. Как отпарсить первую строку, затем подставить её в скрипт, затем отпарсить вторую строку и опять же подставить её в скрипт, ну и собственно так до последней строки!

Прошу помочь, оч нуно :rolleyes:

ZdezBilYa

18.12.2009 21:46

Цитата:

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

1. Как мне посчитать строки в .txt файле при его открытие, ну и собственно нужно, чтобы кол-во вывелось куда нить...пофиг куда) главное пример!?

Код:

Stroki:TStringList;



Stroki:=TStringList.Create;

Stroki.LoadFromFile('file.txt');

Stroki.Count - количество строк

Цитата:

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

2. Как отпарсить первую строку, затем подставить её в скрипт, затем отпарсить вторую строку и опять же подставить её в скрипт, ну и собственно так до последней строки!

нельзя, не видя строки примера, сказать, как парсить, чтобы что-то из нее получить.
а вообще используй Pos и Copy

AlexTheC0d3r

18.12.2009 22:21

Цитата:

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

нельзя, не видя строки примера, сказать, как парсить, чтобы что-то из нее получить.
а вообще используй Pos и Copy

возможно под словом "парсить" он имел ввиду совсем другое, т.е. обычный цикл перебора строк...

Код:

var i:integer;

begin

for i:=0 to stroki.count-1 do  // если не ошибаюсь, нумерация строк Tstringlist начинается с 0, если все-таки ошибаюсь, то замени 0 на 1, и -1 убери...

begin

{

тут код.... обращаться к текущей строке stroki[i].text; - выведет текст текущей строки...

}

end;

end;

Kandi

19.12.2009 02:37

Цитата:

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

Код:

Stroki:TStringList;



Stroki:=TStringList.Create;

Stroki.LoadFromFile('file.txt');

Stroki.Count - количество строк

нельзя, не видя строки примера, сказать, как парсить, чтобы что-то из нее получить.
а вообще используй Pos и Copy

Спасибо, попробовал, но возникло "НО" вот делаю такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);

var

 Stroki:TStringList;

begin

 Stroki:=TStringList.Create;

 Stroki.LoadFromFile('D:\filename.txt');

 Label1.Caption := Stroki.Count;

end;

Ругаеться на :

Код:

Label1.Caption := Stroki.Count;

Понимаю, что это совсем не годиться, ну тогда подскажите куда это значение можно вывести) желательно на Label.Caption! :(

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

Код:

procedure TBrutForm.LoadButtonClick(Sender: TObject);

begin

 Open1.InitialDir := GetCurrentDir;

if

 Open1.Execute

then

 Password.Text := Open1.FileName                              

else

 ShowMessage('Файл не выбран!');

end;

Подскажите, как прикрутить подсчет строк к этому?
P.S. Извиняюсь за глупые вопросы, просто занимаюсь Delphi недавно...

ZdezBilYa

19.12.2009 02:57

Ошибка, потому что Label1.Caption типа string, а Stroki.Count типа integer.
Надо:

Код:

Label1.Caption := IntToStr(Stroki.Count);

Чтобы при открытии сразу количество строк выводилось, то вот так:

Код:

procedure TBrutForm.LoadButtonClick(Sender: TObject);

begin

 Open1.InitialDir := GetCurrentDir;

if

 Open1.Execute

then

 begin

  Password.Text := Open1.FileName;

  Stroki:=TStringList.Create;

  Stroki.LoadFromFile(Open1.FileName); 

  Label1.Caption := IntToStr(Stroki.Count);

 end                            

else

 ShowMessage('Файл не выбран!');

end;

Подскажите, как прикрутить подсчет строк к этому?
P.S. Извиняюсь за глупые вопросы, просто занимаюсь Delphi недавно...[/QUOTE]

Kandi

19.12.2009 03:09

Цитата:

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

Ошибка, потому что Label1.Caption типа string, а Stroki.Count типа integer.
Надо:

Код:

Label1.Caption := IntToStr(Stroki.Count);

Чтобы при открытии сразу количество строк выводилось, то вот так:

Код:

procedure TBrutForm.LoadButtonClick(Sender: TObject);

begin

 Open1.InitialDir := GetCurrentDir;

if

 Open1.Execute

then

 begin

  Password.Text := Open1.FileName;

  Stroki:=TStringList.Create;

  Stroki.LoadFromFile(Open1.FileName); 

  Label1.Caption := IntToStr(Stroki.Count);

 end                            

else

 ShowMessage('Файл не выбран!');

end;

Ох Вы мой спаситель :rolleyes:
Спасибо Вам огромное за помощь... :)

Может Вы мне подскажите как сделать так, что бы вытаскивалась строка из файла вставлялась в PassEdit.text например или в какую нить процедуру и так процедура это длилась пока не закончатся строки...хотя бы небольшой пример.

Kandi

19.12.2009 03:34

Вот сделал такую процедуру:

Код:

procedure TBrutForm.StartButtonClick(Sender: TObject);

var

  Http  : TidHttp;

  CM    : TidCookieManager;

  Data  : TStringList;

  StrPage, UserID,  UserName  :  String;

  Str1 : TStringList;

  i : Integer;

begin

  Str1:=TStringList.Create;

  Str1.LoadFromFile(Open1.FileName);

begin

for i:=0 to str1.count-1 do

  try

    Http := TIdHTTP.Create(Self);

    Data := TStringList.Create;

    CM := TidCookieManager.Create(Http);

    Http.AllowCookies := true;

    Http.CookieManager := CM;

    Http.HandleRedirects := true;



    Http.Request.Host:=HostEdit.Text;

    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.6) Gecko/20091201 MRA 5.4 (build 02647) Firefox/3.5.6 WebMoney Advisor';

    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';

    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';

    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';

    Http.Request.Referer:=RefererEdit.Text;



    Data.Add('subaction=dologin');

    Data.Add('username='+NickEdit.Text);

    Data.Add('password='+Str1[i].Text);

    Data.Add('selected_language='+BoxLanguage.Text);

    StrPage := Http.Post(HTTPEdit.Text, Data);

  finally

    Data.Free;

    CM.Free;

    Http.Free;

    Str1.Free;

  end;



  if Pos('Engine:</td',StrPage) <> 0 then

    ShowMessage('Поздравляем авторизация прошла успешно!')

  else

    ShowMessage('Авторизация провалилась.'+#13#10+'Возможно вы ввели не правильный пароль или имя!'+#13#10+'Проверьте их и попробуйте снова!');

end;

Но выдаёт ошибку тут:

Код:

Data.Add('password='+Str1[i].Text);

Ругаеться на +Str1[i].Text
В чем я ошибся, подскажите плз! :(

ZdezBilYa

19.12.2009 03:53

Ошибка в том, что обращение к конкретной строке в списке делается просто Str1[i], где i - номер строки. Никакого Text не надо.
Остальное вроде всё верно на первый взгляд)

wolmer

19.12.2009 08:45

Цитата:

Ругаеться на +Str1[i].Text

Конкретно не сталкивался с таким выбором строки, но я делаю так когда нужно показать отдельную какую либо строку:
str1.strings[i]

Kandi

19.12.2009 14:13

Цитата:

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

исправил вроде заработало) только если в файле 1 пасс то норм логинится, если он правильный а вот если два то прога виснет) подскажите, что сделать, что бы сначало пробовал первый пасс потом второй потом третий... и т.д.? есть примерные идеи? :confused:

Время: 19:11

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице