Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Problem bei der Erstellung eines Regulären Ausdruckes

Frage Entwicklung VB for Applications

Mitglied: spawny2407

spawny2407 (Level 1) - Jetzt verbinden

08.10.2014 um 11:26 Uhr, 659 Aufrufe, 2 Kommentare

Hallo liebe Gemeinde,

habe ein nicht endendes Problem.
Da ich auf dem Gebiet der Regulären Ausdrucke sehr neu bin, diese aber in einem Script benötige wende ich mich nun an euch.

Folgende Werte habe ich:
z.B: "f<sdglfagsdfadfasdfKunden-Nr.: 00000z00glj234h5g24l35"
oder "f<sdglfagsdffKunde00815z00glj234h5g24l35"

mit folgendem Ausdruck versuche ich nun die relevanten Daten heraus zu filtern:

((Kunde)(.{1,})([0-9]{1,5}))

Ergebnisse:
"Kunden-Nr.: 00000z00glj234h5g24l35"
"Kunde00815z00glj234h5g24l35"

Mein Wunsch wäre folgendes Ergebnis:
"Kunden-Nr.: 00000"
"Kunde00815"

oder noch besser:
"00000"
"00815"

Danke euch

LG Christian
Mitglied: colinardo
08.10.2014, aktualisiert um 11:41 Uhr
Hallo Christian,
z.B. so
(Kunden-Nr\.:|Kunde).*?(\d{1,5})
dann nimmst du den zweiten Submatch und du hast deine Kundennummer

Beispiel:
01.
Dim myRegExp, myMatches, myMatch, SubjectString 
02.
Set myRegExp = CrreateObject("vbscript.regexp") 
03.
myRegExp.IgnoreCase = True 
04.
myRegExp.Global = True 
05.
myRegExp.Pattern = "(Kunden-Nr\.:|Kunde).*?(\d{1,5})" 
06.
SubjectString = "f<sdglfagsdfadfasdfKunden-Nr.: 00000z00glj234h5g24l35" 
07.
Set myMatches = myRegExp.Execute(SubjectString) 
08.
For Each myMatch In myMatches 
09.
	msgbox myMatch.Submatches(1) 
10.
Next
Grüße Uwe
Bitte warten ..
Mitglied: spawny2407
08.10.2014 um 11:45 Uhr
Hi Uwe,

herzlichen Dank.
Das war die Lösung

Grüße Christian
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Peripheriegeräte
Barcode Erstellung Problem (11)

Frage von Data61 zum Thema Peripheriegeräte ...

Windows 10
Problem: einzige Konto gesperrt + Bitlocker aktiv (11)

Frage von Windows11 zum Thema Windows 10 ...

Exchange Server
Problem mit POP3-Abruf eines Exchange-2013-Postfachs

Frage von YotYot zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (32)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...