|
|
Postada em 19/07/2009 14:22 hs
Olá, tenho um exemplo que é assim.
Tenho uma váriavel e gostaria de trocar os caracteres/palavras "X" para "Y"
dim texto as string
texto = "Oi, o William Gosta de Laranja. William Gosta de Acerola."
Uma função pra trocar meu nome "William" por exemplo, para "Jorge" e que trocasse em todos os locais que fossem encontrados.
Agora a real apliacação desse motivo.
Uso uma aplicação em VB pra gerenciar o banco de dados de um site que eu tenho em PHP e MySQL e envio alguma notícias pra ele via VB pois no PHP ele ta dando uns erros de acentuação, mas motivos a parte.
Gostaria que substituisse todos os VbCrLf por <br> se é que me entendem. (Acho que o sistema vai cortar o br.
Mas é isso ai, agradecido.
|
|
|
|
|
|
RICS
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2009 16:25 hs
Sub Substitute
'Choose a method to select the interval where are the words that you want to substitute
'Eg.:SelectAll or cells.select, etc...
Selection.Replace What:="Willian", Replacement:="Jorge", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
end sub
Is this.See you later!;)
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 19/07/2009 16:36 hs
colega se a aplicação é em vb então é algo fácil texto = "Oi, o William Gosta de Laranja. William Gosta de Acerola."
texto = Replace(texto,"William","Jorge") texto = Replace(texto, VBCrLF, "<br>") e é isto |
|
TÓPICO EDITADO
|
|
|
|
William Okano
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2009 19:50 hs
Vlw brother.... tinha pensado em fazer um "POG" aqui kkkkkkkkkkkkkkk
split(texto, vbcrlf)
join(texto, "<br>") kkkkkk
Vlw pela dica amigo, muito simples!!
Tópico Locked!
|
|
|
|
|
