VBS je suis bloqué
VBS je suis bloqué - VB/VBA/VBS - Programmation
Marsh Posté le 17-12-2008 à 15:29:30
tu devrais plutot générer le form après l'accès aux données, ce serait déjà plus propre et plus maintenable
EDIT : mal lu 
Message édité par Profil supprimé le 17-12-2008 à 15:33:29
Sujets relatifs:
- SQL -> Probleme contraintes et relations, je bloque
- Problème de procédure de maj bd, je suis bloqué !!
- batch : bloqué et à rendre... help svp!!
- [VBS] Vérification Nom pc & OS
- VBS & ADSI Probléme de création de "dossier de base"
- Pause dans du VBS à l'intérieur d'une HTA
- VBS : Renommer un fichier à la date du jour
- [VBS] passer plusieurs commande MS dos en VBS
- Bloqué par une requete SQL
- script en VBS
Marsh Posté le 17-12-2008 à 15:11:15
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!