Affichage d'une valeur dans un champs

**vinz78** · 28/06/2007, 13h56

Bonjour.
Je souhaite afficher la valeur d'un champs dans une page html préalablement créée par un script vbs que voici

Le Tableau :

Code :

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

1
2
3
Dim fields
	'Fields variable holds the fields name and type
	fields = Array(Array("title","I. Contact client &ndash; Pr&eacute;paration technique TVF"),Array("text","Nom :","nom_cont"),Array("text","Prénom :","prenom_cont"),Array("text","Téléphone :", "telephone"),Array("adr","Adresse :"),Array("text","Numéro de la Rue :","numrue_adr"),Array("text","Nom de la Rue :","rue_adr"),Array("text","Code Postal :","cp_adr"),Array("text","Ville :","ville_adr"),Array("textarea","Description de l'opération :","description_op"),Array("separator"),Array("title","II. Fiche d&rsquo;intervention STC"),Array("text","Profil Matériel","profil_mat"),Array("text","Marque :","marque"),Array("text","Modèle :","modele"),Array("text","Utilisateur :","utilisateur"),Array("text","CPU :","CPU"),Array("text","Ram :","RAM"),Array("text","OS/Windows :","OS/WIN"),Array("text","IE :","IE"),Array("textarea","Autre(connexion,...) :","autre_mat"),Array("separator"),Array("titres","BaseTEAMS :"),Array("open_divs"),Array("text","Type :","type_bt"),Array("text","Matricule :","Matricule"),Array("text","Numéro de Société :","matsoc"),Array("text","Profil :","profil_bt"),Array("text","Version TEAMS :","versionTEAMS"),Array("text","Version COMPANION :","versionCOMPANION"),Array("text","Version CALLREPORT :","versionCALLREPORT"),Array("text","Répertoire","repertoire"),Array("close_divs"),Array("buttonjava"),Array("separator"),Array("titres","Baseréseau :"),Array("text","Nombre d'accès :","nbacces"),Array("text","License Pervasive :","license_pervasive"),Array("text","Type d'installation :","typeinst"),Array("text","Nom des accès TEAMS","nomaccesTEAMS"),Array("separator"),Array("titres","Droits Informatiques :"),Array("text","Répertoire :","droit_repertoire"),Array("text","Base de registre","droit_basereg"),Array("textarea","Autre :","autre_droit"),Array("separator"),Array("titres","Communication :"),Array("text","Module :","dialer"),Array("text","Version :","version"),Array("text","Host :","nom_host"),Array("textarea","Autre :","autre_dialer"),Array("separator"),Array("title","Information sur l'intervention : "),Array("text","Numéro KKO","Numcacao"),Array("text","Nom de l'intervenant","Nom_intervenant"),Array("text","Date de l'intervention :","date_intervention"),Array("text","Heure au début de l'intervention :","heuredeb"),Array("text","Heure à la fin de l'intervention :","heurefin"),Array("textarea","Commentaires(montant des frais,transport,...) :","com_int"),Array("separator"),Array("rmq","Remarque STC : ","rmqint"," Remarque Client:","rmqcontact"),Array("buttonvbs","go_report(fields)","Sauvegarder le compte-rendu et l'imprimer"),Array("buttonreset","Effacer tout"))

Le reste de la fonction :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
	Sub go_report(fields)
		fileName = "formulaire.html"
		Dim fso, f
		Set fso = CreateObject("Scripting.FileSystemObject")
 
		If (fso.fileExists (fileName)) Then
		   Set f = fso.OpenTextFile ( fileName, 2 )
		Else
			Set f = fso.CreateTextFile ( fileName )
		End If
 
		f.write "<html>" + Chr(13) + "<body>" + Chr(13) + "<head>" + Chr(13) + "<hr>"  + Chr(13) + "<img src=""image002.gif"" />" + Chr(13) + "<h1 align=""center"">COMPTE RENDU D’INTERVENTION</h1>" + Chr(13) + "<hr />" + Chr(13) + "</head>" + Chr(13) + "<br />"
		f.write "<form name=""form1"" method=""post"">"
 
		For Each field in form1
				f.write field.value
		Next
 
		For Each field in fields
			Select Case lcase(field(0))
				Case "title"
					f.write "<table style=""text-align: left; width: 391px; height: 34px;"" border=""1"" cellpadding=""2"" cellspacing=""2""><tbody><tr><td><h3>"+field(1)+"</h3></td></tr></tbody></table><br /><br />"
 
				Case "titres"
					f.write "<h3><td><b><u>"+ field (1)+"</b></u><br></h3></td>"
 
				Case "text"
					f.write "<td>"
					f.write "<u>"+field(1)+"</u></td><br /><td>"
					f.write "<input type=" + field(0) + " name=""" + field(2) + """><br /></td><br />"
 
 
				Case "adr"
					f.write "<td>"
					f.write "<br />"
					f.write "<b><u>" + field(1) + "</u></b>"
					f.write "</td><br /><br/>" 
 
				Case "textarea"
					f.write "<td><u>" + field(1) + "</u></td><br />"
					f.write "<td><TEXTAREA WRAP=""ON"" rows=""15"" cols=""75"" name=" + field(2) + "></TEXTAREA><br /></td><br />"
 
				Case "separator"
					f.write "<hr color=""black"" /><br>"
				Case "open_divs"
					f.write "<div id=""champs_1""><div align=""left"">"
				Case "close_divs"
					f.write "</div></div>"
				Case "rmq"
					f.write "<table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;mso-padding-alt:0cm 3.5pt 0cm 3.5pt'><tr><td width=614 valign=top style='width:460.5pt;border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt;padding:0cm 3.5pt 0cm 3.5pt'><p class=MsoNormal><b>"+field(1)+"<o:p></o:p></b></p></td></tr>"
					f.write "<tr><TD><TEXTAREA WRAP=""ON"" rows=""15"" cols=""75"" name="+ field(2) +"""></TEXTAREA></TD></tr>"
					f.write "<td width=614 valign=top style='width:460.5pt;border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt;padding:0cm 3.5pt 0cm 3.5pt'><p class=MsoNormal><b>"+ field(3) +"</b></p></td></tr>"
					f.write "<tr><TD><TEXTAREA WRAP=""ON"" rows=""15"" cols=""75"" name="+field(4)+"""></TEXTAREA></TD></tr></table><br /><br />"
			End Select
 
		Next
		f.write "</form>"
		f.write "<table class=""MsoNormalTable"" style=""border-collapse: collapse;"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		f.write "<tbody>"
		f.write "<tr style=""page-break-inside: avoid;"">"
		f.write "<td style=""padding: 0cm 3.5pt; width: 228.5pt;"" valign=""top"" width=""305"">"
		f.write "<p class=""MsoHeader"" style=""text-align: center;"" align=""center"">"
		f.write "<b>"
		f.write "<u>"
		f.write "<span style=""font-size: 14pt;"">Signature<span style="""">"
		f.write "</span>client "
		f.write "</span>"
		f.write "</u>"
		f.write "</b>"
		f.write "<b>"
		f.write "<span style=""font-size: 14pt;"">:<u><o:p></o:p>"
		f.write "</u>"
		f.write "</span>"
		f.write "</b>"
		f.write "</p>"
		f.write "</td>"
		f.write "<td style=""padding: 0cm 3.5pt; width: 232pt;"" valign=""top"" width=""309"">"
		f.write "<p class=""MsoHeader"" style=""text-align: center;""align=""center"">"
		f.write "<b>"
		f.write "<u>"
		f.write "<spanstyle=""font-size: 14pt;"">Signature intervenant""</span>"
		f.write "</u>"
		f.write "</b>"
		f.write "<b>"
		f.write "<spanstyle=""font-size: 14pt;""> :<u><o:p></o:p>"
		f.write "</u>"
		f.write "</span>"
		f.write "</b>"
		f.write "</p>"
		f.write "</td>"
		f.write "</tr>"
		f.write "</tbody>"
		f.write "</table>"
		f.write "<br />"
		f.write "</body>"
		f.write "</html>"
 
 
 
		f.close
	End sub
 
 
</script>

Je ne my connais pas spécialement en vbs j'ai donc mis un peu nimporte quoi a ce niveau là

Code :

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

1
2
3
For Each field in form1
				f.write field.value
		Next

Cela mafiche les valeur que je rentre dans mon autre formulaire mais sa ne les affiche pas au bon endroit (sa les affiche au dessus du formulaire)

Merci de me dire au placer ou alors quoi mettre pour réussir ce que je dois faire

**SfJ5Rpw8** · 28/06/2007, 14h29

ton code génère un fichier html... ( f.write te permet d'écrire dans ce fichier) ,
pour commencer il faut que tu trouve le code à générer dans ta page html ...ensuite seulement tu aura un probléme vbs..

**vinz78** · 28/06/2007, 14h44

Le code est déja généré dans ma page html il renvoie la meme page que la première sans les boutons
On ma conseillé dictionnary mais je ne comprend que trrès peu la démarche si quelqun peu me donner un exemple
merci

**omen999** · 28/06/2007, 16h20

bonjour,
tu dois apprendre le modèle objet dhtml

pour les vacances, un peu de lecture ? http://msdn2.microsoft.com/en-us/library/ms533022.aspx
en gros tu définis une collection d'objets et tu y ajoutes les valeurs souhaitées

Code :

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

1
2
3
4
set cFields=document.getElementsByName(field(2))
for each iField in cFields
iField.insertAdjacentText "afterBegin", "n'importe quoi"
next

Affichage d'une valeur dans un champs

VBScript

Discussions similaires

Partager

Partager