Visual Basic text zeilenweise aus einer .txt Datei auslesen

...komplette Frage anzeigen

2 Antworten

Hej hej!

Schau doch mal bei "Active VB" oder bei "VBArchiv" oder auf "VisualBasicWorld" dort findest du viele Beispiele zum Umgang mit Dateien und wie du sie auch zeilenweise einlesen kannst. Leider darf man hier nur einen Link einfügen, aber via Google gelangst du schnell dort hin...

Die einzelnen Zeilen kannst du dann mit der Split-Funktion zerlegen.

Viele Grüße Alex


web: www.visualbasicworld.de

Also mit VBS habe ich es geschafft, so eine Datei auszulesen und die ausgelesenen Zeilen zu splitten. Vielleicht kannst du es als Anregung für VB verwenden:

Sub Main()
    Dim i
    Dim oFile
    Dim saIP
    Dim saPort
    Dim saZeile
    Dim sZeile  

    LogInit "zeilenauslesen.log"

    i = 0
    Set oFile = fso.OpenTextFile("c.txt", C_FILE_FORREADING)
    while not oFile.AtEndOfStream 
        sZeile = oFile.ReadLine()
        if sZeile <> "" then
            saZeile = Split( sZeile, ":" )
            Redim saIP(i)
            Redim saPort(i)
            saIP(i) = saZeile(0)
            saPort(i) = saZeile(1)

            Call LogInfo("IP: " & saIP(i) & ", Port: " & saPort(i))

            i = i + 1
        end if
    wend

    LogEnd

End Sub

Die Loggingfunktion habe ich zum Testen programmiert. fso ist ein FileSystemObject. C_FILE_FORREADING ist 1

Was möchtest Du wissen?