Konventera

En funktion som denna

Function ConvPriceImg(Str)
If NOT Len(Str) < 1 Then
 For i = 1 To Len(str)
  StrChar = "<img src=""" & Mid(str, i, 1) & ".gif"">"& VBCrLf
  StrOut = strOut & strChar
 Next
 ConvPriceImg = StrOut
End If
End Function

Hur skall jag göra för att kunna få ut "Mellanslag, komma och punkt oxå när jag använder funktionern på en FormatNumber()

 replace(Str,".","<img src=""punkt.gif"">")

kan ju funka... :)

Jo jag får ut allt utom mellanslaget..
Hur skriver man ut mellanslag i ASP?

& nbsp; utan mellanslag

Men det blir ingen & nbsp när man har FormatNumber("12 3")
och jag kan inte använda Replace(sd, " ", "dsaf") heller

Men blir det mellanslag över huvud taget med FormatNumber?

FormatNumber("12345 6") blir 123 456,00

Ingen som vet lösningen?

Vad har du för LCID?

Testa runt här och se vad du får: http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/LCID.asp&LCID=1053#lang

Jag löste det såhär:

Function ConvPriceImg(Str)
 Set objRegExp = New RegExp
 objRegExp.Global = True

 objRegExp.Pattern = "([0-9,.])"
 Str = objRegExp.Replace(Str,"<img src=""$1.gif"">")

ConvPriceImg = Str
End Function