MDbgValue
There dosen't seem to be a very handy way of Getting and Setting the Value of the MDbgValue
Here is some code I use to Get the Value
Private Function ExtractValueType(ByVal val As MDbgValue) As String
'This is a bit of a hack to get the value out.
'because mdbg doesn't seem to provide a nice interface
'to get the boxed value from the mdbgvalue
Dim res As String = val.GetStringValue(True)
Dim iret As Integer = res.IndexOf(vbLf)
If iret > 0 Then
res = res.Substring(0, iret)
End If
Dim valst As Integer = res.IndexOf("<"c) + 1
Dim valfn As Integer = res.IndexOf(">"c)
If valst > 0 AndAlso valfn > 0 Then
Return res.Substring(valst, valfn - valst)
End If
Return String.Empty
End Function
[824 byte] By [GilesBathgate] at [2008-3-6] 