Zahlen in Textdatei suchen

Sub TextImport() Dim iFile As Integer Dim sSearch As String, sTxt As String Dim sFile As String If Dir(sFile) = "" Then Beep MsgBox "Sie müssen zuerst eine Textdatei anlegen!" Exit Sub End If iFile = FreeFile sFile = "r:\test\werttabelle.csv" sSearch = "1,4" Open sFile For Input As iFile Do Until EOF(1) Input #iFile, sTxt If InStr(sTxt, sSearch) Then Range("A1") = "Gefunden: " & sTxt Exit Do End If Loop Close iFile End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub suchen() Dim Wert, Wert2, Wert3 As String Anzahl = [A65536].End(xlUp).Row For i = 1 To Anzahl Wert = Cells(i, 1).Value Wert2 = Mid(Wert, 1, 3) Wert3 = Right(Wert, Len(Wert) - 4) Select Case Wert2 Case Is = "1,4" Cells(i, 2).Value = Wert3 End Select Next i End Sub

Sub TextImport() Dim strAct As String, strBegriff As String strBegriff = "uwe" Open "r:\test\test.csv" For Input As #1 Do While Not EOF(1) Line Input #1, strAct If InStr(1, strAct, strBegriff) Then Cells(Cells(65536, 1).End(xlUp).Row + 1, 1) = strAct strAct = Mid(strAct, 5, 10) MsgBox strAct Exit Do End If Loop Close #1 End Sub

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

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen in Textdatei suchen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread