COMO RETIRAR CARACTERES DE UM TEXTO?
Estou com um problema em um programa, preciso retirar dois ou mais caracteres de um texto.
Ex: O Usuário digita [Ô]MANUTENÇÃO[Ô] em um txt, eu poreciso retirar as duas ou tres letras desta palavra.
Alguém tem um exemplo para me passar?
Obrigado
Ex: O Usuário digita [Ô]MANUTENÇÃO[Ô] em um txt, eu poreciso retirar as duas ou tres letras desta palavra.
Alguém tem um exemplo para me passar?
Obrigado
Não entendi muito bem o que você quer, quando diz [Ô]eu preciso retirar dois ou mais caracteres do texto[Ô]
1) Você quer apenas os três primeiros caracteres do conteúdo da variável?
Dim txt As String
txt = [Ô]MANUTENÇÃO[Ô]
MsgBox Mid(txt, 1, 3)
[ô] o resultado exibido será MAN
2) Você quer substituir o [Ô]Ç[Ô] por [Ô]C[Ô] e o [Ô]Ã[Ô] por [Ô]A[Ô] ?
Dim txt As String
txt = [Ô]MANUTENÇÃO[Ô]
txt = Replace(txt, [Ô]Ç[Ô], [Ô]C[Ô])
txt = Replace(txt, [Ô]Ã[Ô], [Ô]A[Ô])
MsgBox txt
[ô] o resultado exibido será MANUTENCAO
[txt-color=#e80000]Se não for isso, seja mais claro na sua explicação...[/txt-color]
1) Você quer apenas os três primeiros caracteres do conteúdo da variável?
Dim txt As String
txt = [Ô]MANUTENÇÃO[Ô]
MsgBox Mid(txt, 1, 3)
[ô] o resultado exibido será MAN
2) Você quer substituir o [Ô]Ç[Ô] por [Ô]C[Ô] e o [Ô]Ã[Ô] por [Ô]A[Ô] ?
Dim txt As String
txt = [Ô]MANUTENÇÃO[Ô]
txt = Replace(txt, [Ô]Ç[Ô], [Ô]C[Ô])
txt = Replace(txt, [Ô]Ã[Ô], [Ô]A[Ô])
MsgBox txt
[ô] o resultado exibido será MANUTENCAO
[txt-color=#e80000]Se não for isso, seja mais claro na sua explicação...[/txt-color]
Desculpe , eu não me expressEi muito bem; preciso retirar sempre os dois ou tres ÚLTIMOS caracteres de um texto, qualquer texto, não importando o seu tamanho
Dim Texto as string
Texto=microsoft.visualbasic.right(VARIAVEL,3)
Texto=right(VARIAVEL,3) ou left
Se não me engano
Texto=microsoft.visualbasic.right(VARIAVEL,3)
Texto=right(VARIAVEL,3) ou left
Se não me engano
[Ô]nome da textbox[Ô].text = right([Ô]nome da textbox[Ô].text ,3)
ALEVALE, Não consegui remover os tres útimos caracteres com isso, só conseui mostrá-los
Olá LEANDROR10, eu fiz isso usando o método right, ele me mostra os últimos, mas como eu posso retirar esses caracteres do texto digitado . Exemplo Txt1.tex= [Ô]MANUTENCAO[Ô] , eu gostarias de tirar os três últimos caracteres, ficaria assim, Resp= [Ô]MANUTEN[Ô]
Text1.Text = [Ô]MANUTENCAO[Ô]
If Len(Text1.Text) > 2 Then
MsgBox Left(Text1.Text, Len(Text1.Text) - 3)
Else
MsgBox [Ô][Ô]
End If
Muito obrigado FEDERHEN, deu certo, valeu, Deus te abençoe.
Private Sub [Ô]NOME DA TEXTBOX[Ô]_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
[Ô]NOME DA TEXTBOX[Ô].Text = Left([Ô]NOME DA TEXTBOX[Ô].Text, Len([Ô]NOME DA TEXTBOX[Ô].Text) - 3)
End If
End Sub
APOS APERTAR ENTER O TEXTBOX PREENCHE COM O NOME DA TEXTBOX CORTADA.
If KeyAscii = 13 Then
[Ô]NOME DA TEXTBOX[Ô].Text = Left([Ô]NOME DA TEXTBOX[Ô].Text, Len([Ô]NOME DA TEXTBOX[Ô].Text) - 3)
End If
End Sub
APOS APERTAR ENTER O TEXTBOX PREENCHE COM O NOME DA TEXTBOX CORTADA.
Tópico encerrado , respostas não são mais permitidas