Min funktion vägrar att funka :(

5 svar · 269 visningar · startad av Ricki 1 juni 2001

RickiMedlem sedan juni 2000373 inlägg

Frågan1 juni 2001 20:46#1

Tjena,
Vad är det för fel på detta?

		Function ForumCode(input)

			input = CStr(Replace(input,"<","<"))
			input = CStr(Replace(input,">",">"))
			input = CStr(Replace(input,":)","<img src=""grafik/smily1.gif"">"))
			input = CStr(Replace(input,":(","<img src=""grafik/smily2.gif"">"))
			
			Dim URL_Start
				URL_Start = InStr(input, "[URL]") + 5
			
			Dim URL_Stop
				URL_Stop = InStr(input, "[/URL]")
				
			Dim Langd
				Langd = URL_Stop-URL_Start
				Langd = Int(Langd)
			
				'Response.Write Langd
			
			Dim Flopp
				Flopp = Mid(input, URL_Start, Langd)
			
			input = CStr(Replace(input,"[URL]","<a href="""))
			input = CStr(Replace(input,"[/URL]",""" target=""_blank"">" & Flopp & "</a>"))
			
			
			
			input = CStr(Replace(input, vbCrLf, "<br>"))
			
			ForumCode = input

		End Function
		%>

Jag får fel på Mid(...)

Snälla, hjälp mig!

------------------
Hälsningar Ricki
revolution | mail

LarsGMedlem sedan dec. 200012 464 inlägg

1 juni 2001 21:04#2

Om texten inte finns så blir langd negativt. Du borde nog lägga in en check för det.

Dim URL_Start
URL_Start = InStr(input, "[URL]") + 5

if URL_Start > 5 then
Dim URL_Stop
URL_Stop = InStr(input, "[/URL]")

Dim Langd
Langd = URL_Stop-URL_Start
Langd = Int(Langd)

'Response.Write Langd

Dim Flopp
Flopp = Mid(input, URL_Start, Langd)

input = CStr(Replace(input,"[URL]","<a href="""))
input = CStr(Replace(input,"[/URL]",""" target=""_blank"">" & Flopp & "</a>"))

end if

Vad får du för fel?

------------------
essentitia preter non sans multiplicandum

RickiMedlem sedan juni 2000373 inlägg

1 juni 2001 21:08#3

Tckar, det var som du sade, men det löste sig tack var dej, tack! :)

------------------
Hälsningar Ricki
revolution | mail

PatrikBMedlem sedan mars 20002 836 inlägg

1 juni 2001 23:20#4

Vad händer om man "glömmer" att skriva ????

cya,
PatrikB

------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*

RickiMedlem sedan juni 2000373 inlägg

2 juni 2001 06:11#5

Tjenare,
Det har jag faktiskt inte tänkt på, får prova det nu!

------------------
Hälsningar Ricki
revolution | mail

VideMedlem sedan dec. 19998 577 inlägg

2 juni 2001 09:54#6

Jag skulle rekommendera en regular expression i detta fallet... ett gyllene tillfälle...

Glömmer du nu så kommer sidan inte innehålla korrekt html...

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu