VB-Script Suchfunktion nach bestimmten Wörtern aus einer CSV Datei mit Ausgabe u. Fehlermeldung

gelöstFrage VB for Applications Entwicklung

Hi zusammen,
wer möchte helfen? Thema: VB-Script Code mit Suchfunktion nach bestimmten Wörtern (zB. Ort "Berlin") aus einer CSV Datei suchen und bei der Ausgabe, sollte aus der Spalte daneben (aus der CSV Datei), das dazugehörige Kürzel (zB. "DE-BER") anzeigen. Zusätzlich sollte eine Fehlermeldung erscheinen wenn der gesuchte Ort nicht vorhanden ist.
Beispiel der CSV-Datei:
Berlin; DE-BER
BAYEUX; FR-BYX
Brighton; US-BHO
Danke Euch im Voraus!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 273200

Url: https://administrator.de/forum/vb-script-suchfunktion-nach-bestimmten-woertern-aus-einer-csv-datei-mit-ausgabe-u-fehlermeldung-273200.html

Ausgedruckt am: 22.04.2025 um 20:04 Uhr

4 Kommentare

Neuester Kommentar

Moin,
zu simpel

strDateipfad = "c:\datei.csv"  
strSuchwort = InputBox("Bitte Suchwort eingeben:")  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set regex = CreateObject("vbscript.regexp")  
regex.IgnoreCase = True : regex.Global = False
regex.Pattern = strSuchwort & "\s*;([^;\r\n]+)"  
strText = fso.OpenTextFile(strDateipfad,1).ReadAll()
set matches = regex.Execute(strText)
If matches.count > 0 then
    Msgbox "Treffer: " & Trim(matches(0).submatches(0))  
Else
    Msgbox "Kein Treffer", vbExclamation  
End if

Gruß jodel32