Dim a As String = "0E00ABC0K" MessageBox.Show(a.Replace("0", String.Empty))
dim ch as string = "0E00ABC0K" dim ch2 as string = "" dim i as integer = 0 for i 1 to men(ch) if mid(ch,i,1) <> "0" then ch2 = ch2 & mid(ch,i,1) next i ' ch2 = "EABCK" , non testé.