AccessTr.neT
Log Dosyasından Listboxa Veri Almak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Log Dosyasından Listboxa Veri Almak (/konu-log-dosyasindan-listboxa-veri-almak.html)



Log Dosyasından Listboxa Veri Almak - accessman - 27/05/2020

Log Dosyasından Listboxa  nasıl Veri Alabiliriz
Public Sub readFromTxtFile()
    Const conPATH_TO_FILE As String = "C:\Program Files\Medex.log"
    Dim strLine As String
    Dim varLineContents As Variant
    Dim intCtr As Integer
    
    Open conPATH_TO_FILE For Input As #1        'Open file.
    
    Do While Not EOF(1)                         'Loop until end of file.
      Line Input #1, strLine                    'Read line into variable.
        varLineContents = Split(strLine, " ")   'Parse Line contents using a Space
                                                'as the Delimiter
        For intCtr = LBound(varLineContents) To UBound(varLineContents)
          Debug.Print varLineContents(intCtr),
        Next
          'Debug.Print vbCrLf
    Loop
    
    Close #1    ' Close file.

End Sub



RE: Log Dosyasından Listboxa Veri Almak - A.Kadir. - 27/05/2020

mrb.
Debug.Print varLineContents(intCtr)
işte bu satırda debug penceresine okuduğu satırlar yazılıyor.
siz listboxa vs artık nereye ne yaptırmak istiyorsanız bu kodun yerine yazarsanız.


RE: Log Dosyasından Listboxa Veri Almak - accessman - 27/05/2020

Teşekkürler