Bonjour,
Est-ce si étonnant ?
Dans le premier cas, il compare un texte et un entier. Forcément false.
Dans le second cas, il y a un changement implicite de type lors de la
déclaration de SansEspace. Du coup, à la comparaison, il compare deux
entiers, et c'est true.
Non ?
Serge
Fabien wrote:
Le Monday 31 March 2008 22:52:37 Bernard Marcelly, vous avez écrit :
Message de Fabien date 2008-03-31 16:31 :
Bonjour,
Que pensez-vous du petit programme suivant:
Sub main
dim texte as string
dim SansEspace as string
texte = " 3"
print CBool(Ltrim(texte) = CInt(texte))
SansEspace = Ltrim(texte)
print CBool(SansEspace = CInt(texte))
end sub
Pour le premier "print", j'obtiens "False", pour le deuxième "True".
Etonnant, non?
Oui, le comportement de Basic est un peu étrange.
Mais ce codage est d'abord incorrect. On compare des oranges et des
carottes! Un des termes de la comparaison est du type String, l'autre
est du type Integer.
Un codage correct est:
print CBool(Ltrim(texte) = CStr(CInt(texte)))
On doit toujours se rappeler que Basic fait des conversions implicites
pour faire une réponse "intelligente" (à la place du programmeur). Et
des fois il se trompe.
Pourquoi la deuxième expression donne True ? Je remarque que si
SansEspace est déclaré comme Variant, le résultat est False. Peut-être
que LTrim() renvoie un variant. Un variant n'a pas de type figé, ça
déroute un peu Basic pour évaluer?
Merci pour la réponse.
En fait, c'est en testant comment Basic gère ces incohérences de type que je
suis tombé sur ce test.
J'avais remarqué que l'on pouvait concaténer une chaîne de caractère et un
entier, l'entier étant automatiquement converti en chaîne. De même que
comparer un entier et une chaîne, l'entier étant convertie en chaîne (donc
100<"99" pour OOo). Je me demandais s'il était pertinent d'utiliser ces
possibilités. Je crois que la réponse est non!
Ceci dit, je trouve tout de même étonnant les résultats donnés par le
programme. Et le fait que la réponse soit différente selon que SansEspace
soit déclaré comme Variant ou comme String est d'autant plus étonnant que si
l'on demande le type de SansEspace (avec TypeName) après
l'instruction "SansEspace = Ltrim(texte)" la réponse est "String" quelque
soit la définition initiale.
Je reconnais que ça n'a pas beaucoup d'importance, mais ça m'interpelle...
Cordialement,
Fabien.
______
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
