Pour répondre à jpmaton à sa question

Résolu
vb95
Messages postés
2636
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
27 mai 2022
- Modifié le 6 juil. 2019 à 18:26
jpmaton
Messages postés
61
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
27 avril 2022
- 8 juil. 2019 à 17:14
Bonjour
J'ai reçu un message privé de jpmaton auquel je ne puis répondre ( sûrement car celui-ci n'a pas autoriser les autres membres a lui envoyé des messages privés )
Voulant tout de même lui répondre j'ouvre ce post en espérant qu'il le verra
Voici l'intitulé du message qu'il m'a envoyé


Concernant le mot clé
Val
je maintiens que celui-ci est un mot clé de VB 6
Dans le lien que jpmaton a mis dans son message il dit que Val fait bien partie de *Microsoft Net .
jpmaton écrit : ce mot clé est cependant décrit par Micosoft .NET dans https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.conversion.val?view=netframework-4.8
Lorsque l'on ouvre ce lien on s'aperçoit que ce mot clé fait partie de l'espace de nom Microsoft VisualBasic comme le montre cette image

Cet espace de nom n'est juste que l'importation automatique dans VB Net de l'ensemble des instructions VB 6 ce qui souvent même à confusion .
Pour faire du "pur" VB Net il suffit d'aller dans les propriétés du projet et de clique dans l'onglet Reférences. Une fois ceci fait dans la liste en bas on repère l'entrée Microsoft VisualBasic et on la décoche ( la 4° entrée comme sur l'image suivante)

ainsi on ne peut plus utiliser aucun mot clé VB 6 dans VB Net .

Maintenant par quoi remplacer
Val
si on fait du "pur" VB Net
C'est là qu'entre en jeu les conversions entre type de variables
On va utiliser
Convert.ToInt32
pour convertir une chaine de caractères numérique en une valeur de type Integer
Donc
Dim intAge as Integer = Convert.ToInt32("48")
nous donne bien la valeur numérique pour l'age
Cependant l'instruction VB 6
Val
présente un avantage
On peut faire
Dim intAge as Integer = Val("48ans")
: la conversion s'arrêtera au premier caractère non numérique alors que ceci n'est pas possible avec
Convert.ToInt32
si on précise "ans" derrière "48"
Pour contrer ceci on peut faire
Dim Age as String = "48ans"
Dim intAge as Integer = 0
For i = 0 to Age.Length - 1
     ' pour chaque caractère de la chaine Age
     ' si ce n'est pas un chiffre on sort de la boucle
    If Age.Substring(i,1) < "0" And Age.Substring(i,1) > "9" then Exit For
    intAge = (intAge * 10) + Convert.Toint32(Age.Substring(i,1) )
Next 


Maintenant chacun peut choisir : ou faire du "pur" VB Net ou mélanger les torchons et les serviettes en mettant du VB 6 dans VB Net . Le premier choix est bien plus judicieux à mon avis .

Un lien intéressant en rapport avec ce sujet : https://codes-sources.commentcamarche.net/faq/11151-pourquoi-mon-code-vb6-vba-ne-marche-pas-en-vb-net ( tutoriel fait par Whismeril que je salue )

J'espère ainsi avoir répondu à la question de jpmaton

6 réponses

vb95
Messages postés
2636
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
27 mai 2022
151
6 juil. 2019 à 21:25
Pas de quoi !
Pour la prochaine fois passe par le forum : c'est plus simple et en accord avec la charte
Bonne soirée
1
Whismeril
Messages postés
17346
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
27 mai 2022
596
Modifié le 7 juil. 2019 à 17:02
Bonjour
cette solution, ne prend pas en compte un nombre négatif, ou décimal.

Une Regex est une option, voir ce lien (à copier / coller le bug du site sur ce genre de lien n'est toujours pas résolu)
http://regexstorm.net/tester?p=%28%3f%3c%3d%5e%29-%3f%5cd%2b%28%3f%3a%5b%2c.%5d%5cd%2b%29%3f&i=-123456789%2c0123456789+untit%c3%a9+quelquonque 


Vois verrez qu'avec ou sans le -, avec un . une , ou pas le nombre est capturé à condition d'être au début du texte

Quand j'étais petit, la mer Morte n'était que malade.
George Burns
1
jpmaton
Messages postés
61
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
27 avril 2022
1
6 juil. 2019 à 19:01
Bonsoir VB95,
Grand merci pour cette réponse exhaustive qui me convient tout à fait.
Bien à toi

Jean-paul
0
jpmaton
Messages postés
61
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
27 avril 2022
1
7 juil. 2019 à 08:17
Bonjour,
Juste une petite correction :
If Age.Substring(i,1) < "0" And Age.Substring(i,1) > "9" then Exit For 

à remplacer par
If Age.Substring(i,1) < "0" Or Age.Substring(i,1) > "9" then Exit For

Bonne journée
Jean-paul
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vb95
Messages postés
2636
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
27 mai 2022
151
7 juil. 2019 à 12:05
Oh la bourde !
Merci d'avoir corrigé : j'ai tapé trop vite de tête
0
jpmaton
Messages postés
61
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
27 avril 2022
1
8 juil. 2019 à 17:14
Précision utile.
0