Re: [Programmer-VB] basic script read .txt file

JemyX Shinichi Tue, 20 Sep 2005 21:09:50 -0700

Private Function BacaFILE ()

Dim FSO As New FileSystemObject
Dim X
dim str as String

    CD.InitDir = sPath
    CD.Filter = "TEXT File (*.TXT) |*.txt|"
    CD.ShowOpen




    Set X = FSO.OpenTextFile(CD.FileName, ForReading)

    Hit = 0

    Do Until X.AtEndOfStream



        str = X.ReadLine

        msgbox str   'ini menampilkan perbaris dari file TEXT yg di baca

    Loop

End Sub

----- Original Message -----

From: Hyuuga Neji

To: [email protected] ; [email protected]

Sent: Wednesday, September 21, 2005 10:20 AM

Subject: [Programmer-VB] basic script read .txt file

dear vbers.. mohon sekali pencerahannya,

saya ingin menanyakan bagaimana caranya membaca sebuah file .txt

baris per baris..

jikalau ada yg berkenan mohon kiranya memberi saya sedikit pencerahan.. tentang how to read a txt file

terima kasih.

Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED]

YAHOO! GROUPS LINKS

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

Re: [Programmer-VB] basic script read .txt file

Kirim email ke