Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.018 c
4-21890
cypher
2002-09-24 22:24
2002.11.07
Такое хитрое окно


14-21773
AL2002
2002-10-17 12:46
2002.11.07
Что читать?


6-21714
AndOrXor
2002-09-10 09:11
2002.11.07
Может кто подскажет


3-21442
Shadow
2002-10-20 20:52
2002.11.07
У меня прога использует BDE, а на другой машине нет BDE. Ошибка


3-21381
NeyroSpace
2002-10-16 18:00
2002.11.07
Куда деваются милисекунды? (Time type)