eliminare gli zeri iniziali su codfisc numerico

[mschievano]

Dovendo confrontare un campo access che ha i dati lunghi 11 caratteri, con gli zeri iniziali, con una campo importato dinamicamente senza gli zeri, avete qualche script che mi può aiutare?

replace infatti toglie tutti gli zeri, non solo quelli iniziali.

es: 00123456789 deve essere uguale a 123456789

[willybit]

Ciao mschievano,

Partita IVA più che codice fiscale

per togliere gli zeri iniziali puoi usare il replace delle regular expression

Set RE = CreateObject("VBScript.RegExp")
RE.Pattern="^0*" 'cerca tutti gli zeri che partono da inizio stringa
stringa = "00123456789"
Response.Write stringa & "
" & RE.Replace(stringa,"")

[pietro09]

Se i due campi da confrontare sono numerici, basta convertirli on long.

000123 = 123, se sono numeri. Sono diversi se sono stringhe.

[mschievano]

bello lo script .

Nel frattempo ho scritto una minifunction

function trimzeri(s)
appoggio=""
if len(s)=0 then
trimzeri=""
else
k=1
do while (k<len(s)) AND (mid(s,k,1)="0" )
k=k+1
loop	
trimzeri=right(s,len(s)-k+1)
end if	
end function

grazie a tutti