[R] Comment passer d'un string en un integer(urgent)

[fauve81]

Bonjour,

Je suis dans la finalité de mon projet, je code des tests.
Voici mon problème, j'ai ce code

► Afficher le texte

Code : Tout sélectionner

; Colonne 10 : Code Postal
      If $ligne[14] <> ""  Or $ligne[15] <> "" Then
         
         ;Gestion du code postal soit 5 chiffres, soit deux, soit vide
         $cp1 = StringRegExpReplace($ligne[14], "^([0-9][0-9])$", "${1}000")
         $cp2 = StringRegExpReplace($ligne[15], "^([0-9][0-9])$", "${1}999")
         
         If $cp1 == "" Then         
            $cp1 = 00000
         EndIf

         If $cp2 == "" Then         
            $cp2 = 99999
         EndIf
    
         ; Faire les tests en utilisant comme référence cp1 et cp2                 
         If [color=#BF0000]$cp1 <  $oTableau[$j][9] Or $cp2 > $oTableau[$j][9][/color] Then
            $bool = False
            $logXML._ajoutTest($bool, "Code Postal du, Encours numéro" & $j, $ligne[14], $oTableau[$j][9])
            $logXML._ajoutTest($bool, "Code Postal au, Encours numéro" & $j, $ligne[15], $oTableau[$j][9])
         EndIf
      EndIf

La partie en rouge me pose problème car il me met KO le test car  $cp1 et $cp2 sont deux string et je les compare à un integer qui est $oTableau[$j][9]. Comment faire pour forcer mon string en integer..Merci c'est assez urgent pour moi.

[sylvanie]

Bonjour

Code : Tout sélectionner

If Number($cp1) <  $oTableau[$j][9] Or Number($cp2) > $oTableau[$j][9] Then
 

Par contre, à vérifier absolument dans un autre test, c'est de s'avoir si Number est sortie correctement, car en cas d'échec, elle renvoie 0. Du coup, le script ici ne s'arrête pas en erreur, mais continue en faisant le test :

Code : Tout sélectionner

If 0 <  $oTableau[$j][9] Or 0 > $oTableau[$j][9] Then
 

[fauve81]

Bonjour Sylvanie,

Je vais tester..et te tiens au courant.

[fauve81]

Bonjour Sylvanie,

Je vais tester..et te tiens au courant.

J'ai essayé ceci pour éviter le 0...mais tjrs KO

► Afficher le texte

Code : Tout sélectionner

  ; Faire les tests en utilisant comme référence cp1 et cp2   
$nb  = Number($cp1)
$nb1 = Number($cp2)
         If $nb  <  $oTableau[$j][9] Or $nb1  > $oTableau[$j][9] Then
            $bool = False
            $logXML._ajoutTest($bool, "Code Postal du, Encours numéro" & $j, $ligne[14], $oTableau[$j][9])
            $logXML._ajoutTest($bool, "Code Postal au, Encours numéro" & $j, $ligne[15], $oTableau[$j][9])
         EndIf
 

[fauve81]

Bonjour Sylvanie,

Je vais tester..et te tiens au courant.

J'ai essayé ceci pour éviter le 0...mais tjrs KO

► Afficher le texte

Code : Tout sélectionner

  ; Faire les tests en utilisant comme référence cp1 et cp2   
$nb  = Number($cp1)
$nb1 = Number($cp2)
         If $nb  <  $oTableau[$j][9] Or $nb1  > $oTableau[$j][9] Then
            $bool = False
            $logXML._ajoutTest($bool, "Code Postal du, Encours numéro" & $j, $ligne[14], $oTableau[$j][9])
            $logXML._ajoutTest($bool, "Code Postal au, Encours numéro" & $j, $ligne[15], $oTableau[$j][9])
         EndIf
 

Alors j'ai passé tout mon code en débug et c'est bien cette partie de code   ; Faire les tests en utilisant comme référence cp1 et cp2    qui fait échouer tout mon test

[TommyDDR]

Si ça n'a pas déjà été fait, je vous conseille fortement de faire un :

Code : Tout sélectionner

ConsoleWrite($cp1 & " < " & $oTableau[$j][9] & " Or " & $cp2 & " > " & $oTableau[$j][9])

ou

Code : Tout sélectionner

MsgBox(0, "", $cp1 & " < " & $oTableau[$j][9] & " Or " & $cp2 & " > " & $oTableau[$j][9])

Juste avant votre If pour vérifier à la main si les valeurs de vos variables correspondent à ce que vous attendez.

[sylvanie]

+1 avec TommyDDR et de plus il faudrait y ajouter les variables nb et nb1 pour voir si number a bien retourné un nombre non nul

Par contre les variables $oTableau[xxx][9] sont bien des nombres aussi ?
Au pire, on peut les passer à Number aussi :

Code : Tout sélectionner

If ($nb  <  Number($oTableau[$j][9])) Or ($nb1  > number($oTableau[$j][9])) Then

[fauve81]

Merci à vous deux pour les réponses...je vous tiens au courant..

[mikell]

+1 aussi avec TommyDDR mais pour vérifier que les regex sur $cp1 et $cp2 retournent bien ce qu'il faut

[fauve81]

Bonjours,

J'ai testé avec message box cela me récupère bien les bonnes valeurs.
J ai testé la solution de Sylvanie mais j'ai cette erreur :

Error parsing function call.:
If $nb < Number $oTableau[$j][9] And $nb1 > Number $oTableau[$j][9] Then
If $nb < ^ ERROR

[sylvanie]

Bonjour,
sauf si c'est une erreur de copier/coller, c'est normal, car il faut des (), c'est un appel de fonction.

If $nb < Number($oTableau[$j][9]) And $nb1 > Number($oTableau[$j][9]) Then

[fauve81]

Bonjour,
sauf si c'est une erreur de copier/coller, c'est normal, car il faut des (), c'est un appel de fonction.

If $nb < Number($oTableau[$j][9]) And $nb1 > Number($oTableau[$j][9]) Then

C'est bon j'ai trouvé l'erreur cela venait juste du ($nb > $oTableau[$j][9]) Or ($nb1 < $oTableau[$j][9]) ce qui est en rouge
il fallait faire l'inverse.
Donc voici le résultat

► Afficher le texte

Code : Tout sélectionner

If $ligne[14] <> ""  Or $ligne[15] <> "" Then
         
         ;Gestion du code postal soit 5 chiffres, soit deux, soit vide
         $cp1 = StringRegExpReplace($ligne[14], "^([0-9][0-9])$", "${1}000")
         $cp2 = StringRegExpReplace($ligne[15], "^([0-9][0-9])$", "${1}999")
    
         If $cp1 == "" Then         
            $cp1 = 00000
         EndIf

         If $cp2 == "" Then         
            $cp2 = 99999
         EndIf

         ; Faire les tests en utilisant comme référence cp1 et cp2    
$nb  = Number($cp1)
$nb1 = Number($cp2)

     If ($nb [color=#BF0000]>[/color] $oTableau[$j][9]) Or ($nb1 [color=#FF0000]< [/color]$oTableau[$j][9]) Then
            $bool = False
;~            ConsoleWrite("OK"& @CRLF)
            $logXML._ajoutTest($bool, "Code Postal du, Encours numéro" & $j, $ligne[14], $oTableau[$j][9])
            $logXML._ajoutTest($bool, "Code Postal au, Encours numéro" & $j, $ligne[15], $oTableau[$j][9])
         EndIf
      EndIf
 

Merci à vous

[sylvanie]

Ok, du coups on n'était plus dans une erreur de syntaxe, mais plutôt dans une erreur algorithmique.

C'est bien de penser au [R], mais c'est dans le premier post qu'il faut le mettre pour que ça apparaisse en titre. Je viens de le faire pour vous.