Função para Limpar campo

[mistério 0]

Tenho o seguinte código:

Function LimpaHTML(matriz)
	Do While True
	ini = InStr(1,matriz,"<")
	If ini = 0 Then Exit Do
	fim = InStr(ini,matriz,">")
	parcial = mid(matriz,ini,fim-ini+1)
	matriz = Replace(matriz,parcial,"")
	Loop
	LimpaHTML = matriz
End Function

Quando só a textos no campo, tudo roda perfeitamente, mas quando tenho uma imagem dá erro na linha: parcial = mid(matriz,ini,fim-ini+1).

 

Como posso solucionar o problema ?

[Luis Barbosa 0]

Posta ae qual o erro que da :)

[mistério 0]

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0005)
Chamada de procedimento ou argumento inválido: 'mid'

[Luis Barbosa 0]

Mid()

Separa um conjunto de caracteres dentro de uma string.

 

bom... pelo que entendi você ta tentando separar um conjunto de caracteres de uma imagem.. acho q não tem como dar certo nao hehe

 

texto funciona pq é tratado como string mesmo.. + c tentar com arquivos ou arrays nao vai funcionar mesmo...