Jump to content


Photo

Comando Replace. Não O Entendo :(


  • Faça o login para participar
6 replies to this topic

#1 lagoaseca

lagoaseca

    Novato no fórum

  • Usuários
  • 3 posts
  • Sexo:Não informado

Posted 30/06/2004, 01:15

Não consigo usar o Replace...
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 :D

Valew, falows!!

#2 amgnatureza

amgnatureza

    |O.o|

  • Usuários
  • 269 posts
  • Sexo:Não informado
  • Localidade:SP - interior
  • Interesses:ASP

Posted 30/06/2004, 08:09

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+

#3 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

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. (y)

#4 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 30/06/2004, 14:33

Alguém pode me explicar oq é cada coisa?? E onde coloco esse negócio pra chamar a função??

olha aqui

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.


B)

ps: o vbnao é case sensitive... nao testei, mas acho que essa funcao nao é 100% confiavel
www.andrewsmedina.com.br

#5 lagoaseca

lagoaseca

    Novato no fórum

  • Usuários
  • 3 posts
  • Sexo:Não informado

Posted 01/07/2004, 22:18

Puz pessoal não me xinguem, mas ainda não consegui fazer essa bendita função funcionar!! Fica dando erro na linha da Função, droga.


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&iacute;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>&nbsp;</p>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RECORDSET.MoveNext()
Wend
%>
<p>&nbsp;</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 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 01/07/2004, 22:34

A Função:
<% 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%>

A cada minuto está mais perto.
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 lagoaseca

lagoaseca

    Novato no fórum

  • Usuários
  • 3 posts
  • Sexo:Não informado

Posted 02/07/2004, 01:02

Puuuutttzzzz, era isso???
Afe!!

Já testei aqui e deu certo!!! Logo a primeira opção :)

Valew ae Info_Tec e a todos que me ajudaram :D

Falows!




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq