Discussion :

[thuglife]

Bonjour,

En VBA j'ai un string qui ressemble à la photo ci-dessous, je cherche à extraire certains paramètres contenu dans le string strResp avec leurs valeurs.



par exemple j'aimerais extraire :
MaxAllocSpace:0 et CouldTrim:65800

si quelqu'un peut m'aider ?

[Invité]

Essaie cet exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Dim strResp As String
 Dim vec, c
 Dim Vals As New Collection
 strResp = "aaa:111 bbb:222 ccc:333"
 For Each c In Split(Trim(strResp), " ")
   vec = Split(c, ":")
   Vals.Add vec(1), CStr(vec(0))
 Next
 
 Debug.Print Vals("aaa")
 Debug.Print Vals("ccc")

[thuglife]

Cela ne fonctionne pas mais je vois que le VEC est "mal" agencé

[Valtrase]

Bonjours à tous,
Je détourne une fonction que j'utilise souvent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'@Description "Retrieves a value from a control's tag based on a key."
Private Function GetTheValue(TagValue As String, _
                             Value As String _
                             ) As String
 
    On Error Resume Next
 
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
 
    Dim TempTab() As String
    TempTab = Split(TagValue, " ")
 
    Dim Counter As Integer
    For Counter = LBound(TempTab) To UBound(TempTab)
        Dim Items() As String
        Items = Split(TempTab(Counter), ":")
        If UBound(Items) = 1 Then
            dict(Items(0)) = Items(1)
        End If
    Next
 
    If dict.Exists(Value) Then
        GetTheValue = dict(Value)
    Else
        GetTheValue = vbNullString
    End If
 
    If Not dict Is Nothing Then Set dict = Nothing
End Function

Vous pouvez faire un test comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test()
Const Chaine As String = "TotalAllocated:524880 NbFreeChunck:12"
MsgBox GetTheValue(Chaine, "NbFreeChunck")
End Sub

Vous pourriez faire plus simple d'utilisation avec une déclaration d'un type puis vous assignez les valeurs recherchée...
Pouvez vous nous faire parvenir la chaine. Et pas sous forme de photo. Merci

[thuglife]

ça me fait pareil, on dirait que les tables sont "mal" rangées

[Valtrase]

Re,
Pouvez-vous envoyer votre code car là nous ne somme pas sur la même longueur d'onde. Je teste la fonction est c'est ok d’après vos informations. Attention à la Casse.
Poster :

• Le code incriminé
• La ligne qui contient les donnée à traitées

ET SI POSSIBLE PAS SOUS FORME DE PHOTOS.
Utilisez le bouton # dans le menu pour l'insertion de code avec un copier/coller.