Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизПожалуйста помогите Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c