FORMATAR STRING
Citação:Tá falando sério?
O Kerplunk é uma figura, fiquei imaginando aqui no caso
de [txt-color=#0000f0]Case 1 milhão[/txt-color]
kkkkkkkkkkkkkkkkkkkkkkkkkkkk
Parece simples
Texto = Mid(texto, 1, len(texto)-1) & [Ô]-[Ô] & iif(len(texto) > 30 , [Ô]0[Ô], strings.Right(texto,1))
Texto = Mid(texto, 1, len(texto)-1) & [Ô]-[Ô] & iif(len(texto) > 30 , [Ô]0[Ô], strings.Right(texto,1))
você pode ter mil caracters dessa forma funfa
Dim Linhas As Integer
Dim caract As String
caract = Right(Text1, 1)
Dim i As Integer
Dim Texto As String
Linhas = Len(Text1.Text)
Linhas = Linhas + 2
For i = 0 To Linhas
Texto = [Ô][Ô]
Texto = Texto & Format((Text1), [Ô]@[Ô])
Next i
Text2 = Mid(Texto, 1, Len(Texto) - 1) & [Ô]-[Ô] & caract
Dim Linhas As Integer
Dim caract As String
caract = Right(Text1, 1)
Dim i As Integer
Dim Texto As String
Linhas = Len(Text1.Text)
Linhas = Linhas + 2
For i = 0 To Linhas
Texto = [Ô][Ô]
Texto = Texto & Format((Text1), [Ô]@[Ô])
Next i
Text2 = Mid(Texto, 1, Len(Texto) - 1) & [Ô]-[Ô] & caract
melhor ainda a do luiz
Format(TextBox1.Text, String(Len(TextBox1.Text) - 1, [Ô]@[Ô]) & [Ô]-[Ô])
Format(TextBox1.Text, String(Len(TextBox1.Text) - 1, [Ô]@[Ô]) & [Ô]-[Ô])
Dim sTexto As String
sTexto = [Ô]0021555448888778870021555448888778870021555448888778870021555448888778870021555448888778870[Ô]
sTexto = Mid$(sTexto, 1, Len(sTexto) - 1) & [Ô]-[Ô] & Replace(sTexto, Mid$(sTexto, 1, Len(sTexto) - 1), [Ô][Ô])
MsgBox(sTexto)
sTexto = [Ô]0021555448888778870021555448888778870021555448888778870021555448888778870021555448888778870[Ô]
sTexto = Mid$(sTexto, 1, Len(sTexto) - 1) & [Ô]-[Ô] & Replace(sTexto, Mid$(sTexto, 1, Len(sTexto) - 1), [Ô][Ô])
MsgBox(sTexto)
Dim sTexto As String
sTexto = [Ô]0021555448888778870021555448888778870021555448888778870021555448888778870021555448888778870[Ô]
sTexto = Left(sTexto, Len(sTexto) - 1) & [Ô]-[Ô] & Right(sTexto,1)
sTexto = [Ô]0021555448888778870021555448888778870021555448888778870021555448888778870021555448888778870[Ô]
sTexto = Left(sTexto, Len(sTexto) - 1) & [Ô]-[Ô] & Right(sTexto,1)
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?
digamos q a variavel q pega o texto eh: x
Private Sub Form_Load()
x = [Ô]374293759834753475937568736753[Ô] [ô] pode conter quantos caracteres quizer
x_temp = Len(x)
x_inteiro = Left(x, x_temp - 1)
x_digito = Right(x, 1)
x = x_inteiro & [Ô]-[Ô] & x_digito
End Sub
002155544888877887
preciso formata-la para
00215554488887788-7
isso independente da quantidade de carateres, ou seja, colocar o [Ô]-[Ô] antes do último caracter.
é possivel?
digamos q a variavel q pega o texto eh: x
Private Sub Form_Load()
x = [Ô]374293759834753475937568736753[Ô] [ô] pode conter quantos caracteres quizer
x_temp = Len(x)
x_inteiro = Left(x, x_temp - 1)
x_digito = Right(x, 1)
x = x_inteiro & [Ô]-[Ô] & x_digito
End Sub
Bom dia,
Mais idéia.
Dim X As String, Y As String, L As integer
X = [Ô]002155544888877887[Ô]
L = Len(X): Y = Left(X,L-1) & [Ô]-[Ô] & Mid(X,L)
Resulta em:
[Ô]00215554488887788-7[Ô]
Desculpem se fui inoportuno.
Um abraço,
AAS
Mais idéia.
Dim X As String, Y As String, L As integer
X = [Ô]002155544888877887[Ô]
L = Len(X): Y = Left(X,L-1) & [Ô]-[Ô] & Mid(X,L)
Resulta em:
[Ô]00215554488887788-7[Ô]
Desculpem se fui inoportuno.
Um abraço,
AAS
kkkk..... não faltou maneiras de como fazer
Valeu pessoal!!! Agora quem ficou com a batata quente foi eu! kkkkkk! Quem vou pontuar??? Todas sugestões postadas são praticas.
Agradeço pelo empenho! Vou fazer uma escolha.
Agradeço pelo empenho! Vou fazer uma escolha.
Tópico encerrado , respostas não são mais permitidas