Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

einlesen von Daten mit character

einlesen von Daten mit character
05.12.2005 17:17:46
Daten
Hallo liebe Helfer,
ich lese Daten von einer csv-Datei ein.Es sind Daten, die als String bzw. Double in einer csv-Datei vorliegen. Nun muss ich aber auch Daten einlesen, die ein Wort darstellen. Hierbei komme ich mit String / Double nicht mehr weiter. Ich habe mittlerweile rausbekommen, dass dies mit "character" beschrieben werden kann. Mehr weiß ich aber bislang nicht. Mit Double sieht es wie folgt aus:
For j = 1 To Len(sCoords(i))
If Mid(sCoords(i), j, 1) = ";" Then
k = k + 1
If k = Zaehler_Fensterbankanschluss Then '64
cfirst = j + 1
k = 0
Exit For
End If
Else
End If
Next j
Pos(i - 1).Fensterbankanschluss = Val(Mid(sCoords(i), cfirst, 5))
Im Vorfeld sind die Variablen definiert worden.
Wie muß ich dies nun mit character umschreiben?
Danke Pit

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einlesen von Daten mit character
05.12.2005 17:41:39
Daten
Hi Pit,
k.A. was du mit Characters willst, ich würde das so probieren:

Option Explicit
Sub tt()
Dim Satz, Satz2, n As Long
Close
Open "C:\xyz.csv" For Input As #1
While Not EOF(1)
Input #1, Satz
Satz2 = Split(Satz, ",")
For n = 0 To bound(Satz2)
Select Case TypeName(Satz2(n))
Case "Double"
'Double-Routine
Case "String"
'String-Routine
Case...
Case Else
'weder string, long, double
End Select
Next n
Wend
Close
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige