[VB6/VB.Net] Quel est l'équivalent de l'expression Mid ?

Version imprimable

09/09/2008, 17h33
bentley71de

[VB6/VB.Net] Quel est l'équivalent de l'expression Mid ?

salut à tous

Je voudrais obtenir ceci
2000 = 00xx
ou
2000 = xx
en utilisant cette expression ceci stVal = Mid(stVal, z, xy) où "xx" represente mon resultat effectif.
Comment le fait-on?

Merci
NB : respect des espaces. exple: entre 2000 et le signe =
PS: Je n'ai pas trop de notions de VB.
Désolé!
09/09/2008, 17h44
OhMonBato

Désolé mais je n'ai pas compris vraiment ce que tu voulais faire. Tu peux expliquer d'une autre mnaière stp ?
09/09/2008, 21h28
Delbeke

Heu, si on veut programmer quelque chose, on indique de où on part et où on veut aller. Ben la , tu nous dis où tu veux aller, sans nous dire d'où tu pars. Enfin c'est que j'ai compris. çà reste très flou tout çà

Mon point de depart est ce bout de code :
En effet mon resultat est affiché dans la variable stVal

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
    Private Sub cmdRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRead.Click
        Dim stMsg As String
        Dim iNum As Integer
        Dim stVal As String
        Dim stAddr As String
 
        mainTextBox1.Text = ""
        stAddr = UCase(txtAddress.Text)
        While Len(stAddr) < 4
            stAddr = "0" & stAddr
        End While
        stMsg = "R" & stAddr & vbCrLf
 
        stVal = ""
        myCom.Timeout = 8000
        myCom.Write(stMsg)
        'myCom.Read(stVal)
        myCom.ClearInputBuffer()
        mainTextBox1.Text = ""
 
        Try
            iNum = myCom.Read(20)
            If (iNum = 0) Or (iNum <> 20) Then
                MsgBox("Ricevuti " & iNum & " caratteri", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
            End If
 
 
 
            stVal = myCom.InputStreamString()
 
            If InStr(stVal, "ERROR") <> 0 Then
                MsgBox("ERROR", MsgBoxStyle.OkOnly) '
            ElseIf (Mid(stVal, 1, 5) = "R" & stAddr) Then
                stAddr = Mid(stVal, 12, 4)
                stVal = Mid(stVal, 9, 12)
                mainTextBox1.Text = stVal
 
            Else
                MsgBox("RISPOSTA ERRATA", MsgBoxStyle.OkOnly) '
            End If
            mainTextBox1.Text = stVal
 
        Catch ex As Exception
            myCom.Timeout = 0
        End Try
 
 
    End Sub

dans stVal j'obtiens par exemple ceci:

Code:

1
2
 
2000 = FF00

Moi j'aimerais que mon resultat soit plutôt affiché comme suis

Code:

1
2
3
 
2000 = 00FF ou plutôt comme suit
2000 = FF

10/09/2008, 11h34
Pol63

rien compris non plus
mais .net en général on utilise plus len mid et autre ucase
sur la classe string il y a plein de choses donc sur ta variable string tu fais .length .substring ou .toupper etc...
11/09/2008, 14h07
ced600

En .Net onn utilise les méthode de string comme dit précédement, soit :
Split, Substring, Trim, ...

Si tu veux supprimer les nombres de la partie : FF00, et que celle n'est pas toujours constante (pas même taille, pas toujours 2 chiffres mais des fois plus, pas toujours au même endroit), tu peux faire cela :
Faire un Split avec = sur stval
récupérer le deuixème membre.
Le parcourir caractère par caractère.
Appliquer la méthode IsDigit de char pour savoir qui est un digit.
Conservé l'index des charactère qui sont des digits.
Faire un ensemble de substring pour récupérer les parties non digit.
Et finir par une concaténation des strings obtenus.