AW: 6 Position eines Zeichen im Text auslese
17.04.2020 08:21:56
CitizenX
Guten Morgen Siegfried,
Bitte das script ersetzen:
Option Explicit
Function getstring(text, Optional Titel)
Dim strpattern$
Select Case LCase(Titel)
Case "name": strpattern = "\]\s*([A-zöäüß\s\W?]+)\s*;"
Case "plz_ort": strpattern = "\[([A-zöäüß\s*\W?]+)\]$"
Case "strasse": strpattern = ";\s*([A-zöäüß\s\.\-]+\d*\s*)\["
Case "tel": strpattern = "[\sA-z\.\:]*(\+*\d*[\-\/\(\s]*\d+[\-\/\)\s\d]*\d{2,}[\d\s\-\/] _
*\d+[\sA-z\.\:]*[\sA-z\.\:]*\+*\d*[\-\/\(\s]*\d*[\-\/\)\s\d]*\d{2,}[\d\s\-\/]*\d*)" '";[\sA-z\.\:]*(\+*\d*[\-\/\(\s]*\d+[\-\/\)\s]*\d{2,}[\d\s\-\/]*\d+)"
Case "mail": strpattern = "\b([^\s]+@[^\s]+\.\w+)\b"
Case "preis": strpattern = "(\d+\.\d\d\s*EUR.*?);"
Case "offen": strpattern = "((offen|(ge)?öff.*|open)\:.*?)[;\[\b]"
End Select
With CreateObject("vbscript.regexp")
.ignorecase = True
.Pattern = strpattern
If .test(text) Then getstring = .Execute(text).Item(0).submatches(0)
End With
End Function
jetzt hab ich zwar für die Tonne gearbeitet,abei seit drum..
Alles Gute
VG
Steffen