COMANDO PARA "SUBSTITUIR.."
Gostaria de saber como eu substituir todas palavras de um TextBox.
Tipo,meu programa ajuda a criar um script,tbm gostaria de saber como deixar tais comandos em outras cores.O que esta entre aspas o ";" no final...
Obrigado
TextBox.text = "ARTIGOS:"
Exemplo para substituir o dois pontos(:) por (;)
Dim iPos as integer
iPos = InStr(TextBox.Text,":") 'Guarda a posicao do (:)
if iPos <> 0 then
mid(TextBox.Text, iPos, 1) = ";" 'Substitui o : por ;
end if
Com relação a mudar as cores lembre-se que cada TextBox
só pode ter uma cor. Exemplo:
TextBox.ForeColor = vbgreen
ESPERO TER AJUDADO.
eu uso o "RTF" la
teria como?
Citação:For X = 1 To 1000
'Alterar o "show"
iPos = InStr(Text1.Text, "show")
If iPos <> 0 Then
Mid(Text1.Text, iPos, 4) = "mes"
End If
'Alterar o "setjob"
iPos = InStr(Text1.Text, "setjob")
If iPos <> 0 Then
Mid(Text1.Text, iPos, 6) = "jobchange"
End If
'Alterar o "setbase"
iPos = InStr(Text1.Text, "setbase")
If iPos <> 0 Then
Mid(Text1.Text, iPos, 7) = "changebase"
End If
'Alterar o "setsex"
iPos = InStr(Text1.Text, "setsex")
If iPos <> 0 Then
Mid(Text1.Text, iPos, 6) = "changesex"
End If
'Alterar o "digit"
iPos = InStr(Text1.Text, "digit")
If iPos <> 0 Then
Mid(Text1.Text, iPos, 5) = "input"
End If
'Alterar o "additem"
iPos = InStr(Text1.Text, "additem")
If iPos <> 0 Then
Mid(Text1.Text, iPos, 7) = "getitem"
End If
Next X
Erro:
Citação:Variable required - Can't assign to this expression
Nessa linha:
Mid(Text1.Text, iPos, 4) = "mes"
Citação:
Eu arrumei colocando uma variavel = Text1.text e substituindo,paro de dar o erro porém n substituia nada
exemplo abaixo:
For X = 1 To 1000
'Alterar o "additem"
Text1.Text = Replace(Text1.Text,"additem","getitem")
Next X
Agora mude as outras linhas com base no exemplo e veja
se dá certo...Qualquer duvida poste.
Com relação ás cores, você vai precisar substituir o TextBox por um RichTextBox, que aceita formatação e cores. No próprio sistema de ajuda do VB você vai encontrar vários exemplos de como formatar textos no RichText, incluindo nerito, itálico, cores, colunas, marcadores e numeração, subescrito/superescrito etc.
Obrigado mesmo \o/