Textdatei - nach Zeichen suchen | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SearchandSave() Dim arr() As String, i&, sSource$ Dim sText$, j& sSource = ThisWorkbook.path & "/" & "Test.txt" Open sSource For Input As #1 While Not EOF(1) Line Input #1, sText If InStr(1, sText, "#", vbTextCompare) > 0 Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = sText End If Wend Close 1 For j = 1 To UBound(arr) Debug.Print arr(j) Next j End Sub

Sub SearchandSave() Dim arr() As String, i&, sSource$ Dim sText$, j& sSource = ThisWorkbook.path & "\Test.txt" Open sSource For Input As #1 While Not EOF(1) Line Input #1, sText If InStr(1, sText, "#", vbTextCompare) > 0 Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = sText End If Wend Close 1 For j = 1 To UBound(arr) Debug.Print arr(j) Next j End Sub

Hallo Andi,
das Makro funktioniert. Ich habe es unter EXCEL97 getestet.
Die Source-Datei wird dabei "nur" für das Einlesen der Daten geöffnet. Es wird in EXCEL kein Fenster mit der Datei geöffnet.
Zeige, nachdem Du das Makro gelaufen ist, im VBA-Editor unter Ansicht das Direktfenster an. Dort werden die gefundenen Daten angezeigt durch die Schleife mit der Anweisung
Debug.Print arr(J)
Ich hab das Makro noch angepasst, so dass das #-Zeichen und die 3 Zeichen danach in das Array geschrieben werden. Dabei werden auch mehrere #-Zeichen in einer Zeile erkannt


Sub SearchandSave()
Dim arr() As String, i&, sSource$
Dim sText$, j&
sSource = ThisWorkbook.Path & "\Test.txt"
Open sSource For Input As #1
While Not EOF(1)
Line Input #1, sText
Do Until InStr(1, sText, "#", vbTextCompare) = 0
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = Mid(sText, InStr(1, sText, "#", vbTextCompare), 4)
sText = Mid(sText, InStr(1, sText, "#", vbTextCompare) + 3, Len(sText))
Loop
Wend
Close 1
For j = 1 To UBound(arr)
Debug.Print arr(j)
Next j
End Sub

Gruß
Franz

Hallo Andi,
also bei mir hat erstaunlicherweise sogar die erste Programmversion funktioniert, obwohl ein Schrägstrich an Stelle eines umgekehrten Schrägstriches als Trennzeichen zum letzten Unterordner verwendet wurde. Kommt bei dir denn eine Fehlermeldung in der Open-Zeile?
Ansonsten: Die Datei wird mit "Open sSource For Input As #1" nicht etwa in Excel geöffnet. Der Dateiinhalt wird vielmehr Zeile für Zeile direkt von der Festplatte in die Variable "sText" eingelesen, von dort in das Datenfeld "arr()" übergeben und am Ende des Makros über "Debug.Print arr(j)" in das Direktfenster im VBA-Editor geschrieben. Wenn du das Makro von Excel aus einfach laufen lässt, passiert daher scheinbar gar nichts.
Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Textdatei - nach Zeichen suchen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei - nach Zeichen suchen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread