5. 두 텍스트 파일 합치기
SAM7.TXT라는 텍스트화일을 만들고, SAM6.TXT 와 SAM1.TXT를 합쳐서
SAM7.TXT 텍스트화일에 기록하는 예를 보여줍니다.
NSAMPLE/CHGDBF/TXTMERGE.PRG
#include "npp.ch" FUNCTION MAIN() Local i := 0 Local nLp := 0 Local nFp := 0 Local cFile := "SAM7.TXT" Local oFile1 := TTxtFile():New ( "SAM6.TXT" ) Local oFile2 := TTxtFile():New ( "SAM1.TXT" ) Local oFile3 := "" Local cChar := "" nFp := Fcreate ( cFile ) iF nFp == -1 Return NIL End Fclose ( nfp ) oFile3 := TTxtFile():New ( cFile ) // For - Next를 이용하여 oFile1에서 읽어 oFile3에 기록하기 nLp := oFile1:LastRec() // 마지막 라인 번호 For i=1 to nLp oFile1:GoTo(i) cChar := oFile1:ReadLine() //oFile1에서 한라인 읽음 oFile3:AppendLn ( cChar ) //oFile3에 한라인 기록 Next oFile3:AppendLn ( "" ) //빈줄 추가 oFile3:AppendLn ( "" ) // While을 이용하여 oFile2에서 읽어 oFile3에 기록하기 While !( oFile2:lEof() ) cChar := oFile2:ReadLine() //oFile2에서 한라인 읽음 oFile3:AppendLn ( cChar ) //oFile3에 한라인 기록 oFile2:Skip(1) Enddo oFile1:End() oFile2:End() oFile3:End() Return Nil
결과(SAM7.TXT)
1,”김일동”,19700101
2,”김이동”,19730204
3,”김삼동”,19750704