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

**franculo_caoulene** · 13/06/2008, 12h08

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Totanne** · 14/06/2008, 19h30

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 ???

**franculo_caoulene** · 16/06/2008, 09h41

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!

**tomlev** · 16/06/2008, 09h57

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...

**franculo_caoulene** · 16/06/2008, 10h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

**OhMonBato** · 16/06/2008, 10h25

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 ?

**franculo_caoulene** · 16/06/2008, 10h29

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**franculo_caoulene** · 16/06/2008, 10h33

OhMonBato : aucun changement.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**OhMonBato** · 16/06/2008, 10h36

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 ?

**franculo_caoulene** · 16/06/2008, 10h42

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.

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.

**franculo_caoulene** · 16/06/2008, 10h45

Pour info :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

**franculo_caoulene** · 16/06/2008, 10h53

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

**OhMonBato** · 16/06/2008, 11h15

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Instr(fichier,"_2.txt") then
  methode2(fichier)
End If

**franculo_caoulene** · 16/06/2008, 11h29

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Me donnent le même comportement.

**tomlev** · 16/06/2008, 12h40

Envoyé par franculo_caoulene

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

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

**franculo_caoulene** · 16/06/2008, 12h44

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à.

**OhMonBato** · 16/06/2008, 12h55

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

**franculo_caoulene** · 16/06/2008, 13h18

Envoyé par OhMonBato

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

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?

**OhMonBato** · 16/06/2008, 13h24

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...

**franculo_caoulene** · 16/06/2008, 13h38

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?

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

VB.NET

Discussions similaires

Partager

Partager