Valeur par defaut parcourir

Version imprimable

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

http://nsa32.casimages.com/img/2013/...2205992867.png

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

http://nsa31.casimages.com/img/2013/...2222763131.png

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:

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

20/02/2013, 14h15
hackoofr

:salut:
Dans la 2eme colonne il y a des chemins absolus de fichiers c'est ça :koi:
Pouvez-vous poster le menu.csv pour voir mieux les choses ?
:merci:

exactement je sont des chemin absolue

et voila le contenue de mon fichier csv

Code:

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

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

Code:

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>

20/02/2013, 19h00
MarieKisSlaJoue

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.
20/02/2013, 20h38
hackoofr

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