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