[2.0] comportement étrange sur condition sur string.indexOf

Salut,

J'ai une procédure dans laquelle j'appelle une autre procédure selon le nom de fichier. Je teste donc le nom de fichier avec indexOf comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Shared Sub verifierRetour(ByVal fichier As String) Dim s1 As Integer = fichier.IndexOf("_1.txt") Dim s2 As Integer = fichier.IndexOf("_2.txt") If s1 > -1 Then methode1(fichier) End If If s2 > -1 Then methode2(fichier) End If End Sub

---

Le problème est que la condition avec s1 se comporte normalement, mais methode2 est toujours exécuté mêe quand s2 est très clairement égal à -1.
Savez-vous d'où ça peu venir?

Merci par avance.

Plutôt surprenant ...
Si Methode2 est executée, S2 est forcément <= -1 ...
En debug, tu n'as quand même pas vu ton appli rentrer dans le IF alors que la condition était false ???

Citation:

---

Envoyé par Totanne

En debug, tu n'as quand même pas vu ton appli rentrer dans le IF alors que la condition était false ???

---

Et pourant si!

D:\NOTIFICATION\TMP\XXXXXXX_1_3_3_1.txt
s1 = 33 passe dans le if
s2 = -1 passe dans le if (pas normal)

D:\NOTIFICATION\TMP\XXXXXXX_1_3_3_2.txt
s1 = -1 passe pas dans le if (normal)
s2 = 33 passe dans le if

et ainsi de suite invariablement!

Si c'est une appli ASP.NET, tu as essayé de recompiler ? Parce que ton code est OK a priori, chez moi il fonctionne bien...

C'est un service windows. J'ai regénéré l'appli mais l'erreur est toujours là!
Le problème intervient toujours même si je change la seconde condition en

Code:

---

if s1 = -1 then

---

Le comportement reste toujours le même.
En debug, toutes les valeurs sont cohérentes et correctes, mais je rentre tout de même dans la condition! La méthode n'est réellement composée que de ces quelques lignes, s1 et s2 sont nulles part ailleurs dans le projet et sont du bon type.
C'est hallucinant!

Meme si a priori ca n'a rien a voir, si tu remplaces ta recherche IndexOf par un truc comme : s2 =instr(fichier,"_2.txt"), ca fait pareil ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Shared Sub verifierRetour(ByVal fichier As String) Dim s1 As Integer = fichier.IndexOf("_1.txt") Dim s2 As Integer = fichier.IndexOf("_2.txt") Dim s3 As Boolean = True   If s1 > -1 Then methode1(fichier) End If If Not s3 Then methode2(fichier) End If End Sub

---

methode2() est toujours exécutée alors que je test sur "Not s3" (s3 valant true).
J'ai beau modifier les conditions, l'exécution reste la même. Connaîtriez-vous des pistes à explorer? J'ai généré la solution, sans qu'aucune erreur ne soit retournée.
Je rappelle, que je suis amateur en .net.

Merci.

OhMonBato : aucun changement.

De plus, pour appeler verifierRetour() j'utilise déjà ce genre de méthode et ça fonctionne bien :

Code:

---

1 2 3 4

For Each fichier As String In My.Computer.FileSystem.GetFiles(My.Settings.cheminDossierTmp) If fichier.IndexOf("ZZZZZZ") > -1 Then verifierRetour0(fichier) If fichier.IndexOf("XXXXXXX") > -1 Then verifierRetour(fichier) Next

---

Le problème est forcément ailleurs, mais je n'ai pas assez d'expérience pour le pointer du doigt.

Question bete : ta methode2 ne serait pas appelee a l'insu de ton plein gre par la methode1 ?
En utilisation pas a pas, le test passe vraiment ?

Citation:

---

Envoyé par OhMonBato

Question bete : ta methode2 ne serait pas appelee a l'insu de ton plein gre par la methode1 ?

---

Non, non, je viens de vérifier, ça aurait été un non-sens dans mon cas, mais j'ai tout de même vérifier.

Citation:

---

Envoyé par OhMonBato

En utilisation pas a pas, le test passe vraiment ?

---

J'utilise bien le pas à pas et la petite ligne jaune passe constamment dans ma condition. Je le sais bien, j'ai envie de taper mon écran à chaque fois que ça se produit.

Pour info :

Code:

---

1 2 3 4 5 6 7 8 9

Public Shared Sub verifierRetour(ByVal fichier As String) Dim s1 As Integer = fichier.IndexOf("_1.txt") Dim s2 As Integer = fichier.IndexOf("_2.txt")   If s1 > -1 Then methode1(fichier) End If   End Sub

---

Ce code fait que methode1() est toujours exécutée...

Afin de prouver ma bonne foi, vous pouvez regarder la copie d'écran.

desole d'insister mais avec ce test ca fait quoi ?

Code:

---

1 2 3 4

If Instr(fichier,"_2.txt") then methode2(fichier) End If

---

Code:

---

1 2 3

If Instr(fichier,"_2.txt") then methode2(fichier) End If

---

Code:

---

1 2 3

If Instr(fichier,"_2.txt")>-1 then methode2(fichier) End If

---

Me donnent le même comportement.

Citation:

---

Envoyé par franculo_caoulene

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Shared Sub verifierRetour(ByVal fichier As String) Dim s1 As Integer = fichier.IndexOf("_1.txt") Dim s2 As Integer = fichier.IndexOf("_2.txt") Dim s3 As Boolean = True   If s1 > -1 Then methode1(fichier) End If If Not s3 Then methode2(fichier) End If End Sub

---

methode2() est toujours exécutée alors que je test sur "Not s3" (s3 valant true).

---

:koi:
Alors là quand même y a un truc louche... c'est le CLR qui pète les plombs on dirait ?!

Je pense en effet à quelque chose dans le genre, ou un truc que je fais mal à la compilation, un paramètre que je ne connais pas qui aurait une mauvaise valeur...
Ca fait penser aux problèmes de cache des navigateurs internet. Je ne vois pas comment chercher une solution au problème là.

Je sais pas trop si ca fera avancer le schmilblick mais tu peux ajouter apres "if s2 > -1 then" :

Code:

---

1 2 3

Debug.Print(s2 > -1) Debug.Print(s2 = -1)

---

Juste pour voir et se faire encore un peu plus mal a la tete... :aie:

Citation:

---

Envoyé par OhMonBato

Je sais pas trop si ca fera avancer le schmilblick mais tu peux ajouter apres "if s2 > -1 then" :

Code:

---

1 2 3

Debug.Print(s2 > -1) Debug.Print(s2 = -1)

---

Juste pour voir et se faire encore un peu plus mal a la tete... :aie:

---

Je le dis que je suis un amateur mais on m'écoute pas :)
J'ai ajouté les Debug.print() mais je l'utilise comment après?

Et bien quans tu executeras ton programme, tu verras True ou False s'afficher dans la fenetre de visualisation immediate, que tu peux activer avec CTRL + G ou dans le menu debug.
C'est une fenetre qui s'affiche au meme niveau que la fenetre de liste d'erreur.

Sinon autrement, verifie aussi si Option Strict et Option Infer sont On ou Off, je ne vois pas dans ce cas particulier en quoi ca influencerait mais a tout hasard...

Les fenêtres proposées au moment du débugage sont :
- points d'arrêt
- espion
- variables locales
- pile des appels
- threads

ctrl + G m'ouve la fenêtre pour aller directement à la ligne.

option explicit = on
option strict = off
option compare = binary

Ce sont les valeurs par défaut, ou du moins je ne les ai pas volontairement modifiées. Qu'est-ce que Option Infer?