Vill inte bryta länkar (reg exp)

3 svar · 267 visningar · startad av ampy 20 maj 2004

ampyMedlem sedan feb. 20011 498 inlägg

Trådstart20 maj 2004 20:15#1

Hittade denna kod i script-arkivet:

Dim objRegExpBR
Set objRegExpBR = New RegExp
objRegExpBR.Global = True
objRegExpBR.Pattern = "(\S{48})"
txt = objRegExpBR.Replace(txt, "$1 ")
Set objRegExpBR = Nothing

Denna kod bryter ord som är längre än 48 tecken. Hur ska man göra så att den inte bryter länkar, alltså "ord" som inleds med 'http://' eller 'www'?

Engine^Medlem sedan dec. 20003 887 inlägg

20 maj 2004 20:23#2

Detta mönster kan fungera...

objRegExpBR.Pattern = "([url]http://[/url][^\x20]*)|(www[^\x20]*)"

Engine^Medlem sedan dec. 20003 887 inlägg

20 maj 2004 20:24#3

Ops... ett citatmisstag

ampyMedlem sedan feb. 20011 498 inlägg

20 maj 2004 20:34#4

Tack!