CONTAR QUANTIDADE DE ZEROS A ESQUERDA
Boa Tarde,
Remover os zeros a esquerda estou conseguindo normalmente, porém antes de remover eu gostaria de contar quantos zeros serão removidos.
Ficando assim por exemplo:
Valor = 00012456
Zeros = 3 [ô]não consegui contar os zeros a esquerda antes de remover
Valor final = 12456
Muito obrigado pela colaboração.
Remover os zeros a esquerda estou conseguindo normalmente, porém antes de remover eu gostaria de contar quantos zeros serão removidos.
Ficando assim por exemplo:
Valor = 00012456
Zeros = 3 [ô]não consegui contar os zeros a esquerda antes de remover
Valor final = 12456
Muito obrigado pela colaboração.
como você está removendo os zeros?
Function TrimChar(ByVal Text As String, ByVal Characters As String) As String
Do While Left(Text, 1) Like [Ô][[Ô] & Characters & [Ô]][Ô]
Text = Mid(Text, 2)
Loop
[ô]mostra o resultado
TrimChar = Text
stracctnumber = Format(stracctnumber, String(15, [Ô]0[Ô]))
End Function
Private Sub Command1_Click()
Text16.Text = TrimChar(Text15.Text, [Ô]0[Ô])
end sub
Do While Left(Text, 1) Like [Ô][[Ô] & Characters & [Ô]][Ô]
Text = Mid(Text, 2)
Loop
[ô]mostra o resultado
TrimChar = Text
stracctnumber = Format(stracctnumber, String(15, [Ô]0[Ô]))
End Function
Private Sub Command1_Click()
Text16.Text = TrimChar(Text15.Text, [Ô]0[Ô])
end sub
um simples format resolve seu problema, veja:
result = Format(texto,[Ô]000000[Ô])
se você possuir 00000123456 vai ficar assim 123456
sevocê possuir 123 vai ficar assim 000123
oiu seja sempre seis caracteres.
result = Format(texto,[Ô]000000[Ô])
se você possuir 00000123456 vai ficar assim 123456
sevocê possuir 123 vai ficar assim 000123
oiu seja sempre seis caracteres.
Contar os zeros poderia ser simplesmente contando eles em um loop por exemplo, ou o que acho que é mais fácil, pegue o tamanho do texto antes de remover os zeros, pegue o tamanho depois de remover os zeros, então é só fazer o primeiro menos o segundo, a diferença entre os dois foi a quantidade removida.
novamente
o format
mantém um formatação com seis caracteres, se você tiver 50 numeros zeros a esquerda ele manterá apenas os 6 do format, sem calculo nenhum
o format
result = Format(texto,[Ô]000000[Ô])mantém um formatação com seis caracteres, se você tiver 50 numeros zeros a esquerda ele manterá apenas os 6 do format, sem calculo nenhum
Ok, concordo que é mais fácil, mas eu até reli tudo o tópico e não encontrei onde ele falou que quer deixar fixo com seis dÃgitos, se é isso que ele quer então está certo, agora se o que ele quer é remover os zeros da esquerda (o que ele já faz) e saber quantos foram removidos então o format não ajuda tanto assim.
Obrigado pela colaboração amigos.
Resolvi usando:
Text13.Text = Mid(Text15.Text, 1, InStr(Text15.Text, [Ô]simbolo ou numero que escolhi[Ô]) - 1)
Resolvi usando:
Text13.Text = Mid(Text15.Text, 1, InStr(Text15.Text, [Ô]simbolo ou numero que escolhi[Ô]) - 1)
Tópico encerrado , respostas não são mais permitidas