Konvertere Tekst

hmm...

måske kan dette bruges:
så kan du tilføje flere tegn som brugeren kan taste ind der skal fjernes i funktionen remove...

<%
function remove(strText)
strText = trim(strText)
strText = replace(strText, ".", "")
strText = replace(strText, "-", "")
strText = replace(strText, "_", "")
remove = strText
end function

function addColon(strText)
colon = left(strText, 2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2)
addColon = colon
end function

function convertText(strText)
strText = remove(strText)
if len(strText) = 12 then
strText = addColon(strText)
convertText = strText
else
Response.write "Der skete en fejl"
end if
end function

og så manglede der lige en smule til sidst..

du kalder så funktionen med:

response.write convertText("1234.5678.90AB")
%>

Hej,

Det ser helt fint ud... Jeg ved bare ikke lige hvordan jeg får min tekst fra mit tekstfelt over i "response.write convertText" statementet mit tekstfelt hedder address - Har du en ide til det?

-Anders

Tja... en ide kunne være følgende ;-)

response.write convertText(request.form("address"))

( altså hvis det er en form du henter det fra..)

Er det fra databasen..
Så er dette en mulighed i stedet:

set myConn = Server.createobject("adodb.connection")
myConn.open DIN streng til databasen

sql = "SELECT address FROM tabel"
set rs = myConn.execute(sql)

while not rs.eof
response.write convertText(rs("address")) & "<br>"
rs.movenext
wend

Kanont, takker mange gange - hvis du smider et svar så får du point!

En lille ting, kan man lave remove funktionen om således at det kun er følgende tegn der accepteres og resten fjernes - Det er noget lettere at sikre sig så.

Følgende tegn er OK i formattet:
A
B
C
D
E
F
1
2
3
4
5
6
7
8
9
0
:

Altså kun Hex Værdier skal tillades! Jeg vil også gerne have at lige meget om jeg skriver med UpperCase eller LowerCase så vises output kun i LowerCase.

-Anders.

jo...

hmm..
mon ikke sådan her:

<%
function remove(strText)
strArray = "a,b,c,d,e,f,1,2,3,4,5,6,7,8,9,0,:"
strText = trim(strText)
for (i = 0 to len(strText))
bogstav = mid(strText,i,1)
if not instr(strArray, bogstav) > 0 then
strText = replace(strText, bogstav, "")
end if
next
remove = strText
end function

function addColon(strText)
colon = left(strText, 2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2) & ":"
strText = right(strText,len(strText)-2)
colon = colon & left(strText,2)
addColon = colon
end function

function convertText(strText)
strText = LCase(strText)
strText = remove(strText)
if len(strText) = 12 then
strText = addColon(strText)
convertText = strText
else
Response.write "Der skete en fejl"
end if
end function

response.write convertText(request.form("tekst"))
%>
sådan her vil jeg mene det skal se ud i stedet så...