cs_jem27
Messages postés4Date d'inscriptionlundi 13 juin 2005StatutMembreDernière intervention13 juin 2007
-
12 juin 2007 à 16:39
cs_jem27
Messages postés4Date d'inscriptionlundi 13 juin 2005StatutMembreDernière intervention13 juin 2007
-
13 juin 2007 à 13:35
Bonjour
voila mon soucis je veux mettre la valeur contenu dans une variable dans un champ texte d'un formulaire mais ca ne marche pas ya surement quelque chose qui va pas mais quoi je vous le demande lol
voici le code que j'ai fait
<html>
<head>
<script language="vbscript">
'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte
Set Ftxt = FSO.OpenTextFile("c:/ca.txt")
'on parcours chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
MaVariable = Ftxt.Readline
windows.document.form.test.value=MaVariable
Loop
Ftxt.Close
</script>
</head>
<form name="form">
</form>
</html>
ps : si j'execute juste le code vbscript ca marche
cs_jem27
Messages postés4Date d'inscriptionlundi 13 juin 2005StatutMembreDernière intervention13 juin 2007 12 juin 2007 à 16:48
c pas voulu si j'ai poster trois fois j'ai galerer pour trouver le bon theme
en quoi c:/ca n'est pas légal j'ai pas trop compris ?
lecture sequentielle si j'ai la bonne definition c'est lecture ligne par ligne donc il faudrait que je declare mon formulaire avant le code vbscript?
merci de vos reponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 12 juin 2007 à 20:08
Bonsoir à tous
Salut Mortalino,
Les synthaxes "", "\", "/" et "//" sont valables.
Essaie:
Dim Fso, ObjTextStream
Set Fso = CreateObject("Scripting.FileSystemObject")
Set ObjTextStream = Fso.CreateTextFile("d://fichierTEST1.txt", True)
Set ObjTextStream = Fso.CreateTextFile("d:/fichierTEST2.txt", True)
Set ObjTextStream = Fso.CreateTextFile("d:\fichierTEST3.txt", True)
Set ObjTextStream = Fso.CreateTextFile("d:\\fichierTEST4.txt", True)
Set ObjTextStream = Nothing
Quant à la question de " [auteurdetail.aspx?ID=532882 jem27]", j'espère (débutant en vbs/formulaires html) ne pas
dire une trop grosse bourde. Il me semble que "windows.document.form" soit du javascript.
Le résultat de la recherche, sur Google, de cette expression n'est, c'est un euphémisme, pas
très significative !
cs_jem27
Messages postés4Date d'inscriptionlundi 13 juin 2005StatutMembreDernière intervention13 juin 2007 13 juin 2007 à 09:10
je suis debutant dans le vbs je connais un peu plus le javascript
sinon en fait ce que je veux faire c'est de recuperer une valeur dans un fichier texte et de l'afficher dans une page html
est ce que mon code est assez bien pour faire ceci?
ou alors avez vous une autre methode ?
est ce possible de le faire en javascript??
Pour la partie vbs, inutile d'utiliser une boucle Do While ... Loop.
De plus, dans ton exemple, la variable "Variable" contiendra, finalement, la dernière ligne de ton fichier,
et donc, peut-être, une ligne vide.
La combinaison .ReadLine et .Skip(0) permet d'obtenir le contenu de la 1ère ligne, à partir du 1er caractère (0), et d'ignorer les éventuelles autres lignes de ton fichier.
Le .Close n'est pas obligatoire, mais conseillé pour la lisibilité.
Idem pour supprimer les instances, ne pas oublier les "Set xxxx = Nothing" de tous
les objets instanciés.
Const ForReading = 1
Dim objFso, objTxt
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTxt = objFso.OpenTextFile("d:/test.txt",ForReading)
objTxt.Skip(0)
MaVariable = objTxt.Readline
msgbox MaVariable
'''windows.document.form.test.value=MaVariable
objTxt.Close
Set objFso = Nothing
Set objTxt = Nothing