Datei einlesen bei Visual Basic

Tom555 · 30.06.2004

Hallo

Ich muss ein Tool schreiben, bei dem ich eine Datei einlesen muss. Das ist soweit auch kein Problem. Wenn ich zum Beispiel in der Datei stehen habe :

wert1,wert2,wert3,wert4

Dann kann ich das so einlesen

input #1, var1,var2,var3,var4

Ich würde nur gern das Komma durch einen Semikolon ersetzen, geht das irgendwie ? Wenn ich in der Datei also:

wert1;wert2;wert3;wert4 hätte

Geht das dann auch irgendwie in der Arte wie oben oder muss ich meinen String da selber zerpflücken.

Alexander16 · 01.07.2004

Hi

Mir ist kein Befehl bekannt, der dein Vorhaben ähnlich wie Input löst.
Ich habe dir hier mal eine Alternative zusammengestellt:

Function:

Code:

Private Function DateiLesen(sDateiPfad As String) As Variant
    Dim iFF As Integer
    
    iFF = FreeFile
    Open sDateiPfad For Input As #iFF
        DateiLesen = Split(Input(LOF(iFF), iFF), ;, , vbTextCompare)
    Close #iFF
End Function

Aufrufbeispiel:

Code:

Private Sub Command1_Click()
    Dim sSpalten() As String
    sSpalten = DateiLesen(App.Path &amp; \Test.txt)
    
    MsgBox sSpalten(0) + vbCr + _
           sSpalten(1) + vbCr + _
           sSpalten(2) + vbCr + _
           sSpalten(3) + vbCr + _
           sSpalten(4)
End Sub

Mfg Alexander

Tom555 · 02.07.2004

Danke für die antwort, habs aber mittlerweile auch gelöst. Habs einfach Zeilenweise eingelesen und dann den String entsprechend zerlegt.

Gruß

Tom

Datei einlesen bei Visual Basic

Tom555

Alexander16

Tom555

Datei einlesen bei Visual Basic

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums