Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

Пожалуйста помогите   Найти похожие ветки 

← →
Scholl ©   (2002-10-23 11:13) [0]

Как организовать поиск в *.txt файле

---

← →
F1   (2002-10-24 12:10) [1]

Открываешь файл,

while Not Eof(Файл) do
Считываешь строчку, а в строчке-то я надеюсь найдешь!!!

---

← →
Semion ©   (2002-10-27 08:20) [2]

f,:textfile;
filename,s:string;

assignfile(f,filename);


reset(f);
while not(eof(f)) do begin
read(f,s);
{if я здесь проводи поиск символа}

end;

---

← →
Song ©   (2002-10-27 08:35) [3]

Прочитай в TStringList дальше можно по IndexOf() или по Pos()

2semion © (27.10.02 08:20)
Надо ReadLn()

---

← →
Yegor Derevenets   (2002-10-27 11:43) [4]

while not SeekEOF (F)
do begin
Readln (F, S);
NChar:=Pos (Sample, S);
if NChar<>0
then Writeln ("String "", S, "" contains SubStr!!! At ", NChar);
end;

В двоичном файле все несколько сложнее. Там уже надо самому писать эффективные алгоритмы.

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c