Lavoro con Stringhe

[cla80]

Ho una stringa chiamata ditta
con una lunghezza di caratteri fissa di 5.

Il mio problema lo propongo con un esempio:

0 0 0 0 1  voglio che visualizzi 1 senza gli zeri
0 0 1 0 0  voglio che visualizzi 100 senza gli zeri davanti
0 1 0 2 0  voglio che visualizzi 1020 senza gli zeri davanti
1 0 1 4 0  voglio 10140 - zeri da togliere non c'è ne sono.

come fare questo????

[Bromarock]

Lo converti come numero e lo visualizzi

[Mabi]

E' vero, altrimenti continua a lavorare con le stringhe usando una funzione che sarebbe una specie di LTrim ma per gli zeri.

Function LTrim_0(ByVal Str1 As String) As String
Dim Cont As Integer

LTrim_0 = Str1
For Cont = 1 To Len(Str1)
  If Mid(Str1, Cont, 1) = "0" Then
    LTrim_0 = Mid(Str1, Cont + 1, Len(Str1) - Cont + 1)
  Else
    Exit For
  End If
Next Cont
End Function