csv Datei auslesen

29/06/2009 - 09:45 von Jürgen Schulz | Report spam
Hallo NG
Ich will grade eine csv Datei auslesen in der Form:

Line Input #1, Dateidaten

eigentlich ja kein Problem, aber:
Das Zeilenende der csv Datei ist aber nur ein CHR(10). Dadurch wird kein
Zeilenende bei Line Input erkannt und in Dateidaten befindet sich die
komplette Datei.

Als Ausweg will ich nun folgendes machen:

Do While Not EOF(1)
Line Input #1, Dateidaten

arrTemp = Split(Dateidaten, Chr(10))
If UBound(arrTemp) > 1 Then
For i = 0 To UBound(arrTemp) - 1
arrdateidaten = Split(arrTemp(i), ";")
'Sprung zur Auswertung
AuswertungDatei rsEmail, arrdateidaten
Next i
Else
arrdateidaten = Split(Dateidaten, ";")
'Sprung zur Auswertung
AuswertungDatei rsEmail, arrdateidaten
End If

Loop
Close #1


Gibt es für dieses Problem noch eine andere alternative?

Danke schon mal
Jürgen
 

Lesen sie die antworten

#1 Jürgen Volke
29/06/2009 - 11:01 | Warnen spam
Hallo Jürgen
"Jürgen Schulz" schrieb im Newsbeitrag
news:4a48711b$0$32673$
Hallo NG
Ich will grade eine csv Datei auslesen in der Form:

Line Input #1, Dateidaten

eigentlich ja kein Problem, aber:
Das Zeilenende der csv Datei ist aber nur ein CHR(10). Dadurch wird kein
Zeilenende bei Line Input erkannt und in Dateidaten befindet sich die
komplette Datei.

Als Ausweg will ich nun folgendes machen:

Do While Not EOF(1)
Line Input #1, Dateidaten

arrTemp = Split(Dateidaten, Chr(10))
If UBound(arrTemp) > 1 Then
For i = 0 To UBound(arrTemp) - 1
arrdateidaten = Split(arrTemp(i), ";")
'Sprung zur Auswertung
AuswertungDatei rsEmail, arrdateidaten
Next i
Else
arrdateidaten = Split(Dateidaten, ";")
'Sprung zur Auswertung
AuswertungDatei rsEmail, arrdateidaten
End If

Loop
Close #1


Gibt es für dieses Problem noch eine andere alternative?



vor dem Öffnen per Script CHR(10) durch CHR(13)+CHR(10) ersetzen

Gruß Jürgen

Ähnliche fragen