Function bildtext(bytText)
For i = 1 To Len(bytText)
Response.Write "<img src=/gfx/rub1/" & Mid(bytText,i,1) & ">"
Next
bildtext = bytText
End Function
Trådstart#1
Jag har försökt att ersätta en text med bilder i form av bokstäver. Jag började med Replace men sedan kom jag på att man kunde köra med for... next sats... Jag vill alltså inte göra det med RegExp.
Function bildtext(bytText)
For i = 0 To Len(bytText)
Response.Write "<img src=/gfx/rub1/" & Mid(bytText,i,1) & ">"
Next
bildtext = bytText
End Function
Vad är fel? Får error: Invalid procedure call or argument: 'Mid'