AW: Zahlen in Textdatei suchen
22.09.2006 10:57:13
ingUR
Hallo, Uwe,
Deine Aufgabenbeschreibung in Verbindung mit dem Programmsegment führen als erstes dazu, dass Du aus einer Datei die volle Zeile einlesen solltest um dann den die Zeichenkette weiter zu verarbeiten.
In einer zeilenorientierten Datei mit den von Dir angegebenen drei Zeilen, wird als letzte Zeile die Zeile 1,4;1,6566 eingelesen und, da sie den Teilstring 1,4 enthält, wird sie mit dem Zusatz Gefunden: auch in die Zelle A1 (alternativ, wie ich sa, hast den den Code so erweitert, dass er immer hinter die derzeit letzte Zelle der Spalte A geschrieben wird) ausgegeben.
Wenn es nun aber Deine Aufgabe ist, in der ersten Zahl nach der 1,4 zu suchen, um dann anschließend, wenn Übereinstimmung festgestellt wurde, den Wert hinter dem Semikolon zu ermitteln, so muß in der Tat ein weiterer Programmteil diese Aufgabe erledigen.
Sub TextImport()
Dim iFile As Integer
Dim sSearch As String, sTxt As String
Dim sFile As String
Dim r As Long
If Dir(sFile) = "" Then
Beep
MsgBox "Sie müssen zuerst eine Textdatei anlegen!"
Exit Sub
End If
iFile = FreeFile
sFile = "c:\temp\werttabelle.csv"
sSearch = "1,4"
Open sFile For Input As iFile
Do Until EOF(1)
Line Input #iFile, sTxt
If InStr(sTxt, sSearch) = 1 Then
sTxt = Replace(sTxt, ",", ".") 'Wandlung der Kommata in Punkte!
r = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(r, 1) = Left(sTxt, InStr(sTxt, ";") - 1)
Cells(r, 2) = Mid(sTxt, InStr(sTxt, ";") + 1)
Exit Do
End If
Loop
Close iFile
End Sub
Gruß,
Uwe