получить txt файлы

[komra2]

а что будет если без делит? Не пробовал пока что

тогда в этом коде надо поправить

procedure TForm1.Button1Click(Sender: TObject);
 var
 list:tstringlist;
 s,a:string;
 i:integer;
  begin
 list:=tstringlist.Create;
 list.LoadFromFile('1.txt');
 list.LoadFromFile('2.txt');
 list.LoadFromFile('3.txt');
 Edit1.Text:=UpperCase(Edit1.Text);
 for I := 0 to List.Count - 1 do
 begin
 s:=list[0]; 
 List.Delete(0); 
 a:=MD5DigestToStr(MD5String(s));
 if a=edit1.Text then 
 begin
 Edit2.Text:=s; 
 break;
 end;
 end;
 end;
 end. и написать вот так:
procedure TForm1.Button1Click(Sender: TObject);
 var
 list:tstringlist;
 s,a:string;
 i:integer;
  begin
 list:=tstringlist.Create;
 list.LoadFromFile('1.txt');
 list.LoadFromFile('2.txt');
 list.LoadFromFile('3.txt');
 Edit1.Text:=UpperCase(Edit1.Text);
 for I := 0 to List.Count - 1 do
 begin
 s:=list[I]; 
 a:=MD5DigestToStr(MD5String(s));
 if a=edit1.Text then 
 begin
 Edit2.Text:=s; 
 break;
 end;
 end;
 end;
 end.

???

[Serge_Bliznykov]

и написать вот так:

 list.LoadFromFile('1.txt');
 list.LoadFromFile('2.txt');
 list.LoadFromFile('3.txt');
 Edit1.Text:=UpperCase(Edit1.Text);

Вы меня, наверное, не поняли. или пропустили первую часть моего прошлого поста.

Так писать БЕССМЫСЛЕНО.
это всё равно, что написать просто один раз:

 list.LoadFromFile('3.txt');

если Вам нужно прочитать только один текстовый файл '3.txt', тогда уберите бессмысленные строчки, где Вы читаете два других файла.
Всё равно у Вас в list остаётся только содержимое одного, последнего прочитанного файла.

Так понятней?!

[komra2]

ну а что мне делать если мне надо не один а 100 штук load сделать, мне один знакомый сказал что сделать цикл надо, но как лучше будет?

[Serge_Bliznykov]

да, чтобы прочитать все текстовые файлы в заданной папке лучше использовать цикл.
пример цикла я Вам уже написал в пост #3 в этой теме. там только вместо memo1 нужно написать ваш list и всё!


А без цикла загрузка файлов 1.txt, 2.txt, 3.txt будет выглядеть так:

 var
   list, templist : TStringList;
   s, sfind, a:string;
    i:integer;
  begin
    list := TStringList.Create;
    templist := TStringList.Create;
    templist.LoadFromFile('1.txt'); // прочитали содержимое текстового файла
    list.Text:=list.Text+#13+templist.Text; // добавили содержимое файла к list

    templist.LoadFromFile('2.txt'); // прочитали содержимое текстового файла
    list.Text:=list.Text+#13+templist.Text; // добавили содержимое файла к list

    templist.LoadFromFile('3.txt'); // прочитали содержимое текстового файла
    list.Text:=list.Text+#13+templist.Text; // добавили содержимое файла к list

    FreeAndNil(templist); // очистим память, выделенную под временный объект, куда читали файлы

    sfind := UpperCase(Edit1.Text); // переменную для поиска берём из Edit1
    Edit2.Text := 'не найдено';  // пока пишем, что ничего не найдено

    for i := 0 to list.Count - 1 do //далее цикл код обработки list
    begin
      s:=list[i]; 
      if MD5DigestToStr(MD5String(s))=sfind then  begin
         Edit2.Text:=s; 
         break;
      end;
      if (i mod 200)=0 then Application.ProcessMessages(); // каждые 200 строк будем отдавать команду на обработку системных сообщений, 
                                         // это чтобы приложение на "замораживалось"
    end;

    FreeAndNil(list);   // очистим основной список

end; // конец процедуры

_______________________________
Ещё добавлю.
Более рационально будет не грузить все файлы в одну структуру,
а обрабатывать текстовый файлы по одному.

цикл по всем txt файлам
  прочитали очередной файл
  обработали. если нашли - конец процедуры
конец цикла

____________________
но не взломаете Вы MD5 перебором, зря усилия прилагаете...


_

[komra2]

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

да, чтобы прочитать все текстовые файлы в заданной папке лучше использовать цикл.
пример цикла я Вам уже написал в пост #3 в этой теме. там только вместо memo1 нужно написать ваш list и всё!


А без цикла загрузка файлов 1.txt, 2.txt, 3.txt будет выглядеть так:

 var
   list, templist : TStringList;
   s, sfind, a:string;
    i:integer;
  begin
    list := TStringList.Create;
    templist := TStringList.Create;
    templist.LoadFromFile('1.txt'); // прочитали содержимое текстового файла
    list.Text:=list.Text+#13+templist.Text; // добавили содержимое файла к list

    templist.LoadFromFile('2.txt'); // прочитали содержимое текстового файла
    list.Text:=list.Text+#13+templist.Text; // добавили содержимое файла к list

    templist.LoadFromFile('3.txt'); // прочитали содержимое текстового файла
    list.Text:=list.Text+#13+templist.Text; // добавили содержимое файла к list

    FreeAndNil(templist); // очистим память, выделенную под временный объект, куда читали файлы

    sfind := UpperCase(Edit1.Text); // переменную для поиска берём из Edit1
    Edit2.Text := 'не найдено';  // пока пишем, что ничего не найдено

    for i := 0 to list.Count - 1 do //далее цикл код обработки list
    begin
      s:=list[i]; 
      if MD5DigestToStr(MD5String(s))=sfind then  begin
         Edit2.Text:=s; 
         break;
      end;
      if (i mod 200)=0 then Application.ProcessMessages(); // каждые 200 строк будем отдавать команду на обработку системных сообщений, 
                                         // это чтобы приложение на "замораживалось"
    end;

    FreeAndNil(list);   // очистим основной список

end; // конец процедуры

_______________________________
Ещё добавлю.
Более рационально будет не грузить все файлы в одну структуру,
а обрабатывать текстовый файлы по одному.

цикл по всем txt файлам
  прочитали очередной файл
  обработали. если нашли - конец процедуры
конец цикла

____________________
но не взломаете Вы MD5 перебором, зря усилия прилагаете...


_

а с чего Вы взяли что я буду что-то ломать: ломать буду не я а железка, я ток кнопку нажму и посмотрю результат!

[Serge_Bliznykov]

я ток кнопку нажму и посмотрю результат!

угу. точно. Просто нужно подождать будет несколько тысяч лет и можно посмотреть результат. Рекомендую глубокую заморозку в качестве анабиоза!

[komra2]

Вопрос задам, но правда он будет по c# ну это ладно (cons applic):
как мне сделать перебор, кароче чтобы было бы вот так
введите мд5:
я ввел
//перебор идет
hello 1 world aaaaaaaaaaaaaaaaaaaa
hello 2 world aaaaaaaaaaaaaaaaaaaa
hello 3 world aaaaaaaaaaaaaaaaaaaa
hello 4 world aaaaaaaaaaaaaaaaaaaa
hello 1 world aaaaaaaaaaaaaaaaaaab
hello 2 world aaaaaaaaaaaaaaaaaaab
hello 3 world aaaaaaaaaaaaaaaaaaab
hello 4 world aaaaaaaaaaaaaaaaaaab
hello 1 world aaaaaaaaaaaaaaaaaaac
hello 2 world aaaaaaaaaaaaaaaaaaac
hello 3 world aaaaaaaaaaaaaaaaaaac
hello 4 world aaaaaaaaaaaaaaaaaaac
// перебор закончился если вся строка нашлась
то есть если мд5 от моей строки 55077facbd662d22fdf1c7c087fe4575
hello 1 world aaaaaaaaaaaaaaaaaaac
то перебор закончен, но прога не выкл. пока не нажму кнопку
.....a-z,A-Z,0-9