[Wellington-pm] When Perlmongers are forced to use VB
Peter Kelly
perlmonger at pck.co.nz
Tue Oct 3 17:39:05 PDT 2006
I may follow this up with some use of Regex, but in the interim:
Sub dumpHashOfHash(ByRef hash As IDictionary)
Dim k1 As String
For Each k1 In hash.Keys
Dim k2 As String
Dim points As IDictionary
points = CType(hash(k1), Hashtable)
For Each k2 In points.Keys
If points(k2) Is Nothing Then
PDebug(k2 & " in " & k1 & " does not exist.")
Else
PDebug("outer key= " & k1 & " inner key=" & k2 & "
value=" & points(k2).ToString)
End If
Next
Next
End Sub
More information about the Wellington-pm
mailing list