Q&A

  • INI 파일의 내용에서 특정 키워드만 변경하는방법
안녕하세요..

델피 초보 삐홍 입니다..

여러 고수님의 가르침을 받고자 합니다...

제가 봉착한 문제는요..

INI파일을 엑세스를 해서 거기서 특정 단어를 색출, 다른 문자로 변경하는

일입니다. 뭐 INI든 TXT든 관계는 없는데요...

워낙에 초보라서 접근 방법을 모르고 있습니다.

여러 고수님들의 고견을 듣고 싶습니다..^^;

그럼...좋은 하루 되세용..

1  COMMENTS
  • Profile
    홍세비 2000.12.05 10:12
    삐홍 wrote:

    > 안녕하세요..

    > 델피 초보 삐홍 입니다..

    > 여러 고수님의 가르침을 받고자 합니다...

    > 제가 봉착한 문제는요..

    > INI파일을 엑세스를 해서 거기서 특정 단어를 색출, 다른 문자로 변경하는

    > 일입니다. 뭐 INI든 TXT든 관계는 없는데요...

    > 워낙에 초보라서 접근 방법을 모르고 있습니다.

    > 여러 고수님들의 고견을 듣고 싶습니다..^^;

    > 그럼...좋은 하루 되세용..



    안녕하세요. 홍세빕니다.

    흠..아래 함수를 이용해 보세염..간단하게 변환할수 있습니당



    procedure replace(var source: string; find, repl: string);

    var

    ind : integer;

    next : string;

    begin

    ind := pos(find, source);

    if ind > 0 then begin

    next := copy(source, ind+length(find), 10000);

    replace(next, find, repl);

    source := copy(source, 1, ind-1) + repl + next;

    end;

    end;



    function LoadFile(fil: string): string;

    var

    list : TStringList;

    begin

    try

    list := TStringList.Create;

    list.LoadFromFile(fil);

    result := list.Text;

    list.Free;

    except

    Exit;

    end;

    end;





    .............

    var

    fn : string;

    begin

    fn := LoadFile('INI 파일');

    replace(fn, '찾는문자열','바꿀문자열');

    end;



    // 물론 다시 파일로 저장해 줘야하구요...

    // 그리고 엔터처리를 해주셔야 하겠죠. 이부분은 스스로 연구해 보세염. ^^