Comando Replace. Não O Entendo :(
#1
Posted 30/06/2004, 01:15
Quero fazer algo como aqui no fórum, ou seja, substituir um "" por um , mas para várias "carinhas"
Eu vi este exemplo aqui no fórum:
<% Function MudarPalavra(palavra)
palavra = Replace(palavra, "a" "A")
palavra = Replace(palavra, "e" "E")
palavra = Replace(palavra, "i" "I")
palavra = Replace(palavra, "o" "O")
palavra = Replace(palavra, "u" "U")
MudarPalavra = palavra
End Function %>
E para chamar essa function, usa-se o comando: <%=MudarPalavra(aeiou)%>
Mas não consigo fazer funcionar.
Alguém pode me explicar oq é cada coisa?? E onde coloco esse negócio pra chamar a função??
Sou novato em asp
Valew, falows!!
#2
Posted 30/06/2004, 08:09
Sou novato em asp também, porém, acredito que o erro seja por causa que vc naum tah separando as letras com virgula, assim:
palavra = Replace(palavra,"a","A")
Tem isso ...
T+
#3
Posted 30/06/2004, 13:54
Olá lagoaseca
Sou novato em asp também, porém, acredito que o erro seja por causa que vc naum tah separando as letras com virgula, assim:
palavra = Replace(palavra,"a","A")
Tem isso ...
T+
Isso.
Se naum tiver erro na variavel, este comando está certo.
#4
Posted 30/06/2004, 14:33
olha aquiAlguém pode me explicar oq é cada coisa?? E onde coloco esse negócio pra chamar a função??
palavra = Replace(palavra, "a" "A")
ele substitui o a pelo A
palavra = Replace(palavra, "e" "E")
o e pelo E
e aqui
<%=MudarPalavra("aeiou")%>
ele troca todos os aeiou por AEIOU.
ps: o vbnao é case sensitive... nao testei, mas acho que essa funcao nao é 100% confiavel
#5
Posted 01/07/2004, 22:18
Tentei milhões de vezes e nada...
Agora eu pesso o seguinte:
Quem puder MONTAR a função replace toda para o código asp abaixo fazendo umas 3 linhas de substituições de caractere pra eu ver se consigo enteder eu agardeço!
Segue o código simples, feito no dreanweaver.....
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="file:///c|******.asp" -->
<%
Dim RECORDSET
Dim RECORDSET_numRows
Set RECORDSET = Server.CreateObject("ADODB.Recordset")
RECORDSET.ActiveConnection = MM_BlogBR_STRING
RECORDSET.Source = "SELECT texto FROM Blog"
RECORDSET.CursorType = 0
RECORDSET.CursorLocation = 2
RECORDSET.LockType = 1
RECORDSET.Open()
RECORDSET_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
RECORDSET_numRows = RECORDSET_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>Exemplo:</p>
<%
While ((Repeat1__numRows <> 0) AND (NOT RECORDSET.EOF))
%>
<p><%=(RECORDSET.Fields.Item("texto").Value)%></p>
<p> </p>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RECORDSET.MoveNext()
Wend
%>
<p> </p>
</body>
</html>
<%
RECORDSET.Close()
Set RECORDSET = Nothing
%>
... onde o destaque em vermelho é exatamente a coluna do BD que é chamada, e onde terá que ser feito os replaces!!
Alguém pode montar a função replace todinha??
Por favor, to precisando muito.
Valew!!!
Edição feita por: lagoaseca, 01/07/2004, 22:19.
#6
Posted 01/07/2004, 22:34
<% Function MudarPalavra(palavra) Mudarpalavra = Replace(palavra, "a", "A") Mudarpalavra = Replace(Mudarpalavra, "e", "E") Mudarpalavra = Replace(Mudarpalavra, "i", "I") Mudarpalavra = Replace(Mudarpalavra, "o", "O") Mudarpalavra = Replace(Mudarpalavra, "u", "U") End Function %>E na linha que vc irá fazer uso vc faz
<%=MudarPalavra(RECORDSET.Fields.Item("texto").Value)%>Caso dê erro tente:
<%Dim Exibicao Exibicao = MudarPalavra(RECORDSET.Fields.Item("texto").Value) Response.Write Exibicao%>
Aceite JESUS como seu único e suficiente salvador!
_____________-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.
#7
Posted 02/07/2004, 01:02
Afe!!
Já testei aqui e deu certo!!! Logo a primeira opção
Valew ae Info_Tec e a todos que me ajudaram
Falows!
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)