Récuperer et convertir une chaine de caractère

Question

Récuperer et convertir une chaine de caractère

Signaler

cs_daerken

Messages postés: 15
Date d'inscription: vendredi 6 juin 2008
Statut: Membre
Dernière intervention: 23 avril 2012

- 20 avril 2012 à 20:08
cs_ShayW

Messages postés: 3258
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 3 décembre 2019

- 24 avril 2012 à 09:20

Bonjour à tous,

lampe = Microsoft.VisualBasic.Right(Text2Display, 6)   

            Dim gauche = Microsoft.VisualBasic.Left(lampe, 2)
            Dim droite = Microsoft.VisualBasic.Right(lampe, 3)

            lampe = droite & gauche
            lampe = Replace(lampe, " ", "")

            Dim temp = "&H" & lampe
            Dim hexData As Integer = temp
            Dim sHex As String = Convert.ToString(hexData, 16)

            lampe = Convert.ToInt32(sHex, 16)

Je m'explique, j'ai une chaîne de caractère (ici : Text2Display ) qui à pour valeur par exemple : "00 2F 20 03 " (avec un espace à la fin).

C'est en fait une trame de réponse en base 16. Je souhaite sélectionner les deux dernier octets (soit "2003") et le convertir en base 10 afin d'avoir la valeur visuellement.
Le code plus haut fonctionne mais je trouve ça long et laborieux.

Si vous voyer une alternative je suis preneur !

Merci à tous !

A voir également:

Right vb.net
Vb right - Meilleures réponses
Vb.net &h - Meilleures réponses
Convertir une chaine de caractère en entier c - Forum - C / C++ / C++.NET
Conversion string -> entier ✓ - Forum - C / C++ / C++.NET
Récupération de la dernière chaine de caractère - Codes sources - Visual Basic / VB.NET (Texte)
Convertir une chaîne de caractère : mes docs word ==> mesdocsword - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
C# / .NET : Convertir une chaîne de caractères en chaîne sans accent - CodeS Sou - Guide

12 réponses

Répondre Posez votre question

ucfoutu · Answer 1 · 2012-04-20T21:54:40+0200

Réponse 1 / 12

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

235
20 avril 2012 à 21:54

Bonjour,
Et que donnerait l'utilisation "malsaine" de ce bon vieux Val de VB6, à savoir :
lampe val(lampe) vers string ?

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer 2 · 2012-04-20T22:11:10+0200

Réponse 2 / 12

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

235
20 avril 2012 à 22:11

sans compter (pour le cas où tu ne voudrais pas utiliser ce "bête" Val), que j'ai "comme l'impression" que tu aurais le même résultat en remplaçant (Par Replace) les espaces de lampe par ""

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_Galain · Answer 3 · 2012-04-22T11:59:10+0200

Soit une form avec deux Textbox ( Entree contient la chaine d'origine et Sortie contiendra le résultat)
Attention on convertit ici en valeurs non signées
Pour les valeurs signées utiliser Convert.toInt32

 
        Dim chaine As String, valeur As UInteger

        Entree.Text = "00 2F 20 03 " ' ton exemple
        chaine = Entree.Text
        chaine = chaine.Replace(" ", "")
        chaine = chaine.Substring(4)
        valeur = Convert.ToUInt32(chaine, 16)
        Sortie.Text = valeur.ToString

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_ShayW · Answer 4 · 2012-04-22T14:26:50+0200

Réponse 4 / 12

cs_ShayW

Messages postés: 3258
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 3 décembre 2019

50
22 avril 2012 à 14:26

Salut

ce n'est pas la peine d'utiliser les fonctions du vb6 si on code en net
bien au contraire supprimer la réference visualbasic du projet

cs_daerken · Answer 5 · 2012-04-23T16:01:42+0200

Réponse 5 / 12

cs_daerken

Messages postés: 15
Date d'inscription: vendredi 6 juin 2008
Statut: Membre
Dernière intervention: 23 avril 2012

23 avril 2012 à 16:01

lampe = Microsoft.VisualBasic.Right(Text2Display, 6)   

            Dim gauche = Microsoft.VisualBasic.Left(lampe, 2)
            Dim droite = Microsoft.VisualBasic.Right(lampe, 3)

            lampe = droite & gauche
            lampe = Replace(lampe, " ", "")

            Dim temp = "&H" & lampe
            Dim hexData As Integer = temp
          

            lampe = hexData

Ne peut on pas faire ça tout simplement ?

cs_daerken · Answer 6 · 2012-04-23T16:13:09+0200

Réponse 6 / 12

cs_daerken

Messages postés: 15
Date d'inscription: vendredi 6 juin 2008
Statut: Membre
Dernière intervention: 23 avril 2012

23 avril 2012 à 16:13

PS : lampe est un objet !

ucfoutu · Answer 7 · 2012-04-23T16:16:25+0200

Réponse 7 / 12

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

235
23 avril 2012 à 16:16

PS : lampe est un objet !

et

lampe = Microsoft.VisualBasic.Right(Text2Display, 6)

Ah !
Explique !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_daerken · Answer 8 · 2012-04-23T16:33:18+0200

Réponse 8 / 12

cs_daerken

Messages postés: 15
Date d'inscription: vendredi 6 juin 2008
Statut: Membre
Dernière intervention: 23 avril 2012

23 avril 2012 à 16:33

lampe = Microsoft.VisualBasic.Right(Text2Display, 6)

Veut juste dire que lampe prend les 6 derniers caractères de Text2Display.

Lampe est bien défini comme ça en tête du programme : Dim lampe

cs_ShayW · Answer 9 · 2012-04-23T21:40:25+0200

Réponse 9 / 12

cs_ShayW

Messages postés: 3258
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 3 décembre 2019

50
23 avril 2012 à 21:40

toute une salade vb6 vb.net
met ton projet à option strict on

Lampe est bien défini comme ça en tête du programme : Dim lampe

ç'est tout as

ucfoutu · Answer 10 · 2012-04-23T21:58:11+0200

Réponse 10 / 12

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

235
23 avril 2012 à 21:58

Veut juste dire que lampe prend les 6 derniers caractères de Text2Display.

Lampe n'est donc pas un objet !

Lampe n'est qu'une variable de type string

Quand même !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_Galain · Answer 11 · 2012-04-23T23:31:09+0200

Réponse 11 / 12

cs_Galain

Messages postés: 1263
Date d'inscription: mardi 11 novembre 2003
Statut: Membre
Dernière intervention: 24 juillet 2013

6
23 avril 2012 à 23:31

il faudrait surtout éviter ce mélange horrible VB 6.0 - VB Net
La solution précédente en VB Net pur tient en 3 lignes sans les déclarations de variables ni le remplissages des Textbox que j'ai utilisées dans mon post précédent

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_ShayW · Answer 12 · 2012-04-24T09:20:45+0200

Réponse 12 / 12

cs_ShayW

Messages postés: 3258
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 3 décembre 2019

50
24 avril 2012 à 09:20

Salut Galain

Esperons que daerken t'écoutera
la salade vb6.net un peu indigeste

Votre réponse