Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateien-Speichern-Lesen
Autor: Kalle
Datum: 04.05.02 08:51
Sub QuittungenLesen() Dim oQ As CQuittung Dim sZeile As String Dim aZeile As Variant Dim snDurchV As Single Dim iDateiNr As Integer, iNr As Integer, i As Integer iDateiNr = FreeFile() On Error Resume Next Open m_sDateipfad For Input As iDateiNr If Err.Number = 53 Then Exit Sub On Error GoTo 0 iNr = 1 Do While Not EOF(iDateiNr) Set oQ = New CQuittung Line Input #iDateiNr, sZeile aZeile = Split (sZeile, ",") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' wie kann ich das Split Problem umgehen With oQ sZeile = .Datum .Datum = aZeile(0) .KmStand = aZeile(1) 'Liter = aZeile(2) 'Preis = aZeile(3)

Dateien-Speichern-Lesen	47	Kalle	04.05.02 08:51
Re: Dateien-Speichern-Lesen	221	Dieter	04.05.02 09:52
Re: Dateien-Speichern-Lesen	28	Kalle	05.05.02 10:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen