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

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!

Please also mark the comments that contributed to the solution of the article

Content-Key: 273200

Url: https://administrator.de/contentid/273200

Printed on: April 18, 2024 at 18:04 o'clock

4 Comments

Latest comment

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