تابعی که مقدار یک کلید دیکشنری در قالب استرینگ رو بر میگردون
Public Function get_value_by_keydic(ByVal strKeyValues As String, ByVal key As String) As String
Dim strArgument() As String
strArgument = Split(strKeyValues, ",")
Dim i As Integer
For i = 0 To UBound(strArgument)
If InStr(strArgument(i), key) And InStr(strArgument(i), ":") > 0 Then
If Left(strArgument(i), InStr(strArgument(i), ":") - 1) = key Then
get_value_by_keydic = Mid$(strArgument(i), InStr(strArgument(i), ":") + 1)
Exit Function
End If
End If
Next
get_value_by_keydic = ""
End Function
مثال زیر نمره هریک از اشخاص رو که بصورت دیکشنری در قالی استرینگ تعریف شده پیغام میده
Private Sub Command89_Click()
Dim strdic1 As String
strdic1 = "reza:20,ali:19,asghar:18,amir:17"
MsgBox "reza :" & get_value_by_keydic(strdic1, "reza")
MsgBox get_value_by_keydic(strdic1, "ali")
MsgBox get_value_by_keydic(strdic1, "asghar")
MsgBox get_value_by_keydic(strdic1, "amir")
End Sub