Tirando caracteres indesejados

[Clauido José 3]

Ola pessoal tenho que sistema onde tem um campo Observação este campo vem de um arquivo importado do excell este campo no excell vem preenchido com alguns caracteres tipo (,#,', etc estava dando erro notei que é por causa desses caracteres como posso fazer um replace para trocar esses caracteres por espaço

[Alberto Silva 0]

Olá Claudio,

 

Crie uma função para limpar o campo, por exemplo:

 

Function Limpa(input)
	dim lixo
	dim textoOK
	lixo = array ("#" , "'" )	 'Caracteres a serem limpos
	textoOK = input
	for i = 0 to uBound(lixo)
		 textoOK = replace( textoOK ,  lixo(i) , "")
	next
	LimpaLixo = textoOK
end Function

Para chamar a função:

 

Variavel = Limpa(Campo)

Um abraço.

 

Ola pessoal tenho que sistema onde tem um campo Observação este campo vem de um arquivo importado do excell este campo no excell vem preenchido com alguns caracteres tipo (,#,', etc estava dando erro notei que é por causa desses caracteres como posso fazer um replace para trocar esses caracteres por espaço

[Matter 0]

Ola pessoal tenho que sistema onde tem um campo Observação este campo vem de um arquivo importado do excell este campo no excell vem preenchido com alguns caracteres tipo (,#,', etc estava dando erro notei que é por causa desses caracteres como posso fazer um replace para trocar esses caracteres por espaço

 

 

campo = JOGO DA # VELHA

 

faz assim:

 

campo = replace(campo,"#"," ")

 

resultado:

 

campo = JOGO DA VELHA

[xanburzum 169]

dá uma procurada no laboratório de script k tem ótimos códigos...