| |
Suche Visual-Basic CodeMehrfach in einer Zeile vorkommenden String finden | | | Autor: T_Kirk | Datum: 14.01.20 15:33 |
| Hallo,
ich habe einen Ordner voll Textdateien, die Programmcode mit Variablen enthalten. Ich möchte alle Dateien durchsuchen, und gefundene Variable in eine Spalte einer Exceltabelle schreiben. Die Variablen sehen alle etwa so aus: DO(001..., DI(002..., AI(003... .
angefangen habe ich so:
strSuch = "DO("
For i = 0 To 100
If Dir("...Pfad\Dateiname" & i & ".txt") <> "" Then
Open "...Pfad\Dateiname" & i & ".txt" For Input As #1
Do Until EOF(1)
Line Input #1, strTxt
If InStr(strTxt, strSuch) > 0 Then
inttemp1 = InStr(strTxt, strSuch)
intZeile = Cells(Rows.Count, 1).End(xlUp).Row
intZeileCount = intZeile + 1
strDateiname = Mid("...Pfad\Dateiname" & i & ".txt", 27, 12)
Cells(intZeileCount, 1) = strDateiname
Cells(intZeileCount, 2) = Mid(strTxt, inttemp1, 7)
End If
Loop
Close 1
End If
Next i Das Problem:
Es wir immer nur die erste Variable in einer Zeile gefunden und in die Exceldatei eingetragen. Es gibt aber häufig in einer Zeile so etwas wie "DO(001) = DO(002) UND DO(003)". DO(001) wird gefunden und in die Exceldatei übernommen, dann wird die Zeile aber nicht weiter durchsucht, DO(002) und DO(003) werden nicht gefunden.
Wie kann ich so suchen, daß alle Variablen gefunden werden, auch wenn in einer Zeile mehrere vorkommen?
Danke für jede Hilfe!
Beitrag wurde zuletzt am 14.01.20 um 15:56:01 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|