하병준 wrote:

> 안녕하세요 제가 질문을 하고자 하는 것은

>

> Pos을 사용을 하면 텍스트 파일의 찾고자하는 이름의 위치값을

>

> 찾아내는데 저는 궁금한것은 그 파일의 줄을 어떻게 찾는냐 하는 것입니다

>

> 다시 말하면 위치값은 위치값인데 몇번째 줄에 있는지 알아내느냐 하는 것입니다..

>

> Title := '농심';

> TitleIndexkey := Pos(Title,텍스트 파일);

> TitleIndex := Copy(텍스트 파일,TitleIndexkey,6);

>

> 고수님들의 지도 바랍니다 (--)(__)

>



procedure TForm1.Button1Click(Sender: TObject);

var f : textfile ;

s, t : string ;

i : integer ;

begin

s := '농심';

Assignfile(f, 'C:test.txt') ;

Reset(F) ;

i := 1 ;

While not eof(F) do

begin

Readln(F, t) ;

If pos(s, t) > 0 then

Break ;

inc(i) ;

end;

showmessage(inttostr(i)) ; // 지정한 글자의 줄 위치 값입니다.

closefile(f) ;

end;

>

하병준 wrote:

> 안녕하세요 제가 질문을 하고자 하는 것은

>

> Pos을 사용을 하면 텍스트 파일의 찾고자하는 이름의 위치값을

>

> 찾아내는데 저는 궁금한것은 그 파일의 줄을 어떻게 찾는냐 하는 것입니다

>

> 다시 말하면 위치값은 위치값인데 몇번째 줄에 있는지 알아내느냐 하는 것입니다..

>

> Title := '농심';

> TitleIndexkey := Pos(Title,텍스트 파일);

> TitleIndex := Copy(텍스트 파일,TitleIndexkey,6);

>

> 고수님들의 지도 바랍니다 (--)(__)



훔.. Pos함수까지 아시면 해결하실 수 있을거 같은데....

StringList에 해당 파일을 로드하구 라인단위로 Pos로 검사하시면 됩니둥~





function GetLineNum: Integer;

var

Title : String;

Index, Line, i : Integer;

MyFile : TStrings;

begin

Line := -1;

MyFile := TStringList.Create;

try

MyFile.LoadFromFile( '내파일.txt' );

for i := 0 to MyFile.Count - 1 do

begin

Index := Pos( Title, MyFile[ i ] );

if Index <> -1 then

begin

Line := i;

Break;

end;

end;

finally

MyFile.Free;

end;

end;