Recherche dans CSV et exploitation des cellules suivantes

Version imprimable

Bonjour,

J'ai un fichier CSV du type

users.csv

SVL8100;toto;azerdfsdfg
SVL8101;titi;qsdfsdfsert
SVL8102;tutu;fbcvbtyhdthyh

Je voudrai, quand je tape la valeur SVLxxxx, que les deux cellules suivantes soient stockées dans 2 variables distinctes pour que celles-ci soient affichées dans une box et ensuite être utilisées dans d'autre bout de script.

j'ai ça comme code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 dim fs,objTextFile set fs=CreateObject("Scripting.FileSystemObject") dim arrStr dim fname set objTextFile = fs.OpenTextFile("users.csv") fname=InputBox("Entrez le SVL","Saisie") MsgBox("le svl est : " & fname) Do while NOT objTextFile.AtEndOfStream arrStr = split(objTextFile.ReadLine,";") MsgBox("SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2)) ' arrStr is now an array that has each of your fields ' process them, whatever..... Loop objTextFile.Close set objTextFile = Nothing set fs = Nothing
j'ai je bute sur la recherche. Je suis plus que débutant en programmation.

J'ai beau chercher je n'ai pas trouvé ou alors je suis passé à côté à cause de mon ignorance ! :aie:

Merci de m'aider !

Salut

Il te faut vérifier l’existence du SLV

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
dim fs,objTextFile
set fs=CreateObject("Scripting.FileSystemObject")
dim arrStr
dim fname
Dim Trouver ' <------------ drapeau -------------
set objTextFile = fs.OpenTextFile("users.csv")
 
fname=InputBox("Entrez le SVL","Saisie")
MsgBox("le svl est : " & fname)
Trouver = False
Do while NOT objTextFile.AtEndOfStream
        arrStr = split(objTextFile.ReadLine,";")
        If arrStr(0) = fname then
                msgbox "SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2)
                Trouver = True
                Exit Do
        End If
  'MsgBox("SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2))
'  arrStr is now an array that has each of your fields
' process them, whatever.....
Loop
 
objTextFile.Close
set objTextFile = Nothing
set fs = Nothing
 
If Trouver = True Then
        msgbox "SVL :" & arrStr(0) & chr(13) & "User :" & arrStr(1) & chr (13) & "Passwd :" & arrStr (2)
        Else
        msgbox "SVL :" & arrStr(0) & " n'est pas connu "
End If

La variable fname doit contenir: SLVxxx, si elle ne contient que les chiffres, remplacer la ligne 14 par

Code:

If arrStr(0) = "SLV" & fname Then

02/08/2013, 13h39
atigrou

C'est exactement ça !

merci beaucoup.