Limpar texto para cadastro

[Patrique 0]

Fala ae pessoal, tudo tranquilo? senguinte, repare neste texto

 

AC
 
		   Rio Branco
		   Abrahão Alab
		 
		 
	   
 
		 
			   
				 
				   69907000
				 
				  
					 Avenida Ceará   de 2514/2515 a 3805/3806AC
 
		   Rio Branco
		   Abrahão Alab
		 
		 
	   
 
		 
			   
				 
				   69907190
				 
				  
					 Rua Ari Rodrigues AC
 
		   Rio Branco
		   Abrahão Alab

Assim mesmo com essas quebras de linha epaços, precisaria tirar todo estes espaços desnecessários, colocando um ao lado do outro mais com os espaços reais entre as palavras.

 

No fórum php eu vi um tópico com a mesma dúvida minha e lá a solução foi assim

 

<?
 $texto = "Receb o texto grande nesta variavel"; //ou pode usar $texto = $_POST['campo_texto_postado']; // dai você faz um formzinho com um textarea pra colar o texto
 
 $linhas = explode("/n",$texto);
 $ntexto = "";
 foreach($linhas as $v){
 $l = trim($v);
 if(!empty($l)){
 $ntexto .= $l . "/n";
 }
 }
 
 // dai é so usar a variavel $ntexto para inserir no banco de dados
 ?>

Mais em asp, como seria?

 

Desde já agradeço,

Patrique

[xanburzum 169]

dá uma procurada no fórum , que existe algumas funções para remover espaços, caracteres etc, eu postei algumas dá uma olhada lá...

[Patrique 0]

Antes de postar aqui eu procurei, mais não achei nada que fizesse isso que eu estou precisando de fazer uma limpa inteligente, pois quando testo com as funções que eu consegui elas juntam tudo, tipo...

 

vamos supor que eu tenha o seguinte texto

 

patrique

 

andre

 

alves da silva

 

a função vai retirar os espaços e fazer isso

 

patriqueandrealvesdasilva

 

sacou eu preciso de uma função que faça assim

 

patrique andre alves da silva

 

mais obrigado pela atenção.

 

Se alguém ae tiver por favor help-me.

 

[]'s

[hargon 64]

Tenta assim:

Function retiraEspaco(conteudo)
	Dim msg, i, texto
	msg = conteudo
	msg = replace(msg,"<br>",chr(13))
	msg = replace(msg,"<br />",chr(13))
	msg = replace(msg,"<br/>",chr(13))
	
	msg = split(msg,chr(13))
	texto = Empty
	
	For i=0 To uBound(msg)
		msg(i) = trim(msg(i))
		If (len(msg(i)) > 0) Then
			 texto = texto & msg(i) & "<br />"
		Else
			texto = texto & msg(i)
		End If
	Next

	retiraEspaco = texto
End Function

Response.Write retiraEspaco(msg)

[xanburzum 169]

fala pratique

 

dá uma olhada nesta função tb

 

<%
Private Function Strip(byVal string)
	Strip = Trim( Replace( Replace( Replace( _
		 Replace( Replace( string, vbCrLf, _
		 "" ), vbTab , "" ), " ", "" ), _
		 chr(10), "" ), chr(13), "" ) )
End Function
%>

e abaixo essa função retorna o texto entre as tags HTML title

você pode personaliza-la como quiser tb

 

function GetHTMLDocTitle(s) {
//retorna o texto entre as tags do título

s = "" + s + "";

//este padrão retorna o título de um documento html.
var re = /(\<TITLE\>)(\s*)(.+)(\s*)(\<\/TITLE\>)/i
var arr = re.exec(s);
return RegExp.$3;
}

[Salgado 4]

, fiz algo aqui de cabeça e que pode te ajudar:

Function RetiraEspacos(Entrada)
Saida = Entrada
While InStr(Saida,"  ") <> 0
	Saida = Replace(Saida,"  "," ")
Wend
RetiraEspacos = Saida
End Function
Function RetiraQuebras(Entrada)
Saida = Entrada
While InStr(Saida,VBCRLF & VBCRLF) <> 0
	Saida = Replace(Saida,VBCRLF & VBCRLF,VBCRLF)
Wend
RetiraQuebras = Saida
End Function

Essas duas funções retiram o excesso de espaços e de quebras de linhas, retornando tudo um abaixo do outro.

 

Testa e veja se funciona corretamente.

[Patrique 0]

E ai galera tudo tranquilo!

 

Hargon, testei aqui sua fução e ela não esta mostrando nada, também não aparece nenhum erro.

 

xanburzum, testei aqui sua primeira função e ela funfou belezinha, so que retira todos os espaços e assim não da, pois preciso que o script tire os espaços desnecessários, em relação ao seu segundo ele não funfou, aquele script é javascript?

 

E ai Salgado de Frango, testei aqui sua função e ela funfou quando eu tento através de texto diretamente no script.. assim olha:

 

<%=RetiraEspacos("eu		   to		   querendo	  comer	um	   salgado  de	frango")%>

Mais quando eu tento atraves de string assim olha

 

<%=RetiraEspacos(conteudo)%>

 

O conteúdo é imprimido na tela da mesma maneira, irei fazer uns testes aqui que eu acho que pode dar certo, dai posto aqui!

 

Valew ae galera pela contribuição!

 

Obrigado,

Patrique

[hargon 64]

Foi um exemplo rápido que criei, e funcionou para o primeiro caso.

 

Testei a função do Salgado e funcionou.

 

Como está armazenado na string? Da mesma forma que você passou diretamente ou é outra mensagem?

[Patrique 0]

Esta da mesma forma que eu postei na mensagem, so muda alguns textos, mais egue naquele estilo.

 

[]'s