String aus externe Datei mit GROSS/klein
10.03.2022 22:28:37
Igor
Ich möchte bestimmte Teile aus der externen Datei rausholen, aber GROSS und Kleinschreibung dabei ignorieren. In der Datei darf nichts geändert werden.
Bis jetzt kann ich nur das rausholen, was ich eingegeben habe: z.B. Text, aber nicht tEXT, TEXT, text, teXT...
Mein Code (verkürzt, weil die Tabelle ist schon wie ein Buch):
QuellDatei = "D:\Inhalt.txt"
DasGesuchte = "Text"
Trennung = "(" ' ab hier wird weiter alles gelöscht.
Open QuellDatei For Input As #1
Do While Not EOF(1)
Line Input #1, InhaltsZeile ' = Inhalt rausholen
If (InStr(InhaltsZeile, DasGesuchte)) Then ' hier Fehler, weil nicht "text2, texT oder tExt123" gefunden wird
''' If (InStr(InhaltsZeile, LCase(Range("START!D15").Value) Like LCase(DasGesuchte))) Then ' not OK
SpaltenNr = ActiveCell.Column
ZeilenAnzahl = Cells(Rows.Count, SpaltenNr).End(xlUp).Row
strAktuelleSpalte = Split(ActiveCell.Address, "$")(1)
Range(strAktuelleSpalte & ZeilenAnzahl + 1) = Split(InhaltsZeile, Trennung)
End If
Loop
Close #1 ' Quelldatei schliessen.
Vielen vielen Dank!