26 replies to this topic

[Unrealed]

Olá a todos, por favor, gostaria de pedir ajuda com o comando Replace, por exemplo:

texto = "Olá, meu nome é Fernando, meu pai também se chama Fernando"
Replace(texto,"Fernando","Eduardo")

Ficaria:
"Olá, meu nome é Eduardo, meu pai também se chama Eduardo"

Mas... e se eu quisesse substituir 2 strings? Por exemplo:
"meu" por "my" ; "Fernando" por "Eduardo", ficaria:

"Olá, my nome é Eduardo, my pai também se chama Eduardo"

Se alguém souber, seria muito grato.
Obrigado.

[LeoB]

Assim:

Replace(Replace(texto,"Fernando","Eduardo"),"meu","my")

[Unrealed]

Muito Obrigado. Qualquer dúvida sobre C++, UC to ai...

[Luis Otávio]

vou seguir o topico...
e para dar replace em todas menos na primeira?

http://batata//comigo//otavio/

queria deixar a primeira // e dar um replace depois em todas duplicadas... como eu faria?

[_MX_]

não testei mas acho que funciona

texto="http://batata//comigo//otavio/"
posicao=instr(texto,"//")
texto2=replace(texto,"//","/",posicao)

[Generation]

Se for remover o http:// também é isso mesmo _MX_, pensei mas nao respondi, a não ser que voce remova e depois adicione Luis Otavio ai vai funcionar, vide abaixo.

Assim:

<%
texto = "http://batata//comigo//otavio/"
texto=replace(texto,"//","/",8) 'Removemos o http:// e substituimos o // por /
texto= "http://"&texto 'Adicionamos o http:// de volta ao inicio
Response.Write texto
%>

Deve até ter uma forma + facil

[]'s

[_MX_]

Se for remover o http:// também é isso mesmo _MX_, pensei mas nao respondi, a não ser que voce remova e depois adicione Luis Otavio ai vai funcionar, vide abaixo.

Assim:

<%
texto = "http://batata//comigo//otavio/"
texto=replace(texto,"//","/",8) 'Removemos o http:// e substituimos o // por /
texto= "http://"&texto 'Adicionamos o http:// de volta ao inicio
Response.Write texto
%>

Deve até ter uma forma + facil

[]'s

posso até estar ficando doido mas do jeito que você fez o resultado seria:

http://http://batata/comigo/otavio/

porque o nº 8 indica que ele vai começar a substituir a partir do 8º caractere, mas não exlui esses caracteres .

O Otávio é o rei do ASP, duvido que não saiba fazer isso, mas foi bom o teste.

[Generation]

http://www.agenciacr...om.br/teste.asp


[]'s

[_MX_]

bom, contra fatos não há argumentos, então retiro o que disse e tá resolvido a parada.

[LeoB]

Gente, que confusão que vocês fizeram. Só assim já resolve:

<%

Texto = "http://batata//comigo//otavio/"

Texto2 = "http://" & Replace(Texto, "//", "/", InStr(1, Texto, "//")+2, -1)

%>

Usei o -1 ali, porque a documentação diz que o quarto parâmetro deve ser usado em conjunto com o quinto. Como não testei, preferi não arriscar.

http://msdn.microsof...sfctReplace.asp

-------------------------

Agora que eu vi que o Replace corta o texto. Acrescentei o http no código. Entendi porque o Generation fez daquele jeito.

Edição feita por: LeoB, 17/07/2005, 10:04.

[Luis Otávio]

valeu pelas ajudas ai...
funfo, so num testei... e esqueci de mensionar este caso:

Texto = "http://batata//comigo//otavio/index.asp?site=http://site//pagina//otavio/index.asp"

ele num poderia substituir as barras do outro Http://, so podia substituir se naum tivesse o http://, entaum, eu fiz gambiarra, num sei se é a melhor forma, mas tb funcionou...

ficou assim:

LinksFinaisArrumados = Replace(LinksFinaisArrumados,"http://","[!@!]")
LinksFinaisArrumados = Replace(LinksFinaisArrumados,"//","/")
LinksFinaisArrumados = Replace(LinksFinaisArrumados,"[!@!]","http://")

bem, se quiserem ver funfando...
to montando um buscador, e ele tem q me retornar todos os links de uma página...
testem ai.. mas num reparem para erros adicionais, q ta em faze de testes.. hehehe

http://www.ipugle.com.br/

_MX_

O Otávio é o rei do ASP, duvido que não saiba fazer isso, mas foi bom o teste.

as vezes num sei mesmo.. hehehe, ou é o sono pegando... ou pior, vc fica tanto tempo encima de uma coisa, que acaba naum conseguindo mais ver os erros... dai so indo dormir... ou perguntando no forum

[Unrealed]

Eu entendi o que você quer fazer, só não sei explicar porque nem eu mesmo sei o que eu fiz aqui pra dar certo, ficou uma gambiarra mas funciona legal:

<%

dim OwnItems, ItemSearch, newEspace, ItemCount, MaxItem, ItemPos, LastPos, PreNewItems, NewItems
OwnItems = "BBFFFFBBAAFFAAAAFFBBBBAAFFAA"
ItemSearch = "AA"
newEspace = "FF"

ItemCount = 0
MaxItem = 3
ItemPos = 0
LastPos = 0

PreNewItems = ""
NewItems = ""

int Sucess
Sucess = 0

for i=1 to MaxItem

if i=1 then
ItemPos = InStr(ItemPos+1, OwnItems, ItemSearch)
end if

if ItemPos > 0 then
ItemPos = InStr(ItemPos+1, OwnItems, ItemSearch)
ItemCount = ItemCount+1

if i=MaxItem then
LastPos = ItemPos
end if

end if

next

if ItemCount >= MaxItem then
PreNewItems = Replace(Left(OwnItems,LastPos-1+Len(ItemSearch)),ItemSearch,newEspace)
NewItems = PreNewItems + Right(OwnItems,len(OwnItems) - len(PreNewItems))
Sucess = 1
end if

if Sucess <> 1 then ShowBool = "Não" else ShowBool = "Sim"

response.write("OwnItems = " & OwnItems & "<br>")
response.write("ItemSearch = " & ItemSearch & "<br>")
response.write("newEspace = " & newEspace & "<p>")
response.write("ItemCount = " & ItemCount & "<br>")
response.write("LastPos = " & LastPos & "<p>")
response.write("PreNewItems = " & PreNewItems & "<br>")
response.write("NewItems = " & NewItems & "<p>")
response.write("ShowOwnItems = " & Replace(Replace(Replace(OwnItems,"FF","Nada, "),"AA","<b>Ameixa</b>, "),"BB","Bola, ") & "<br>")
response.write("ShowNewItems = " & Replace(Replace(Replace(NewItems,"FF","Nada, "),"AA","<b>Ameixa</b>, "),"BB","Bola, ") & "<p>")
response.write("Função: O Código consiste em substituir as " & MaxItem & " primeira(s) string(s) :: <b>" & ItemSearch & "</b> :: por :: <b>" & newEspace & "</b><br>")
response.write("OwnItems possui " & MaxItem & " string(s) denominadas :: " & ItemSearch & " :: ? <b>" & ShowBool & "</b>")

%>

Os Resultados foram:

OwnItems = BBFFFFBBAAFFAAAAFFBBBBAAFFAA
ItemSearch = AA
newEspace = FF
ItemCount = 3
LastPos = 15

PreNewItems = BBFFFFBBFFFFFFFF
NewItems = BBFFFFBBFFFFFFFFFFBBBBAAFFAA

ShowOwnItems = Bola, Nada, Nada, Bola, Ameixa, Nada, Ameixa, Ameixa, Nada, Bola, Bola, Ameixa, Nada, Ameixa, 
ShowNewItems = Bola, Nada, Nada, Bola, Nada, Nada, Nada, Nada, Nada, Bola, Bola, Ameixa, Nada, Ameixa, 

Função: O Código consiste em substituir as 3 primeira(s) string(s) :: AA :: por :: FF
OwnItems possui 3 string(s) denominadas :: AA :: ? Sim

No caso, eu estipulei 3, ou seja, ele substitui as 3 primeiras strings XX por YY, o resto permanece.

T+ e vlw gente.

Edição feita por: Unrealed, 17/07/2005, 22:05.

[_MX_]

isso sim é matar uma formiga com um canhão de absorção atômica!!!
tem manual disso aí???

[Unrealed]

huahauahua, vamos lá:

MinhaString: "O céu é azul, o mato é azul, o monitor é azul, bla bla bla"
Eu quero substituir as 2 primeiras strings "azul".

ProcuroPor: "azul"
SubstituoPor: "verde"

Não posso usar Replace em tudo, só quero substituir as 2 primeiras.

Então: Eu pego a posição da 2ª String, usando a função InStr - 1, pq:
Se a 2ª string for "Fernando", ele marca a posição "F", e eu quero depois desta String inteira, depois do "Fernando". Então conto quant de LENs de "Fernando" e subtraio 1, ou seja:

"Fernando ", Posição 41 o "F". " " estará na posição len("Fernando") - 1 pois já começa no "F".

depois desta posição-1 eu crio 1 string.
NovaString = "O céu é azul, o mato é azul"

depois dela, eu crio outra:
SuperNovaString = ", o monitor é azul, bla bla bla"

então substituo na NovaString "azul" por "verde", o que der SOMO com a SuperNovaString.

Se vocês não entenderam eu vendo o manual por R$1,99.

flws.

[Luis Otávio]

não mudando muito o caminho do tópico, mas ainda mantendo os desafios.. e dar um replace assim

Variavel = "<lindo, bonito inteligente> otavio <e muito mais que vc pode imaginar>."

queria manter so o q esta entre >< que seria "otavio" o resto fica vazio..

resultado

Variavel = "otavio"

Deem uma ajuda ai pessoal sou novo no ASP