Como Remover Zeros à Esquerda no Visual Basic

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

  1. CInt(Minhastring): Converte a string para um número inteiro, eliminando os zeros, e depois volta para string com CStr().
  2. Val(Minhastring): A função Val() interpreta o valor numérico da string, removendo os zeros, e Str() 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.


Posts Similares