Mise en forme d'un champ textarea

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 112 fois - Téléchargée 36 fois

Contenu du snippet

Tout est dans le titre...
Si vous saisissez un paragraphe avec saut de ligne dans un TEXTAREA, vous pourrez grâce à cette fonction afficher le contenu du champs tout en sauvegardant les sauts de ligne...

Source / Exemple :


<%
	function rdb_txt(champ)
		If champ <> "" Then
			chn = Server.HTMLEncode(champ)
	
			tab = Split(chn, vbCrLf)
			n = UBound(tab)
	        
			For i = 0 to n
	        	chaine = chaine + tab(i) 
	        	chaine = chaine + "<BR>"
			Next
	
			rdb_txt = chaine	
		End If
	end function
	
%>

<html>
<head>
	<title>Test Textarea</title>
</head>
<body>
	<%
		if len(request.form("TEXTAREA")) > 0 then 
			message = rdb_txt(request.form("TEXTAREA"))
			response.write message
		else	
	%>	
			<form action = "test.asp" method="post">
				<textarea rows="4" name="TEXTAREA" cols="55"></textarea>
				<input name="validation" type="submit" value="Validez">
			</form>	
		<% end if %>
		
</body>
</html>

Conclusion :


Si vous avez une fonction plus simple, n'hésitez pas à m'en faire part...

A voir également

Ajouter un commentaire

Commentaires

hachou
Messages postés
10
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
21 mai 2002
-
a mon avis avec chn = replace ( chn , vbCrLf , "
" ) ca serai mieux mais ca revient au même

hachou
loytstf
Messages postés
3
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
25 février 2003
-
Bien pratique, surtout lors de l'ajout dans une base SQL. La remarque de hachou est bonne, je suis assez d'accord.

Je pensais qu'on pouvait faire plus simple encore... mais...

A ce propos quand j'ajoute mon message, il est stocké comment. A priori il prend les retours chariots.
loytstf
Messages postés
3
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
25 février 2003
-
Mais il ne prend pas les balise html. OK.
papend
Messages postés
2
Date d'inscription
jeudi 21 décembre 2006
Statut
Membre
Dernière intervention
28 juillet 2007
-
vous avez sans doute compris pourquoi tous ces 'c' c que lorsqu'on saisit ds le champ en maintenant une touche sans aller a la ligne avec la touche entrer c ce qui se pqsse
madwal
Messages postés
1
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
22 mai 2007
-
on pourrais remplacer tous ce code par un autre plus simple comme celui-ci :

# <html>
# <head>
# <title>Test Textarea</title>
# </head>
#
# <%
# if len(request.form("TEXTAREA")) > 0 then
# message = replace(request.form("TEXTAREA"), vbCrLf, "
")
# response.write message
# end if
# %>
# <form action = "test.asp" method="post">
# <textarea rows="4" name="TEXTAREA" cols="55"></textarea>
#
# </form>
#
# </html>

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.