MySQL, campo TEXT -> String

[luciojr 0]

Estou a tentar substituir uma palavra de controle dentro de um campo text do MySQL.

 

Criei uma função que lê o campo TEXT (que é uma notícia) e substituir a palavra por um <img>.

 

O curioso é que, se na notícia não tiver nenhuma imagem (nenhum ), então funciona normal: ele mostra a notícia. Mas se no meio do TEXT tiver um

 

 

grato,

-lúciojr

[Mário Monteiro 179]

como esta o codigo dessa parte??

[luciojr 0]

como esta o codigo dessa parte??

<{POST_SNAPBACK}>

Function FormatarNoticia(texto, img1, desc1)    noticia = CStr(texto)    If (InStr(1,noticia, "[img1]", 0) > 0) Then        'pega a primeira parte do texto        Str = Left(noticia, InStr(noticia, "[img1]", 1) - 1)        'pega a segunda parte do texto        str2 = Right(noticia, Len(noticia) - (InStr(noticia, "[img1]", 1) + Len("[img1]")))        'monta a estrutura da tabela        tabela1 = "<table width=""160"" border=""0"" cellpadding=""0"" cellspacing=""0"" id=""imgTexto1""><tr><td width=""160""><img src=""" & img1 & """ width=""160"" height=""120"" /></td></tr><tr><td>" & desc1 & "</td></tr></table>"        noticia = Str & tabela1 & str2    End If        	'por fim substitui o chr(13) (enter) por um <br />	noticia = replace(noticia,chr(13),"<br />")    FormatarNoticia = noticiaEnd Function

na segunda linha (noticia = CStr(texto)) eu adicionei a função CStr justamente porque gerava um erro de 'type mismatch', mas ele permanece.

 

Acontece que: se eu tiver, no meio da notícia, a string [img1], ele não substitui pela tabela que eu desejo e, pior, gera o erro 'type mismatch'. Se NÃO existir a string [img1], ele passa sem problemas e mostra a notícia.

 

Parâmetros:

img1: um varchar, com o caminho da imagem

desc1: um varchar, descrição da foto

 

agora estou vendo, ao invés de fazer toda essa manobra pra partir a string em duas, eu poderia ter usado um Split... :wacko:

 

grato,

-lúciojr

[mkboy 1]

Coloca um CINT que talves resolva!