Zeros à esquerda em números armazenados como strings podem ser desnecessários e atrapalhar a manipulação dos dados. No Visual Basic, existem formas simples e eficientes para removê-los.
Exemplo Prático
Suponha que a variável Minhastring
contenha "000290"
. Podemos converter esse valor para remover os zeros à esquerda:
Dim Minhastring As String
Minhastring = "000290"
' Método 1: Convertendo para Integer e depois para String
Minhastring = CStr(CInt(Minhastring))
' Método 2: Utilizando a função Val
Minhastring = Str(Val(Minhastring))
Explicação
-
CInt(Minhastring)
: Converte a string para um número inteiro, eliminando os zeros, e depois volta para string comCStr()
. -
Val(Minhastring)
: A funçãoVal()
interpreta o valor numérico da string, removendo os zeros, eStr()
converte de volta para string.
Ambas as soluções funcionam bem, mas a primeira opção (CInt
) é mais recomendada quando a string representa um número válido, pois Val()
pode apresentar comportamentos inesperados com caracteres não numéricos.