text 화일을 열어서 화일을 읽은 후에 특정문자를 치환하고 싶은데 할 수 있는 방법이 나요?
고수님의 한수 지도 바랍니다.
<!--CodeS-->
<aa.txt 화일 내용>
[ Made by map editor v.20040220 ]
[ Size width = 869, height = 504 ]
1067909764671|1|871|334|160|30|010200!type=a:code=ATS_.4.4!112.454!0.00!출력전류R!0!A$null$1.0|sansserif!0!11|0!0!0|224@224@224!255@0@0!255@128@192!0@64@128!0@0@0!128@64@64!0@128@64
1067909764671|1|872|300|160|30|010200!type=a:code=ATS_.4.3!212.637!0.00!출력전압T!0!V$null$1.0|sansserif!0!11|0!0!0|224@224@224!255@0@0!255@128@192!0@64@128!0@0@0!128@64@64!0@128@64
1067909764671|1|871|265|160|30|010200!type=a:code=ATS_.4.2!212.363!0.00!출력전압S!0!V$null$1.0|sansserif!0!11|0!0!0|224@224@224!255@0@0!255@128@192!0@64@128!0@0@0!128@64@64!0@128@64
1067909764671|1|871|229|160|30|010200!type=a:code=ATS_.4.1!211.538!0.00!출력전압R!0!V$null$1.0|sansserif!0!11|0!0!0|224@224@224!255@0@0!255@128@192!0@64@128!0@0@0!128@64@64!0@128@64
1067909764671|1|871|471|160|30|010200!type=a:code=ATS_.4.9!39.685!0.00!출력전력!0!KW$null$1.0|sansserif!0!11|0!0!0|224@224@224!255@0@0!255@128@192!0@64@128!0@0@0!128@64@64!0@128@64
var
i : Integer ;
MyFile : TextFile;
begin
//화일을 열어야 한다.
AssignFile(MyFile, 'c:\map\012300.txt');
ReWrite(MyFile); //쓰는 작업
try
while not Eof(MyFile) do
begin
//여기서 어떻게 replac를 해야할지...막막하네요
//화일을 열어 "100200"->"300000"으로 replace 하는 건데
//한수 지도편달 바랍니다.
CloseFile(MyFile);
end;
finally
end;
end;
<!--CodeE-->
파일이 그리 크지 않고 텍스트 파일이라면... StringReplace함수를 써보세요...
<!--CodeS-->
uses
...SysUtils;
var
StringList: TStringList;
begin
StringList := TStringList.Create;
try
StringList.LoadFromFile( 'c:\map\012300.txt' );
StringReplace( StringList.Text, '100200', '300000', [rfReplaceAll]);
StringList.SaveToFile( 'c:\map\012300.txt' );
finally
StringList.Free;
end;
end;
<!--CodeE-->
^^ 항상 즐코하세요...