Konventera

9 svar · 272 visningar · startad av fundrusse 8 maj 2003

fundrusseMedlem sedan jan. 2002286 inlägg

Trådstart8 maj 2003 08:04#1

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()

WibergMedlem sedan juni 20003 169 inlägg

8 maj 2003 08:24#2

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

kan ju funka...

fundrusseMedlem sedan jan. 2002286 inlägg

8 maj 2003 08:27#3

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

Jesper TMedlem sedan nov. 20017 144 inlägg

8 maj 2003 08:31#4

& nbsp; utan mellanslag

fundrusseMedlem sedan jan. 2002286 inlägg

8 maj 2003 08:42#5

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

Jesper TMedlem sedan nov. 20017 144 inlägg

8 maj 2003 08:48#6

Men blir det mellanslag över huvud taget med FormatNumber?

fundrusseMedlem sedan jan. 2002286 inlägg

8 maj 2003 08:51#7

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

fundrusseMedlem sedan jan. 2002286 inlägg

8 maj 2003 09:16#8

Ingen som vet lösningen?

VideMedlem sedan dec. 19998 577 inlägg

8 maj 2003 09:25#9

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

fundrusseMedlem sedan jan. 2002286 inlägg

8 maj 2003 09:57#10

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