VBScript.RegExp - Auslesen eines Strings ab einem bestimmten Zeichen

[Shemeneto 11]

Hallo,

 

Versuche mich gerade an RegExp.

 

Und zwar versuche ich aus diesem String

 

"... http://domain1.server.de/xy/ ... http://domain2.server.de/xy/ ..."

 

nur die "Domains" auszulesen und halt am besten gleich ohne "//" am Anfang und "." am Schluss.

 

Ich brauche also eine Funktion die bei "//" anfängt zu suchen und bei "." endet.

 

Leider habe ich nichts gefunden mit dem das geht. :shock:

 

Gruss,

Shemeneto

[Cybquest 36]

Versuchs doch mit der Mid- und Instr-Funktion:

lngpos1=instr(strDomain,"//")+2
lnglen=instr(strDomain,".")-lngpos1
strDomain=mid(strDomain,lngpos1,lnglen)

 

...aber eigentlich sind URLs so aufgebaut ;)

server.domain.rootdomain

[Shemeneto 11]

...aber eigentlich sind URLs so aufgebaut ;)

server.domain.rootdomain

 

Was für eine Plamage! Diese Regulären Ausdrücke scheinen mich ganz schön verwirrt zu haben. :nene:

....

 

mit den String-Funktionen geht es schon, aber was wenn es im Sting eine zweite URL gibt. Dann bekomme ich nur die erste, aber nicht die zweite. Und genau das benötige ich.

Das kann man sicher auch irgendwie zusammenbasteln, aber ich wollte es halt so kurz als möglich halten.

[Cybquest 36]

Ach.. hab ich ganz übersehen, dass in dem String mehrere URLs sind.

Hier ne Möglichkeit (ich geh mal davon aus, dass Du den Teil zwischen // und . haben willst):

strDomains="http://server1.net.com; http://domain2.net http://svr3.domain.de"
do
 lngpos1=instr(strDomains,"//")+2
 lnglen=instr(lngpos1,strDomains,".")-lngpos1
 strServer=strServer & mid(strDomains,lngpos1,lnglen) & chr(13)
 strDomains=mid(strDomains,lngpos1,len(strDomains)-lngpos1)
loop until instr(strDomains,"//")=0
MsgBox strServer

[Shemeneto 11]

Hallo Cybquest,

 

dein Script funktioniert wunderbar ... danke!

 

Nur schade das es nicht mit RegExp geht. Habe gestern nochmals versuchte es damit hinzubekommen, aber bin immer wieder gescheidert. :(

 

Gruss,

Markus