göra om http:// till länkar men minska länk namnet

ingen?

Om du kör RegExp.Execute() så får du ut ett Matches-objekt som innehåller flera Match-object:

Set Matches = RegExp.Execute()

Matches(0).Value = innehåller själva träffen.

På så sätt kan du själv sköta ersättningen i strängen och göra om texten inom a-taggen till precis så du vill ha det.

(Hinner inte att skriva mer, måste med tåget... :p )

Förstår inte riktigt hur man ska gå till väga...

P.s. hoppas du hann med tåget :) D.s.

Ingen? :(

Ska se om jag kan hjälpa dig. Ska bara se hur wF gör om det.
http://www.fragbite.com/?newsID=5773&9C67D30A-7DBF-43DC-95D6-919A2A9CECCF
https://www.fragbite.com/?newsID=5773&9C67D30A-7DBF-43DC-95D6-919A2A9CECCF&5773&9C67D30A-7DBF-43DC-95D6-919A2A9CECCF

Så här kan du göra:

function FormatPost(ByVal strText)
	dim objRegExp
	
	set objRegExp = new RegExp
	
	objRegExp.Global = true
	objRegExp.IgnoreCase = true 'No case sensitive
	
	objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url])(\S)(\S+)"
	strText = objRegExp.Replace(strText, "<a href=""$1$2$3"" target=""_blank"">$2$3</a>")
	
	objRegExp.Pattern = "(mailto:)(\S)(\S+)"
	strText = objRegExp.Replace(strText, "<a href=""$1$2$3"">$2$3</a>")
	
	objRegExp.Pattern = "(img://(\S)(\S+))"
	strText = objRegExp.Replace(strText, "<img src=""http://$2$3"" alt=""http://$2$3"">")
	
	objRegExp.Pattern = "\(.*?)\"
	strText = objRegExp.Replace(strText, "<a href=""http://$1"" target=""_blank"">$2</a>")
	
	objRegExp.Pattern = "\[mail=(.*?)\](.*?)\[/mail]"
	strText = objRegExp.Replace(strText, "<a href=""mailto:$1"">$2</a>")
	
	[b]objRegExp.Pattern = "(<a [^>]+>)([\s\S]{35}?)([\s\S]+?)([\s\S]{15}?)(</a>)"
	strText = objRegExp.Replace(strText, "$1$2...$4$5")[/b]
	
	set objRegExp = nothing
	
	FormatPost = strText
end function

35 är antalet tecken innan ... och 15 antalet efter. Går så klart att ändra efter egna behov.

wF la visst in mellanslag mellan > och ). Ta bort dem.

Får detta fel meddelande:

Microsoft VBScript runtime error '800a1399'

Syntax error in regular expression

/check.asp, line 49

Rad 49

strText = objRegExp.Replace(strText, "<a href=""http://$1"" target=""_blank"">$2</a>")

Den koden är den som var med från början. Den lägger jag mig inte i. :p
Men när jag kollar på koden så verkar patternet se mycket underligt och jag förstår inte vad det är till för.

Det mönstret är knäppt. Det tar all text inom paranteser och gör om det till en länk?

Det verkar vara meningslöst. Ta helt enkelt bort dom två raderna eller åtminstonde kommentera ut dom.

Hittade felet WF tog bort en bit av koden.

objRegExp.Pattern = "\[ url =(.*?)\](.*?)\[/ url ]"
Fast hakarna ihop med url.
(se bifogad fil).

	objRegExp.Pattern = "(<a [^>]+> )([\s\S]{35}?)([\s\S]+?)([\s\S]{15}?)(</A> )"
	strText = objRegExp.Replace(strText, "$1$2...$4$5")

Hjälpte inte visar fortfarande hela länken

Och du har tagit bort mellanslagen?
Och länknamnet är längre än 40 tecken..?

yepp och länken är längre än 40 tecken.