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