Page 1 sur 1
[R] Requête sur fichier CSV
Posté : mer. 20 mai 2015 11:10
par Hugues
Bonjour,
J'utilise un fichier CSV comme base de données (je ne veux pas de base SQL) pour alimenter une ComboBox.
Dans ma requête, il me trouve bien les valeurs recherchées, mais m'en retourne autant qu'il y a de lignes dans mon fichier...
Ci-joint mon code, merci par avance.
► Afficher le texte
Code : Tout sélectionner
Func _MaFonction()
$P8_Parameter = ""
$DummyP8_Parameter = ""
$DummyP8_Parameter = StringSplit(GUICtrlRead($C_Station), " ")
If $DummyP8_Parameter[0] < 3 Then
$P8_Parameter = $DummyP8_Parameter[$DummyP8_Parameter[0]]
Else
For $i = 2 To $DummyP8_Parameter[0]
$P8_Parameter &= $DummyP8_Parameter[$i] & " "
Next
EndIf
If FileExists($ProMasterConfigurationPath) = 0 Then
MsgBox(16, $ApplicationName, "Le fichier de configuration CSV est eronné ou inexistant!")
Return
Else
Local $aRetArray
_FileReadToArray($ProMasterConfigurationPath, $aRetArray, 1, ";")
;_ArrayDisplay($aRetArray)
#cs (Description entête tableau fichier CSV)
;UBound($aRetArray) -> Nombre de ligne du fichier csv
;UBound($aRetArray, 2) -> Nombre de colonne du fichier csv
;$aRetArray[$i][0] -> P7 (Identifiant Ligne)
;$aRetArray[$i][1] -> CellNumber (Numéro de la station, inutile dans la requête ProMaster)
;$aRetArray[$i][2] -> P8 (Nom de la station)
;$aRetArray[$i][3] -> MesurePoint()
;$aRetArray[$i][4] -> ID_ABS ()
;$aRetArray[$i][5] -> ID_ESP ()
;$aRetArray[$i][6] -> P30 (Point de mesure et ID concaténé)
;$aRetArray[$i][7] -> Step ()
;$aRetArray[$i][8] -> ID_Step ()
;$aRetArray[$i][9] -> P10 (Etape et ID concaténé)
;$aRetArray[$i][10] -> P114 ()
;$aRetArray[$i][11] -> P99 ()
#ce
For $i = 2 To UBound($aRetArray) - 1
For $j = 0 To UBound($aRetArray, 2) - 1
If $aRetArray[$i][0] = GUICtrlRead($C_Line) And $aRetArray[$i][2] = StringTrimRight($P8_Parameter, 1) Then
ConsoleWrite($aRetArray[$i][6] & " " & @CRLF)
EndIf
Next
;ConsoleWrite(@CRLF)
Next
EndIf
EndFunc
Re: [..]Requête sur fichier CSV
Posté : mer. 20 mai 2015 11:17
par jguinch
Je ne vois pas à quoi sert la boucle For $j = 0 To UBound($aRetArray, 2) - 1[/b], puisque tu n'utilises pas $j dedans...
Re: [..]Requête sur fichier CSV
Posté : mer. 20 mai 2015 11:33
par Hugues
Arff, voui je viens de supprimer et ça fonctionne... Je suis pas attentif...
Merci sujet résolu!