Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

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

 
новичок_из_сыктывкара ©   (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 © (16.01.04 23:33) [11]

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


 
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]

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



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

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

Наверх




Память: 0.49 MB
Время: 0.025 c
3-93407
SASH2
2004-01-05 11:50
2004.01.29
Чистка базы при определенном условии.


6-93604
Truntaev
2003-11-22 19:01
2004.01.29
передача bitmap Объекта с использованием сокетов


6-93603
Exceed
2003-11-25 00:25
2004.01.29
WebBrowser и прокси


11-93413
BelchonokH
2003-05-08 23:38
2004.01.29
Глюк с кнопкой TKOLButtonOrigin


1-93469
TankMan
2003-12-22 20:02
2004.01.29
Как хранить образ файла в памяти?