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

Tue, 20 Sep 2005 21:29:53 -0700

kalau hanya membaca line terakhir bagaimana jadinya ?
rencananya mau buat log-file monitoring.
----- Original Message -----
Sent: Wednesday, September 21, 2005 11:04 AM
Subject: Re: [Programmer-VB] basic script read .txt file

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 -----
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]



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke