FORMATAR STRING

IRENKO 28/06/2016 21:15:35
#464221
Pessoal, tenho uma string:

002155544888877887

preciso formata-la para

00215554488887788-7

isso independente da quantidade de carateres, ou seja, colocar o [Ô]-[Ô] antes do último caracter.

é possivel?
FABRICIOWEB 28/06/2016 22:05:55
#464225
Text2.Text = Format(Text1.Text, [Ô]@@@@@@@@@@@@@@@@@-@[Ô])
IRENKO 28/06/2016 22:17:09
#464226
perto disso, o exemplo tem 18 caracteres porem se eu tenho 30 ou mais, coloca o [Ô]0[Ô]
FABRICIOWEB 28/06/2016 22:19:21
#464227
e so você usar case len para definir seus padroes

mas seria mais facil padronizar os tamanhos de suas string
IRENKO 28/06/2016 22:24:14
#464229
é q não tem padrão pode ser 5 ou 500.
FABRICIOWEB 28/06/2016 22:25:12
#464230
Select Case Len(MaskEdBox2.Text)


Select Case texto
Case Is =18
Text2.Text = Format(Text1.Text, [Ô]@@@@@@@@@@@@@@@@@-@[Ô])


Case Is =30
Text2.Text = Format(Text1.Text, [Ô]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@[Ô])


Case Else


End Select
KERPLUNK 28/06/2016 22:33:03
#464233
Citação:

:
Select Case Len(MaskEdBox2.Text)


Select Case texto
Case Is =18
Text2.Text = Format(Text1.Text, [Ô]@@@@@@@@@@@@@@@@@-@[Ô])


Case Is =30
Text2.Text = Format(Text1.Text, [Ô]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@[Ô])


Case Else


End Select


Tá falando sério?
FABRICIOWEB 28/06/2016 22:44:02
#464235
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
FABRICIOWEB 28/06/2016 22:47:07
#464237
to fazendo aqui
isso foi o modo rapido kkkkkkkkkkkkkkkkk
KERPLUNK 28/06/2016 22:53:59
#464239
é só usar uma expressão regular ou SubString...
LUIZCOMINO 28/06/2016 23:01:16
#464241 Resposta escolhida
veja ai amigo se te ajuda, basta adaptar a sua situação:

Format(TextBox1.Text, String(Len(TextBox1.Text) - 1, [Ô]@[Ô]) & [Ô]-[Ô])
Página 1 de 3 [21 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar