Q&A

  • 파일의 위치값부터 101byte를 더해 그값을 스트링으로 ..
수고하시네요..
전 로그파일에 있는 값(x파일의 레코드순서)을 가져와서 x파일의 위치값을 구해서 x파일의 한 줄씩(x파일 위치값 +101byte) 을 insert하려합니다..
군데 위치값은 구했는데 그값을 string으로 가져오는것을 어떻게 해야하는지 잘몰라서 이렇게 질문을 드립니다.
제가 사용하려는 x파일의 한 줄값은 101 입니다..

x파일은 이렇게 값이 들어있습니다.
00001  23423525235235235235253.....898
00002  23424252......2352525  235252 235
.
.
.
08653 363636363463....34636346334 34636

procedure TForm1.MultiOpen2(sss : string);
var
   f: file of Byte;
   size: Longint;
   S,ss,kkk,line_value : string;
   y,i: Integer;
begin

    yy := strtoint(xx);    //로그파일index값을integer로 받아논다

    AssignFile(F, sss);
    Reset(f);

    size := FileSize(f);   //파일총size
    S := 'File size in bytes: ' + IntToStr(size);

    Seek(f, yy*101); //로그파일의 인덱스인 x파일 위치값
    S := 'Position is now ' + IntToStr(FilePos(f));
  

   =>이다음에 위치값부터 101byte를 더한 값을 차례로 string화하여 디비에 넣으려 하는데 어케해야하나여??? ㅠ.ㅠ

end;
0  COMMENTS