VARIAVEL EM TEXTO

JULINHOAC 24/11/2015 18:48:27
#454373
Boa tarde Pessoal,
Preciso de uma ajuda, em um projeto.
preciso fazer um a janela onde o usuário posso digitar um texto normalmente,
porem a qualquer momento ele pode colocar um a variável já predefinida,
para que quando ele imprimir saia no lugar da variável um testo de uma textbox.
ex: ele coloca o texto (Endereço:) depois escolhe a variável ( <variável endereço>)
ele ira poder definir todo o texto ao redor,
Ja ia me esquecendo , uso VB6
Grato diante mão pela ajuda.
ASHKATCHUP 24/11/2015 19:02:09
#454375 Resposta escolhida
é simples: utilize a função REPLACE

texto = textBox1.Text.Replace([Ô]!endereço![Ô], [Ô]Casa[Ô])
OMAR2011 24/11/2015 19:15:12
#454376
Seu post tinha que ser.
VB/VBA e não Vbnet.
JULINHOAC 24/11/2015 19:44:00
#454378
Obrigado, ajudou muito, só preciso agora de um código
para colocar um texto no meio de outro, onde o cursor do mouse estiver piscando.
NICKOSOFT 24/11/2015 20:53:58
#454380
sendkey atende?
JULINHOAC 24/11/2015 21:53:38
#454381
Acho que não,
Deixe tentar explicar melhor
to usando um objeto Richtextbox
Vamos supor que o usuário colou um grande texto e no meio deste texto ele tem que por uma variavel
Ex: ele cola o testo : [Ô]Meu nome é: [Ô]|[Ô] tenho ...[Ô] [Ô]|[Ô] <= este seria o cursor do mouse piscando na tela
ele precisa por uma variável para preencher o nome:,
alguém pode me dar uma luz.,
estou
ASHKATCHUP 25/11/2015 14:15:04
#454390
Para inserir um texto na posição do cursor, basta usar a propriedade SelText.

Essa propriedade funciona tanto para TextBox quanto para RichTextBox.

Exemplo:
Private Sub Label1_DblClick()
    Text1.SelText = [Ô]!cidade![Ô]
End Sub

Private Sub Label3_DblClick()
    Text1.SelText = [Ô]!estado![Ô]
End Sub

Private Sub Label4_DblClick()
    Text1.SelText = [Ô]!user![Ô]
End Sub


E, para substituir as [Ô]variáveis[Ô]:
Private Sub Command1_Click()
    Dim sTexto As String
    [ô]
    sTexto = Text1.Text
    [ô]
    sTexto = Replace(sTexto, [Ô]!cidade![Ô], [Ô]Caxias do Sul[Ô])
    sTexto = Replace(sTexto, [Ô]!estado![Ô], [Ô]RS[Ô])
    sTexto = Replace(sTexto, [Ô]!user![Ô], [Ô]Ash Katchup[Ô])
    [ô]
    Text1.Text = sTexto
    [ô]
End Sub
JULINHOAC 25/11/2015 20:02:19
#454400
Isto mesmo que eu precisava,
Muito obrigado a todos ,
Valeu muito.
adm, pode concluir este tópico.
ASHKATCHUP 25/11/2015 20:18:23
#454401
é tu mesmo quem tem que fechar o tópico e escolher a resposta que te ajudou.
Tópico encerrado , respostas não são mais permitidas
Voltar