AW: Uhrzeit einlesen klappt nicht?
04.06.2004 14:46:43
tomtom
Hallo Ronny, Reinhard
Reinhard: gute Arbeit!
Habe dein Beispiel nochmal etwas ausgebaut, damit nun die Uhrzeit auch eingelesen wird...
Sub lese_test()
'mit diesem beispiel werden die minuten in spalte C auch eingelesen !
Dim satz As String
Dim wert As Variant
Dim zeile As Long
Dim spos As Integer 'satzposition
Dim slaenge As Integer 'satzlänge
Dim p As Integer 'feldposition
Dim x As Integer 'feldlänge
Dim recanz As Integer 'recordzähler
Dim pfad As String
pfad = ActiveWorkbook.Path
Close
Open pfad & "\filename.dbf" For Input As #1
'file öffnen
Input #1, satz
slaenge = Len(satz)
zeile = 65537
spos = 0
recanz = 0
p = 1
While Not EOF(1)
'daten einlesen
Input #1, satz
'satzlänge feststellen
slaenge = Len(satz)
'loop solange bis satz abgearbeitet ist
While Not spos > slaenge
'spalten formatieren
If zeile = 65537 Then
zeile = 2
Sheets.Add after:=Worksheets(Worksheets.Count)
Columns("A:A").NumberFormat = "@"
Columns("B:B").NumberFormat = "m/d/yy"
Columns("C:C").NumberFormat = "h:mm"
Columns("D:J").NumberFormat = "0.000"
End If
'daten verteilen
x = 11
'feld 1
Cells(zeile, 1) = Mid(satz, p, x)
p = p + x
x = 5
'feld 2
Cells(zeile, 2) = Mid(satz, p, x)
p = p + x
x = 5
'feld 3
Cells(zeile, 3) = Mid(satz, p, x)
'feld 4-10
For a = 4 To 10
p = p + x
x = 14
Cells(zeile, a) = Mid(satz, p, x)
Next a
'filler überspringen
p = p + x + 5
'recordzähler hochzählen
recanz = recanz + 1
'zeile hochzählen
zeile = zeile + 1
'satzposition hochzählen
spos = spos + 124
'nächster record
Wend
MsgBox "Ende bei Record-Anzahl " & recanz & " und Satzposition " & spos
Wend
Close #1
End Sub
Grüsse tomtom