Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
.txt-Datei einlesen
Horst
Hallo Excel-Freaks!
Folgendes Makro liest den Wert der ersten Zeile einer .txt-Datei ein. Wie müsste es verändert werden, damit es den Wert der letzten Zeile einliest (die Anzahl der Zeilen zwischen erster und letzter verändert sich und ist daher vorab nicht bekannt).
Function LeseZeile1(strPfad As String) As Double
Dim sLine As String
Dim F As Integer
F = FreeFile
Open strPfad For Input As #F
Line Input #F, sLine
Close #F
sLine = Replace(sLine, " ", vbTab)
If InStr(sLine, vbTab) > 0 Then
sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab))
End If
If IsNumeric(sLine) Then
LeseZeile1 = CDbl(sLine)
End If
End Function

Mit bestem Dank vorab,
Horst

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: .txt-Datei einlesen
01.03.2011 11:33:46
ing.grohn
Hallo Horst,
vielleicht so?:
Function LeseZeile1(strPfad As String) As Double
Dim sLine As String
Dim F As Integer
F = FreeFile
Open strPfad For Input As #F
Do
Line Input #F, sLine
Loop Until EOF(F)
Close #F
sLine = Replace(sLine, " ", vbTab)
If InStr(sLine, vbTab) > 0 Then
sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab))
End If
If IsNumeric(sLine) Then
LeseZeile1 = CDbl(sLine)
End If
End Function
Mit freundlichen Grüßen
Albrecht
AW: .txt-Datei einlesen
01.03.2011 15:21:14
Horst
Besten Dank! Funktioniert großartig.
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige