Menulis di file TXT dengan Visual Foxpro

Menulis di file TXT dengan Visual Foxpro

  19.17    Prometheus

---

&& Fungsi ini untuk menulis Memo di file
&& PARAMETERS _IsiText : Text yang akan ditulis di file
&& PARAMETERS _NamaFile : Nama file yang akan dibuka untuk ditulisi
&& PARAMETERS _Mode : 0 Jika , 1 jika , 2 Jika
&& Catatan :
&& Untuk menulis file text yang terdiri dari beberapa baris harus diberikan command new line dan 

&&  return, contoh untuk menulis :
&& "Ini Contoh Menulis 3 baris"
&& "Baris pertama Awal"
&& "Baris kedua Akhir"
&& Maka parameter _IsiText harus ditulis sbb "
&& _IsiText=CHR(10)+"Ini Contoh Menulis 3 baris"+;
&& CHR(10)+"Baris pertama Awal"+CHR(13)+;
&& CHR(10)+"Baris kedua Akhir"+CHR(13)

FUNCTION TulisdiFile
PARAMETERS _IsiText,_NamaFile,_Mode
IF VARTYPE(_NamaFile)<>"C"
        _NamaFile=SYS(1)+SYS(2)
ENDIF
IF EMPTY(_NamaFile)
        _NamaFile=SYS(1)+SYS(2)
ENDIF
IF VARTYPE(_IsiText)="N"
        _IsiText=ALLTRIM(STR(_IsiText))
ENDIF
IF VARTYPE(_IsiText)<>"C"
        _IsiText=""
ENDIF
IF VARTYPE(_Mode)<>"N"
        _Mode=0
ENDIF
IF _Mode<0 .or. _Mode>2
        _Mode=0
ENDIF
IF FILE(_NamaFile)
        _CodeErr=FOPEN(_NamaFile,12)     && Buka untuk ditulisi (read/write)
ELSE
        _CodeErr=FCREATE(_NamaFile) && Buat file baru
ENDIF
IF _CodeErr<0
        && Jika Error
        WAIT WINDOW NOWAIT "Can't open or create output file"
ELSE  
        && Jika file bisa akses
        =FWRITE(_CodeErr ,_IsiText)
ENDIF
&& Tutup File
=FCLOSE(_CodeErr)
DO CASE
        CASE _Mode=0
                _balik=_NamaFile
        CASE _Mode=1
                _balik=_CodeErr
        OTHERWISE
                _Balik=_CodeErr
ENDCASE
RETURN _Balik