Filtrage (masque) en VB.net

Version imprimable

25/04/2013, 13h27
megamario

Filtrage (masque) en VB.net

Bonjour,

J'ai besoin d'effectuer un masque sur une chaîne String.

Cela va me permettre d'ajouter des fonctions à un logiciel embarqué pour l'affichage IHM.

Je lis la configuration d'origine de l'embarqué (Fichier texte structuré). Je manipule certaines données afin de recrée un fichier de configuration afin que l'utilisateur puisse le réinjecter dans l'embarqué.

J'ai plusieurs variable pour l'affichage IHM (9 exactement) elles sont stockée dans des Strings (Lecture du fichier texte).

IHM1 IHM2 etc...

Elle se présente sous une forme hexadécimale de 32 bits:
Exemple: IHM1 = "A7E3FD30"

Sur cette variable je doit ajouté un masque OU de "40100000"

Afin de trouver en sortie (si je me goure pas :) ) : "E7F3FD30"

J'ai essayé avec un simple Or mais cela ne fonctionne pas et je suis tombé sur un site anglais qui m'indique qu'il n'y a pas de masque en .net mais qu'il faut utiliser les fonctions de décalage bits à bits << et >>.

Je continue a cherche mais si vous avez une explication merci.

J'ai trouvé,

En comparant ce que j'avais dans nos ancien code VB6, je suis arrivé a cela:

Exemple de code:

Code:

1
2
3
4
5
6
7
8
9
 
Dim Var1 as string = "A7E3FD30"
Dim Mask as String = "40100000"
 
‘Résultat à trouver = "E7F3FD30"
 
Dim monResultat as string = Hex(  ("&h" & Var1 ) Or ( "&h" & Mask )  )
 
'monResultat est bien égale à E7F3FD30

Bonjour
Tu aurais aussi bien pu faire (sans passer par le vieux fonction Hex):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Public Class Form2
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Var1 As String = "A7E3FD30"
        Dim Mask As String = "40100000"
 
        'monResultat est bien égale à E7F3FD30
 
        Dim intVar1 As Int32 = HexStringToInteger(Var1)
        Dim intMask As Int32 = HexStringToInteger(Mask)
        Dim intMonResultat As Int32 = intVar1 Or intMask
        TextBox1.Text = IntegerToHexString(intMonResultat)
 
    End Sub
    'Integer en string Hex
    Private Function IntegerToHexString(ByVal intval As Integer) As String
        Return intval.ToString("X")
    End Function
    'string Hex en Integer
    Private Function HexStringToInteger(ByVal stringHex As String) As Integer
        Return Integer.Parse(stringHex, System.Globalization.NumberStyles.HexNumber)
 
    End Function
End Class

bon code.............

26/04/2013, 07h29
megamario

Bonjour,

Merci pour l'info.

Sa rend le code un peu plus long mais c'est clair qu'il faut mieux éviter les fonctions ancienne, je suis suffisamment embêter avec nos codes en VB6 et les souci avec les nouveaux Windows X64