Discussion :

[sam.fet]

Bonjour,


Je souhaite afficher le contenu d'un fichier complet dans une page HTML à l'aide des balises TEXTAREA.

Je les utilise de la manière suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<TEXTAREA rows="28" cols="2" name="File_In_Area" value="<%=text%>" >
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")				
Set f=fs.OpenTextFile(monfichier, 1)
texte_a_affiché = ""
 
While not f.atEndOfStream 
	texte_a_affiché = texte_a_affiché & f.readline 						
Wend
 
response.write(texte_a_affiché)
f.Close								
 
%>					
</TEXTAREA>

Cependant alors que le contenu de mon fichier est comme ceci :

callernumber
callednumber

Le résultat obtenue est différent.

callernumbercallednumber

^
En effet puisqu'il n'intègre pas les sauts de chaines ("\n").


Je n'arrives pas à identifier le problème.

Quelqu'un a-t-il une solution à me proposer ??

[malbaladejo]

Il ajouter & vblf a la fin de chaque ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While not f.atEndOfStream 
	texte_a_affiché = texte_a_affiché & f.readline 	& vblf		
Wend

[sam.fet]

Merci

[boss_gama]

je reprends l'autre post. Je n'ai pas mis exactement le meme post, sam.fet. j'ai enlevé tout les espaces. J'ai eu le meme problème sur mes textarea, et pour virer les espaces en trop j'ai été obligé de virer toutes les indentations de mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
<textarea>ton texte</textarea> affiche: -ton texte-
<textarea>    ton autre texte</textarea> affiche: -    ton autre texte-
<textarea>
ton
 autre
    texte</textarea> affiche: -ton autre    texte-
<textarea>
ton
 autre
 texte
     </textarea> affiche: -ton autre texte     -

[sam.fet]

Qu'appelle tu une indentation ??

ET comment puis je supprimer les tabulations en trop sans perturbé le fichier dans son ensemble lors de l'affichage

[malbaladejo]

Il ne faut pas mettre de retour à la ligne entre <textarea ...> et <%
Il faut tout mettre sur la même ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
<TEXTAREA rows="30" cols="2" type="text" name="File_In_Area" svalue="<%=text%>" ><%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(text_file) = true then					
	Set f=fs.OpenTextFile(text_file, 1)
	While not f.atEndOfStream 
		all_text = all_text & f.readline  & vblf			
	Wend	
	f.Close	
	response.write(all_text)
end if							
%>					
</TEXTAREA>

[sam.fet]

Merci beaucoup malbaladejo,

Cela resoud en effet le problème.

As tu eune réponse au pourquoi de la nécéssité de mettre le " <% " sur la même ligne que le libéllé TEXAREA.

[boss_gama]

ah vi on peut faire comme ca aussi. Comme ca on conserve son indentation.