| |
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. | |
Re: Mehrfach in einer Zeile vorkommenden String finden | | | Autor: Wobi | Datum: 27.01.20 04:00 |
| Hallo,
InStr findet laut Definition ja nur die Position des ersten Auftretens des Suchbegriffs.
Das funktioniert bei dir ja auch und du schreibst die Länge von 7 Zeichen in die Zelle, dann geht deine Schleife aber weiter.
Du hast zwei Möglichkeiten:
Entweder du wertest die Position von InStr > 0 dafür aus, dass der Suchbegriff in dieser Zeile vorhanden ist und lässt dann diese Zeile weiter durchsuchen
Oder du arbeitest mit regulären Ausdrücken über die ganze Zeile die per InStr gefunden worden ist.
Schau mal in die Tipps und Tricks, da gibt es bestimmt ein Beispiel.
Gruß
Frank | |
Re: Mehrfach in einer Zeile vorkommenden String finden | | | Autor: T_Kirk | Datum: 27.01.20 08:32 |
| Hallo,
danke für den Tip.
Da ich das Problem relativ schnell lösen mußte, habe ich mir erstmal anders geholfen, die Sache ist erledigt. | |
| 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 |
|
|
Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 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
|
|