Alors j'ai un fichier txt.txt où sont entré 3 noms à raison de 1 nom par ligne.
Il me faut une page html en vbscript où je peux récupérer les 3 noms afin de créer un formulaire de la façon suivante :
nom1 : "INPUT où l'utilisateur peut rentrer l'age"
nom2 : "INPUT ....
nom3 : "INPUT ...
VALIDER
Au clic du bouton valider j'inscris le tout dans un nouveau fichier txt1.txt
A savoir que la liste de nom peut être supérieure à 3 donc je met une boucle.
Je vous met ce que j'ai pour l'instant car je suis bloqué, dites moi tout de suite si il faut que je persévère dans cette voie où si je me gourre royalement !
Excusez les lignes de commentaires en trop j'ai fait du bidouillage car les profs de mon BTS IG nous ont pas vraiment aidé et j'ai du apprendre sur internet.
<HTML>
<TITLE>Modification d'un fichier en VBScript</TITLE>
<HEAD>
<!--<SCRIPT Language = "VBScript">
Option explicit
sub validation_onclick()
msgbox "sub validation_onclick() cliké"
end sub
</SCRIPT>-->
</HEAD>
<BODY>
<H1> Modification d'un fichier en VBScript.</H1><br>
Quels sont les ages de ces personnes ?</br><hr>
<script language = "vbscript">
</script>
<script Language = "VBScript">
Dim fso
dim num
dim txt
dim f
dim i
num = 0
i = 0
msgbox "Set FSO"
Set FSO = CreateObject("Scripting.FileSystemObject" )
'ouverture du fichier
'msgbox "Ouverture de H:\AP\txt1.txt"
Set Ftxt = FSO.OpenTextFile("H:\AP\txt1.txt" )
'msgbox "Fichier Ouvert"
'lecture ligne a ligne
document.write "<FORM name=questionnaire>"
Do While Not Ftxt.AtEndOfStream
MaVariable = Ftxt.Readline
num = num + 1
i = i + 1
document.write Mavariable & " : <INPUT type=text name=mavariable" & num & " maxlength=2 size=2></br>"
Loop
document.write "<INPUT type=button value=Valider id=validation name=validation>"
document.write "</FORM>"
Ftxt.Close
'----------------------------------------------------------------------------------------------
sub validation_onclick()
msgbox "sub validation_onclick"
Set G = FSO.createTextFile("H:\AP\txt1.txt",true) 'true=ecrase
G.writeline (i)
for count = 1 to i
G.writeline (i.value)
next
G.Close
end sub
'----------------------------------------------------------------------------------------------
'déclaration file system object
'Dim fso
'instanciation
'Set FSO = CreateObject("Scripting.FileSystemObject" )
'on instance le fichier texte dans lequel on veut ecrire
'Set F = FSO.createTextFile("H:\AP\txt.txt",true) 'true=ecrase
'On ecrit ce que l'on veut dans le fichier
'For count = 1 to num
' F.writeline (count & num)
'Next
'F.Close
'-----------------------------------------------------------------------------------------------
</script>
<hr>
</BODY>
</HTML>
---------------
Aye aye aye, s'il va sur l'autoroute il est mort, on a plus de puiZZanZe!
