bbcode

[desisto 0]

to usando um bbcode que poe link no texto, mas esta dando pau quando tem a url de uma imagem...

assim

se tiver essa linha http://www.site.com.br/ num texto, ele cria um link

quando que chamo uma imagem, ele cria um link com a url da imagem e nao permite carregar a foto

 

Function ReplaceRegExp(strString, strPattern, strReplace)
	Dim RE: Set RE = New RegExp
	With RE
		.Pattern = strPattern
		.Global = True
		ReplaceRegExp = .Replace(strString, strReplace)
	End With
End Function

Function BBCodeToHTML(strString)
	strString = ReplaceRegExp(strString, "(http|https)(:\/\/[\w\-_]+)((\.[\w\-_]+)+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?", "<a href=""$1$2$3$5"" target=""_blank"">$1$2$3$5</a>")
	BBCodeToHTML = strString
End Function

 

 

tx = "<img src=""http://forum.imasters.com.br/style_emoticons/default/rolleyes.gif"" /><br><br>texto texto texto texto texto texto "

 

'response.Write (tx)

response.Write BBCodeToHTML(tx)

 

tem como criar uma condicao pra 'pular' quando for uma imagem?

[xanburzum 169]

você pode usar uma função para pegar a extenão do arquivo e caso seja foto fazer seu if.

 

Function peg_extensao(arquivo)
x = InStrRev(arquivo, ".")
If x = 0 Then
Extensao = "Arquivo inválido"
Else
y = Mid(arquivo, x)
If Len(y) < 3 Then
Extensao = "Arquivo inválido"
Else
Extensao = y
End If
End If
End Function
%>
<%= peg_extensao("default.asp")%>

mas podemos usar a propriedade GetExtensionName do obj FSO, para mostrar a extencaun do arq. tb.

 

GetExtentionsName(folderOrFile)

 

<% 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso_ex= fso.GetExtensionName(Server.Mappath("/default.asp")) 
Response.Write extension 
Set fso = Nothing 
%>

[desisto 0]

isso nao tem nada a ver com o que eu postei

eu ja tenho a funcao pra fazer isso

mas de qq forma valeu

 

alguem tem uma solucao?