Précédent   Forum des professionnels en informatique > Webmasters - Développement Web > Langages serveur > ASP
ASP Forum sur la programmation ASP. Avant de poster : Cours ASP, FAQ ASP
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Discussion fermée Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 16/08/2006, 12h50   #1
Membre régulier
 
Inscription : février 2006
Messages : 182
Détails du profil
Informations personnelles :
Âge : 30
Localisation : France, Paris (Île de France)

Informations forums :
Inscription : février 2006
Messages : 182
Points : 70
Points : 70
Envoyer un message via MSN à sam.fet
Par défaut Probléme de décalage dans un TEXTAREA

Bonjour

J'utilise un TEXTAREA au sein d'une page web que je viens renseigner en affichant le contenu d'un fichier.

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
<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>
Cependant lors de la saisie de fichier, il existe un décélage sur la première ligne qui perturbe le résultat que j'attends.

J'obtiens ceci :
Citation:
. . . . . . . . . . . . . rphonenumber
sphonenumber
sans les points au lieu de cela :
Citation:
rphonenumber
sphonenumber
Portout le contenu du fichier est correct !!!
sam.fet est déconnecté   Envoyer un message privé 00
Vieux 16/08/2006, 13h59   #2
Membre actif
 
Inscription : juin 2006
Messages : 431
Détails du profil
Informations forums :
Inscription : juin 2006
Messages : 431
Points : 162
Points : 162
essaie avec ca:
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
<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>
boss_gama est déconnecté   Envoyer un message privé 00
Vieux 16/08/2006, 14h11   #3
Membre régulier
 
Inscription : février 2006
Messages : 182
Détails du profil
Informations personnelles :
Âge : 30
Localisation : France, Paris (Île de France)

Informations forums :
Inscription : février 2006
Messages : 182
Points : 70
Points : 70
Envoyer un message via MSN à sam.fet
Cela ne change rien du tout.

C'est normal !!! Ton code est le même sont deux frères jumeaux !!!!!
sam.fet est déconnecté   Envoyer un message privé 00
Vieux 16/08/2006, 14h15   #4
Expert Confirmé Sénior

 
Avatar de Immobilis
 
Inscription : mars 2004
Messages : 5 849
Détails du profil
Informations forums :
Inscription : mars 2004
Messages : 5 849
Points : 5 965
Points : 5 965
Euh, je crois que tu fais du multipost là...
Merci de continuer ici http://www.developpez.net/forums/sho...d.php?t=195628
A+
Immobilis est déconnecté   Envoyer un message privé 00
Discussion fermée Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 16h08.


 
 
 
 
Partenaires

Hébergement Web