Ir para conteúdo
Fórum Script Brasil
  • 0

Replace


Xandão Grunge

Pergunta

Olá a todos!

Estou desenvolvento uma função em ASP que permite que usuários entre com as dados formatados, criando dois vetores com a mesma dimensão, sendo um em um deles contém os dados que deve procurar, e no outro os dados que devem substituir os procurados. É claro que tudo na respectiva ordem.

Segue o código:

<%

Dim vtxt, vhtm, resultado, br, valor

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set f=fs.OpenTextFile(Server.MapPath("teste.txt"), 1)

valor =f.ReadAll

f.Close

Set f=Nothing

Set fs=Nothing

response.Write(valor)

br=chr(13)&chr(13)

vtxt=array("", "", "", "", "", "", br, "[tópico]", "[p=e]", "[p=d]", "[p=c]", "[p=j]", "[/p]")

vhtm =array("<b>", "</b>", "<i>", "</i>", "<u>", "</u>", "<br />", "&raquo;&nbsp;", "<p align=""left"">", "<p align=""right"">", "<p align=""center"">",  "<p align=""justify"">", "</p>")

response.write UBound(vhtm)&"<br><table border=1>"

for i=0 to UBound(vtxt)

a=CStr(vhtm(i))

resultado = replace(valor, LCase(Cstr(vtxt(i))), LCase(CStr(vhtm(i))), 1, 1000,1)

response.Write "<tr><td>vhtm("&i&")=<input value="""&LCase(vhtm(i))&"""></td><td> vtxt("&i&")="&LCase(vtxt(i))&"</td></tr>"

next

'resultado = replace(valor, "", "<b>", 1, 1000,1)

response.Write("</table>")

response.Write(resultado)

%>

O engraçado é que a linha comentada onde tem o valor de busca e de substituição, funciona, não entendo o porque dos outros não funcionarem. Já tentei tirar as Funções Lcase() e CStr() mas sem sucesso. Já tentei colocar os elementos dos vetores em variaveis para depois buscar e também não. Alguém poderia me explicar o porque disto?

Desde já agradeço,

Xandão Grunge cool.gif

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      652k
×
×
  • Criar Novo...