Hej Alla glada programmerar vänner.... =)

Jag såller på att göra ett forum på min sida... och nu har jag lite problem.

Så här sparat jag själva meddelandet:
MyRS(3).Value = ConSTR(Server.HtmlEncode(TextBox2.Text))

ConSTR är en function som jag gjort för att omvandla alla
chr(13) + chr(10) till "<br>"

och sen tar den bort så man inte kan lägga in egen html-kåd..

så nu till min fråga....

om något skriver:
"titta på min sida www.nisse.se det är jätte bra"

så vill jag göra en function som omvandlar detta till:
"titta på min sida www.nisse.se den är jätte bra"

någon som kan hjälpa mig med att göra detta... så jag sparar tid...
jag kan säkert luska fram det... men jag skulle vilja ha en ganska
enkel och "snabb" kåd till att göra detta...

Tacksam för svar...

Ha det bra... =)

Mvh
Johan.NET

Hej Igen...

satt och pulade ihop dem här.... det är långt ifrån perfekt... tänk om man
skulle skriva "http://www.osv..." då blir det lite fel... om någon har en
bättre lösning så kläm fram med det.... =)

'************************
Private Function SetWWW(TXT As String) As String

1

For I = 1 To Len(TXT)

If UCase(Mid(TXT, I, 3)) = "WWW" Then

If I > 6 Then

If UCase(Mid(TXT, I - 6, 6)) = "HREF='" Then GoTo 2
If UCase(Mid(TXT, I - 2, 2)) = "'>" Then GoTo 2

End If

For J = I To Len(TXT) + 1

If Mid(TXT, J, 1) = " " Or J = Len(TXT) + 1 Then

TXT = Replace(TXT, Mid(TXT, I, J - I), "" & Mid(TXT, I, J - I) & "")

GoTo 1

End If

Next J

2

End If

Next I

SetWWW = TXT

End Function
'************************

Tack på förhand... =)

Mvh
Johan.NET

Hej.

Sök på 'MakeHREF' i forumet

Jag hittade denna funktion på webforum.nu:

<code>
Function GetUrl(ByVal strText)
Dim mDelimit
Dim re
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "$1")

re.Pattern = "(http://|https://|ftp://|mailto:)(\S)(\S+)"
strText = re.Replace(strText, "$2" & mDelimit & "$3")

re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "$1")
strText = Replace(strText, mDelimit, "")

GetUrl=strText

End Function
</code>

Oj, den kanske fungerar men jag har en egenskriven sån också...

<code>
Function urlify(var)
Dim strText
strText = ""
varSplit = Split(var, " ")

For i = LBound(varSplit) To UBound(varSplit)

If Left(Trim(varSplit(i)), 7) = "http://" Then
varSplit(i) = "" & varSplit(i) & ""
ElseIf Left(Trim(varSplit(i)), 3) = "www" Then
varSplit(i) = "" & varSplit(i) & ""
ElseIf InStr(varSplit(i), "@") <> 0 Then
varSplit(i) = "" & varSplit(i) & ""
End If

strText = strText & varSplit(i) & " "
Next
urlify = Trim(strText)
End Function
</code>

Fast den bygger på att jag hjälpte en skriva om sin funktion så den fungerar för honom...
Fast det föregående inlägget såg ju avancerat ut, så det fungerar nog minst lika bra, om inte bättre =)

MvH Thomas

Tack för hjälpen... =))))

/Johan.NET

vill bara påpeka att Plutten's kod är LITe buggig,
och att "Inget Namn"'s kod fungerar helt ok för mig!

Det kan vara bra att veta!

Mvh Thomas

Detta fungerar inte för mig...

>> Set re = New RegExp

Vad är det?

/Johan.NET