люди помогите в текстовом файле..

← →
новичок_из_сыктывкара (2004-01-16 23:02) [0]

люди помогите в текстовом файле слово и указать в какой строке (номер строки)оно находиться

← →
Dred2k (2004-01-16 23:06) [1]

> люди помогите в текстовом файле..

Какая туда маршрутка?
Мне на остановке сказали, что ReadLn тебе зело поможет.

← →
новичок_из_сыктывкара (2004-01-16 23:09) [2]

не, надо найти слово, (искать то он у меня ищет, а вот в какой строке не показывает)

← →
Dred2k (2004-01-16 23:14) [3]

Что ж, вполне логично.

← →
новичок_из_сыктывкара (2004-01-16 23:15) [4]

а здорово...только я не понял где логика то здесь??? :)

← →
Sergey_Masloff (2004-01-16 23:15) [5]

посчитай сколько символов конца строки перед найденым словом.

← →
Dred2k (2004-01-16 23:17) [6]

> новичок_из_сыктывкара © (16.01.04 23:15) [4]

Вся логика в твоем зело адекватно сформулированном вопросе и еще более зажигательном пояснении [2].

← →
Clift (2004-01-16 23:20) [7]

f:Textfile;
bol:boolean;
s:string;

repeat
begin
Readln(f,s);
j:=j+1;
for i:=0 to length(s) do
begin
If (copy(s,i,5)="слово") then
begin
break;
bol:=true;
Line:=j;
end;
end;
end;
until EOF(f) or bol;
То что этот кусок будет работать не ручаюсь но я думаю что смысл понятен...Номер строки в Line

← →
Dred2k (2004-01-16 23:23) [8]

> кусок будет работать

Не будет.
И еще есть Pos, AnsiUpperCase и break на своем месте + ...

← →
Dred2k (2004-01-16 23:27) [9]

function FindStrOnTextFile(AStr : String; AFileName : String) : Boolean; var tmpFile : Text; tmp : String; begin Result := False; Assign(tmpFile, AFileName); Reset(tmpFile); try while(not System.EOF(tmpFile)) do begin ReadLn(tmpFile, tmp); Result := (Pos(AnsiUpperCase(AStr), AnsiUpperCase(tmp)) > 0); if(Result) then exit; end; finally CloseFile(tmpFile); end; end;

← →
Dred2k (2004-01-16 23:28) [10]

Да, еще номер строки нужно подсчитать.

← →
Clift (2004-01-16 23:33) [11]

>Dred2k ©
Assign(tmpFile, AFileName);
///
If not FileExist(tmpFile) then
begin
Rewrite(tmpFile);
CloseFile(tmpFile);
Assign(tmpFile, AFileName);
end;
///
Reset(tmpFile);

← →
Dred2k (2004-01-16 23:37) [12]

← →
Clift (2004-01-16 23:43) [13]

>Dred2k ©
Это сильно. С учетом пусть и хренового ТЗ.

Зря иронируете.
Допустим всё пишется в один файл. Если информация в файл была записана вчера, а сегодня она в нём ищется каковы гарантии что за это время с ним(файлом) "ничего" не случится...

← →
Dred2k (2004-01-16 23:45) [14]

> Clift © (16.01.04 23:43) [13]

Да я и не иронизирую вовсе.
Простой вопрос - где мы ищем? Файл _есть_ файл. Мы же только ищем...
;)

← →
новичок_из_сыктывкара (2004-01-17 01:13) [15]

всем спасибо за помощь!!!

люди помогите в текстовом файле.. Найти похожие ветки