Valeur par defaut parcourir

**MarieKisSlaJoue** · 20/02/2013, 12h23

Bonjour, je créer un tableau avec des valeur lu dans un fichier csv.
Chaque valeur est envoyer à un input créer dans une boucle qui donne donc quelque chose comme cela

Sauf que comme la valeur est un chemin j'aurai aimer afficher cette valeur déjà dans un parcourir.

Mais la les valeurs par défauts ne sont pas prise en comptes.
J'ai cru comprendre que c'était normal pour des questions de sécurité. Est-ce vrai ?

Comment je pourrai arriver à la solution souhaité ?

Voici le code de mon affichage.

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
'Affiche le contenue du csv sans 
	Sub afficheCSV
 
		Dim csv
		Dim txtCsv
		Dim arrExport
		Dim strBody
		Dim numLigne
 
		Set csv = CreateObject("Scripting.FileSystemObject")
		Set txtCsv = csv.OpenTextFile(path & "\menu.csv",1 ,true)
		numLigne = 0
		do while not txtCsv.AtEndOfStream
 
			arrExport = split(txtCsv.ReadLine,",")
			numLigne = numLigne + 1
			strBody = strBody & " <br/><input type ="& " text " & " name=" &" nomClient"&numLigne & " value = " & arrExport(0) & ">   <input type ="& " file " & " name=" &" cheminIso"&numLigne & " value = " & arrExport(1) &">    <input type ="& " text " & " name=" &" nomIso"&numLigne & " value = " & arrExport(2) &">"
			resultat.innerHTML = strBody
		Loop
 
		txtCsv.Close
 
	End Sub

**hackoofr** · 20/02/2013, 14h15

Dans la 2eme colonne il y a des chemins absolus de fichiers c'est ça

Pouvez-vous poster le menu.csv pour voir mieux les choses ?

**MarieKisSlaJoue** · 20/02/2013, 14h29

exactement je sont des chemin absolue

et voila le contenue de mon fichier csv

Code :

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

1
2
3
4
google , C:\DD\Google\isoGoogle.iso , test1
microsoft , C:\DD\Microsoft\isoMicrosoft.iso , test2
microsoft , C:\DD\Microsoft\isoMicrosoft.iso , microtest
google , C:\DD\Google\isoGoogle.iso , googletest

**hackoofr** · 20/02/2013, 18h53

Je ne sais pas si voulez faire quelque chose comme ceci :

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
<html>
<head>
<title>afficheCSV</title>
</head>
<SCRIPT LANGUAGE="VBScript">
    Sub afficheCSV
        Dim csv
        Dim txtCsv
        Dim arrExport
        Dim strBody
        Dim numLigne
        Set csv = CreateObject("Scripting.FileSystemObject")
        Set txtCsv = csv.OpenTextFile("menu.csv",1 ,true)
        numLigne = 0
        strbody = "<center><table border='3' cellpadding='1' style='border-collapse: collapse; font size:11pt' bordercolor='#CCCCCC' width='100%' id='Table1'></center>" & _
    "<td><center><strong>Nom</strong></center></td>" & _
    "<td><center><strong>Chemin</strong></center></td>" & _
    "<td><center><strong>Autre chose</strong></center></td>"
 
        do while not txtCsv.AtEndOfStream
            arrExport = split(txtCsv.ReadLine,",")
            numLigne = numLigne + 1
            strBody = strBody & "<tr><td><center><input type ="& " text " & " name=" &" nomClient"&numLigne & " value = " & arrExport(0) & "></center></td><td><center><a href=""#"" OnClick='Explore(""" & arrExport(1) & """)'>" & arrExport(1) & "</a></center></td><td><center><input type ="& " text " & " name=" &" nomIso"&numLigne & " value = " & arrExport(2) &"></center></td></tr>"
            resultat.innerHTML = strBody
        Loop
        txtCsv.Close        
End Sub
 
Function Explore(filename)
Set ws = CreateObject("WScript.Shell")
ws.run "Explorer /n,/select,"&filename&""
End Function
</script>
<body>
<center><span id="resultat"><INPUT TYPE="SUbmit" VALUE="Afficher" ONCLICK="afficheCSV"></span>
</body>
</html>

**MarieKisSlaJoue** · 20/02/2013, 19h00

la ça va me permettre d'arriver jusqu'au fichier, ce qui n'est pas ce que je souhaite, en fait quand quelqu'un rentre une ligne dans le fichier csv, l'une des valeur vient d'un parcourir.

Mais si il se trompe et qu'il souhaite modifier je voulais lui afficher un tableau ou il puisse changer les valeurs mais en ayant les anciennes affiché par défaut, mais pour le bouton parcourir je ne peux pas lui indiqué l'ancien chemin en fait.

finalement j'ai fait un autre formulaire à coté pour modifier c'est ce qui ma sembler le plus simple.

**hackoofr** · 20/02/2013, 20h38

postez votre nouveau formulaire complet et soyez plus explicite car je crois que je n'ai pas bien compris votre but final

Valeur par defaut parcourir

VBScript

Discussions similaires

Partager

Partager