Bonjour,
J'avais sollicité de l'aide et obtenu de la part de Tlem la réponse à un problème de calcul de données.
Après l'avoir adapté je me rends compte que le résultat obtenu est etrange. Je mets ci joint le code pour pouvoir repérer l'erreur.
Le script est censé me calculer le nombre de données inscrits dans un fichier ini, apres chaque entrée d'un nombre. C'est à dire si je tape 5 dans la case input, une ligne s'inscrit dans le fichier ini et une boite de dialogue m'affiche le nombre de lignes.
Et c'est ce que le script fait si je tape des nombres differents, exemple 5,3,34,9,12.... par contre si je tape de nouveau 5 (déjà tapé dans mon explication dans le inputbox) cette donnée n'est pas prise en compte !!!
D'après ce que peux comprendre lorsqu'un nombre est déjà tapé, il n'est pas pris en compte.
Une aide me serait utile, je tourne en rond, merci.
Voici le bout de code :
► Afficher le texte
Code : Tout sélectionner
;pour quitter taper dans la case input 20 ET VALIDER
local $val
DO
;--------------------------------------------------------
;----------------- Inserer un nombre --------------------
$nombre=INPUtBOX("Insérez un nombre","POUR QUITTER TAPEZ LE NOMBRE 20")
MSGBOX(0,"",$nombre)
;--------------------------------------------------------
;-------------------- Chemin fichier --------------------
$chemin = "c:\nombre.ini"
;--------------------------------------------------------
;-------------------- Ecriture du nombre ---------------
$aChoix = StringSplit($nombre, "{enter}")
For $i = 1 To $aChoix[0]
$lec = IniWrite($chemin, "SECTION1", $aChoix[$i], $val)
Next
;--------------------------------------------------------
;--------------- Lecture et calcul donnée ---------------
$Res="0";remise à zero
$aIni = IniReadSection($chemin, "SECTION1")
If IsArray($aIni) Then
Global $Res
For $i = 1 To $aIni[0][0]
$Res += $aIni[$i][0]
Next
Else
MsgBox(16, 'Erreur', 'Erreur de lecture du fichier .INI')
EndIf
MsgBox(64, "Nombre de lignes", "Il y a " & $aIni[0][0] & " données.")
UNTIL $nombre="20"
Modifié le 6/12; Merci pour votre aide
