Message d'erreur avec la procédure InStr

**Subkill** · 22/03/2007, 18h17

Bonjour,

J'ai un message d'erreur avec la procédure InStr, chose que je n'avais pas avant. Le programme a été modifié, mais pas à cette endroit.

Voiçi mon code: (chainef = REGLEMENT #95)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Vérifier l'existence d'un tableau champ (voir si balise <FIN> existe)
   PosFin = InStr(1, chainef, "<FIN>")
   If PosFin > 0 Then
      PosDeb = PosFin + 5
   Else
      PosDeb = InStr(1, chainef, "<Body")        ' Trouver la position de la balise <Body
      If PosDeb = 0 Then
        PosDeb = InStr(1, chainef, "<body")      ' ou <body
      End If
      If PosDeb = 0 Then
        PosDeb = InStr(1, chainef, "<BODY")      ' ou <BODY
      End If
      PosDeb = InStr(PosDeb, chainef, ">") + 1   ' Trouver la position juste après la fin de la balise <Body ...>
 
   End If

Là où ça "bug" c'est à la dernière utilisation du InStr:

Code :

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

PosDeb = InStr(PosDeb, chainef, ">") + 1   ' Trouver la position juste après la fin de la balise <Body ...>

Quand je met mon curseur au-dessus de InStr, j'ai le message suivant:
"Argument ou appel de la procédure incorrect"

Pourtant
PosDeb est un long = 0
chainef est un string = REGLEMENT #95
Alors InStr devrait me retourner 3, mais ce n'est pas le cas...je ne comprends pas pourquoi

Quelqu'un connait se problème?

**ProgElecT** · 22/03/2007, 18h36

Peux tu nous donner le texte entier ou tu fais cette recherche, (perso je ne connaisais pas encore la balise <FIN>), mais je connais pas trop mal la façon d'utiler la fonction InStr
La preuve,
subkill, Inscrit le mardi 24 octobre 2006, Total message: 96, discussions ouvertes: 23, Nbr.de TAGs utilisés: 18, moyenne: 78/100, ma partitipation jusqua ce post: 18
J'aime bien les forumeurs qui utilise les tags,
Extrait des pages de DVPs(forum VB6) a l'instant

**ProgElecT** · 22/03/2007, 19h10

si aucun des Bodys n'a été trouvée, PosDeb = 0, ta derniere recherche commence donc par zero, alors que le Start de la fonction InStr doit commencer au moins par 1.

**Subkill** · 22/03/2007, 19h10

Je vais te donner le texte au complet. Mais avant j'aimerais mieux te dire qu'il ne contient pas la balise <FIN> ou <body> ou <Body>. (La balise <FIN> n'est pas une balise reconnu par le html, mais utilisée à des fins pratiques pour l'application).

Voiçi le texte complet:
<div align="center">
REGLEMENT #95
abrogeant le règlement #91 et modifiant le règlement #86
</div>
ATTENDU que la MRC de Bécancour a adopté le règlement #91 modifiant règlement 486 modifiant le schéma d'aménagement;
ATTENDU que le règlement #91 découle de l'avis du ministre en vertu l'article 27 de la L.A.U.;
ATTENDU que le ministre de l'Agriculture, des Pêcheries et l'Alimentation du Québec considère non conforme la délimitation de certains périmètres d'urbanisation;
ATTENDU que la MAPAQ interprète de façon stricte l'article 69,4 de la Loi sur la protection du territoire agricole;
ATTENDU que la MRC de Bécancour ne partage pas l'opinion du MAPAQ;
ATTENDU que l'interprétation stricte de l'article 69,4 de la Lois sur la protection du territoire agricole va à l'encontre d'un aménagement rationnel territoire;
ATTENDU qu'il s'avère toutefois nécessaire que certaines modifications apportées au schéma d'aménagement entrent en vigueur;
ATTENDU que cette entrée en vigueur permettra à certaines municipalités de finaliser leur plan et réglementation d'urbanisme;
ATTENDU qu'avis de motion a été légalement donné par courrier recommandé en vertu de l'article 445 du Code municipal;
EN CONSÉQUENCE,
UR PROPOSITION DE Monsieur Emilien Caron 
APPUYEE PAR Monsieur Jean-Louis Théorët
IL EST RESOLU UNANIMEMENT que soit adopté le présent règlement, qu'il porte le numéro 95 sous le titre de "Règlement abrogeant le règlement #91 et modifiant le règlement #86 et qu'il soit statué ce qui suit:
Article 1 Règlement
Le présent règlement abroge à toutes fins que de droit le règlement #91 modifiant le règlement #86 modifiant le schéma d'aménagement.
<a name="95a.2"></a><a href="/Sigat/Html/Sad/Sad/A_jour/r380_1saj_sad.htm#95a.2">Article 2</a> Règlement #86 - article 4
L'article 5 du règlement #86 est modifié et remplacé par ce qui suit:
Le schéma d'aménagement est modifié par l'ajout d'un article 27.2.10.
27.2.10 Considérer conforme au schéma, l'extension du milieu urbain, à l'extérieur du périmètre d'urbanisation, sur des terrains ou lot directement adjacents au périmètre d'urbanisation et qui ont fait l'objet d'Une exclusion ou d'une autorisation de la part de la Commission de protection du territoire agricole.
Article 3 Règlement #86 - article 14
L'article 14 (périmètres d'urbanisation) du règlement #86 est abrogé.
Article 4 Règlement #86 - plans
Les périmètres d'urbanisation des municipalités de Deschaillons sur St-Laurent, Fortierville, Lemieux, Manseau, Parisville, Ste-Cécile de Lévrard, Ste-Françoise, Ste-Marie de Blandford, St-Pierre les Becquets, Ste-Sophie de Lévrard, St-Sylvère et ville de Bécancour (secteur Bécancour, secteur Gentilly, secteur Précieux-Sang, secteur Ste-Angèle de Laval, secteur Ste-Gertrude, secteur St-Grégoire, Plateau Laval et Seigneurie Godefroy) apparaissant en annexe du règlement #86 sont abrogés.
Article 5 Entrée en vigueur
Le présent règlement entrera en vigueur conformément à la loi.
ADOPTE CE 27 FEVRIER 1991.
COPIE CERTIFIEE CONFORME AU LIVRE DES REGLEMENTS
Donnée à Gentilly, ce 20ième jour de février 1991.
Laval Dubois 
Secrétaire-trésorier 
MRC de Bécancour

**Subkill** · 22/03/2007, 19h11

Envoyé par ProgElecT

si aucun des Bodys n'a été trouvée, PosDeb = 0, ta derniere recherche commence donc par zero, alors que le Start de la fonction InStr doit commencer au moins par 1.

Ah voilà le problème surement!

Merci

**OhMonBato** · 22/03/2007, 19h32

Pour eviter de chercher toute les combinaisons de "Body" possible, tu peux faire ta recherche en mettant tout en majuscule par exemple :

PosDeb = InStr(1, Ucase(chainef), "<BODY")

**Subkill** · 22/03/2007, 19h36

Envoyé par OhMonBato

Pour eviter de chercher toute les combinaisons de "Body" possible, tu peux faire ta recherche en mettant tout en majuscule par exemple :

PosDeb = InStr(1, Ucase(chainef), "<BODY")

Effectivement, moi je travaille sur la résolution de problème, pis je peux vous dire que le programme au complet est codé en broche à foin! Faudrait que je retappe le code au complet, alors merci de l'idée, mais je ne fais que règler les problèmes, je ne suis pas là pour optimiser le code!

Merci encore

Subkill qui est tanné de travailler sur des projets mals foutus!

Message d'erreur avec la procédure InStr

VB 6 et antérieur

Discussions similaires

Partager

Partager