Seguinte, eu tenho um texto que vem do campo de um formulário chamado "texto".
Eu preciso ler palavra por palavra deste "texto", fazer uma busca da palavra atual em um banco de dados, se existir, criar um link nesta palavra, senão somar ela ao resto do texto e continuar o processo até a última palavra.
Vou passar o código que estava tentando ... mas está meio enrrolado, dê uma olhada:
Do While len(texto_d) > 0
texto_d_c = Left(texto_d, InStr(1, texto_d, " ", 1) -1)
sQueryd = "SELECT * FROM dicionario WHERE PALAVRA = '" & texto_d_c & "';"
Set RsQueryd = Connd.Execute(sQueryd)
if RsQueryd.eof or RsQueryd.bof then
texto_d_c_f = texto_d_c_f & " " & texto_d_c
else
texto_d_c_f = texto_d_c_f & " <strong>[DICIid="& RsQueryd("ID")&"/]" & texto_d_c & "[/DICI]</strong>"
end if
texto_d = Right(texto_d, len(texto_d) - InStr(1, texto_d, " ", 1))
response.Write(texto_d)
Loop
texto = texto_d_c_f
O problema maior está no while ... como fazer até a ultima palavra?Agradeço desde já eum tiver alguma idéia!
Até mais
