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, "[topico]", "[p=e]", "[p=d]", "[p=c]", "[p=j]", "[/p]")
vhtm =array("<b>", "</b>", "<i>", "</i>", "<u>", "</u>", "<br />", "» ", "<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]", "<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
