Peter Otten wrote:

May you could give us an idea of the current state of basic affairs then by
translating the following example snippet:

yes you can do it in VB6, but pythons lists and dictionarys are superior to those built in in VB and I think to those in most other languages.



It's me wrote:


I saw this code from an earlier post:

lst1 = ["ab", "ac", "ba", "bb", "bc"]
lst2 = ["ac", "ab", "bd", "cb", "bb"]
dct1 = dict.fromkeys(lst1)
print [x for x in lst1 if x not in dct1]
print [x for x in lst1 if x in dct1]

I think line3 should be

>>dct1 = dict.fromkeys(lst2)

correct?

VB6 Code:

Sub xy()

Dim lst1 As New Collection
Dim lst2 As New Collection

lst1.Add "ab", "ab": lst1.Add "ac", "ac": lst1.Add "ba", "ba": lst1.Add "bb", "bb": lst1.Add "bc", "bc"
lst2.Add "ac", "ac": lst2.Add "ab", "ab": lst2.Add "bd", "bd": lst2.Add "cb", "cb": lst2.Add "bb", "bb"


For Each item In lst1
  If ColHasKey(lst2, item) Then Debug.Print "in:" & item
Next

For Each item In lst1
  If Not ColHasKey(lst2, item) Then Debug.Print "not in:" & item
Next

End Sub


Function ColHasKey(col As Collection, item) As Boolean On Error GoTo er A = col(item) ColHasKey = True Exit Function er: If Err.Number = 5 Then ColHasKey = False Else Err.Raise Err.Number End If End Function -- http://mail.python.org/mailman/listinfo/python-list

Reply via email to