LER CARACTER 1 POR 1

SILVERDRAGON 03/08/2007 15:53:04
#229378
Galera tenho uma textbox que preciso contar cada caracter q nela tiver. tipo assim:
Em um texbox tem o valor: 3004005006007008009001000

o que pretendo é:

em cada 3 colocações ele inseri uma barra d divisao tipo assim:
300/400/500/600/700/800/900/1000

porem tenho q contar os caracteres..como faço isso...???????????????????


grato
USUARIO.EXCLUIDOS 03/08/2007 16:03:11
#229380 Resposta escolhida
Use esta função:


Private Function ColocarBarras(str As String)
    For i = 1 To Len(str)
        ColocarBarras = ColocarBarras & Mid(str, i, 1)
        If i Mod 3 = 0 Then
            ColocarBarras = ColocarBarras & "\"
        End If
    Next
End Function



Para testar:
MsgBox ColocarBarras("3004005006007008009001000")
Tópico encerrado , respostas não são mais permitidas
Voltar