APAGAR PARTE DE UM TEXTO EM UM TEXTBOX

JOSHUA 26/08/2010 17:33:05
#351405
tipo assim eu tenho o texto:

Ex: meu nome é josshua

dai eu queria que toda vez que aparecesse uma certa palavra ela automaticamente fosse deletada do textbox

Ex: Palavra nome

então ficaria

Meu é josshua.

outro exemplo:

Meu nome é joshua, qual o seu nome ?

ficaria assim :

meu é joshua, qual o seu

deu pra entender ? alguem ajuda ?
JOSHUA 26/08/2010 17:58:07
#351410
ai sera que alguem pode ajudar ? é urgente !!
JOSHUA 26/08/2010 18:09:40
#351414
aff ninguem vai ajudar mesmo ?
FANYPINK 26/08/2010 18:20:20
#351415
Citação:

:
aff ninguem vai ajudar mesmo ?



Eu entendi, poste um exemplo e/ou código do projeto para entender melhor.
MARCELO.TREZE 26/08/2010 18:33:20
#351417
simples colega

coloque dois Textbox em seu projeto e um commandbutton

Private Sub Form_Load()
text1.text = [Ô]meu nome é josshua[Ô]
text2.text = [Ô]nome[Ô] [ô] a palavra que será retirada do do texto
End Sub


Private sub Command1_Click()
text1.text = Replace(Text1.text,Text2.Text,[Ô][Ô])
End Sub
GERARDA 26/08/2010 20:58:00
#351427
oi que legal

retira palavras repetidas


Private Sub Command1_Click()
Text2.Text = [Ô][Ô]
Dim pegapalavra As String, minhapos As Double
Dim i As Integer
Dim vetor As Variant
vetor = Split(Text1.Text)
List1.Clear
For i = LBound(vetor) To UBound(vetor)
List1.AddItem vetor(i)
Next
minhapos = 0
recomeca:
pegapalavra = List1.List(minhapos)
For i = minhapos + 1 To List1.ListCount - 1
If pegapalavra = List1.List(i) Then
List1.RemoveItem i
List1.RemoveItem minhapos
minhapos = 0
GoTo recomeca
End If
Next
If minhapos < List1.ListCount Then
minhapos = minhapos + 1
GoTo recomeca
End If
For i = 0 To List1.ListCount - 1
Text2.Text = Text2.Text & [Ô] [Ô] & List1.List(i)
Next
End Sub

Private Sub Form_Load()
Text2.Text = [Ô][Ô]
Text1.Text = [Ô]Meu nome é joshua, qual o seu nome ?[Ô]
End Sub

num sei se tem uso para isso
Tópico encerrado , respostas não são mais permitidas
Voltar