Membaca isi file TXT dengan Visual Foxpro

Membaca isi file TXT dengan Visual Foxpro

  17.51    Prometheus

---

&& Fungsi untuk membaca isi file TXT
&& Parameter _NamaFile : Nama File kengkap dengan lokasinya
&& Return : String hasil pembacaan file TXT
&& Jika Nama file tak ditemukan nilai return = ""

FUNCTION BacaIsiFile
PARAMETERS _NamaFile
_Balik=""
IF VARTYPE(_NamaFile)<>"C"
        RETURN _Balik
ENDIF
IF EMPTY(_NamaFile) .or. !FILE(_NamaFile)
        RETURN _Balik
ENDIF
gnFileHandle=FOPEN(_NamaFile)
nSize= FSEEK(gnFileHandle,0,2)
IF nSize <= 0
        RETURN _Balik
ELSE
        =FSEEK(gnFileHandle,0,0)

         _Balik=FREAD(gnFileHandle, nSize)
ENDIF
=FCLOSE(gnFileHandle)
RETURN _Balik