Formatera tal.

Vad händer om du kör en Cint() på talet?

Japp, det fungerar inte

Jag behöver troligtvis formatera talet så alla siffror står i rad utan mellanslag.

Skall man kanske leta efter mellanslag och ta bort dem?

///Patrik

Hello,
har du provat med att använda dig av Replace funktionen?

ex: varTal = Replace(FormatTal," ","")

och skicka sedan in varTal i databasen.....ej testat, gjort direkt från huvudet här och nu...

/PatrikB

Testat Trim(variabel)?
Vet inte om det tar bort mellanslag som är mella två siffror/bokstäver dock.

Kan vara värt ett försök dock.

Hej!

Jag testade både Trim och Replace (såsom du angav den) igår. Men man kanske kan ange ascii koderna eller något för space (255) och sedan då lägga in "". För den kanske inte gillar när man anger space som " ". Fast jag vet inte.

Några fler tips?

///Patrik

Då får man kanske göra det lite mer komplicerat då... testa detta:

<%
TAL = ditt_nummer
For i = 1 To Ubound(Len(TAL))
If IsNumeric(InStr(TAL,i,1))
var = var & InStr(TAL,i,1)
End If
Next

TAL = var
%>

Har inte testat det ännu, tog det direkt ur huvet...

Mitt tips är att alltid se till at datan är sparad oformaterad i databasen, och sedan att den formateras när man använder den på sidan. På så sätt blir den mer portabel, om man tex. vill exportera eller bearbeta datan.

/T

Hej!

Det fungerar inte Vide
Type mismatch: 'Ubound' säger den..

rad 54.

det är:

For i = 1 To Ubound(Len(TAL))

Hmm

///Patrik

Jag lyckas inte reproducera den här typen av fel, men kanske....

Sub mCint(tal)
tal=cstr(tal)
tal=replace(tal," ","")
mCint=CInt(tal)
End Sub

<%
TAL = ditt_nummer
For i = 1 To Ubound(Len(TAL))
If IsNumeric(InStr(TAL,i,1))
var = var & InStr(TAL,i,1)
End If
Next

TAL = var
%>

UBound tar en array som argument, LEN(Tal) returnerar en integer.

*skäms* ehrm... tänkte ju helt fel... detta har jag testat och det fungerar:

TAL = ditt_tal
For i = 1 To Len(TAL)
If Asc(Mid(TAL,i,1)) > 47 AND Asc(Mid(TAL,i,1)) < 57 then
var = var & Mid(TAL,i,1)
End If
Next

TAL = var

Hej!

Vill bara tillägga att det inte fungerar så bra såsom du skrev det.

Det måste vara så här:

For i = 1 To Len(TAL)
If Asc(Mid(TAL,i,1)) > 47 AND Asc(Mid(TAL,i,1)) < 58 then
var = var & Mid(TAL,i,1)
End If
Next

Men annars var det guld!

Emission
Jag fick inte ditt att fungera, men tack endå!

///Patrik

[Redigerat av Brimba den 25 maj 2000]

Slarvfel av mig nån annan som vet att det finns tio siffor

Med vides lösning blir tal en sträng (egentligen en variant), medan min lösning konverterade tillbaka till integer. Därmed kom ju problemet tillbaka, så det var ju inte så smart.

Jag har dock aldrig stött på det här. CInt funkar ju inte, men frågan är om inte CStr gör det.

t.ex.

"update tabell set tal=" & cstr(tal)"

osv.

Kanske inte, ändå..

Cint genererar bara error om en sträng inte innehåller nummeriska tecken, alltså när man tagit bort mellanslaget så borde det ju gå att konvertera till Integer, eller?

Hello,

undrar om det verkligen e så. Eftersom en session har startats med LCID ... och när du omvandlat så ligger du fortfarande kvar i samma session och således borde formateringen gå tillbaka till vad den var från början....hmmm, detta vart lite snurrigt men jag hoppas att ni förstår tänket ändå.

Det man skulle kunna göra är väl att passa variabeln till en annan sida där man stängt LCID sessionen och där göra "våra" konverteringar och in i databasen....eller är jag helt ute och cyklar...

//PatrikB