Dim i as long
Dim j as long
 
Dim s as String
 
Dim ar() as String 
 
'ar ist das Array mit den eingelesenen Texten
 
For i = lbound(ar) to ubound(ar) - 1
  For j = i + 1 to ubound(ar)
    s = ar(i) & " " & ar(j)
    if alleUngleich(s) then
      'übernehmen
    end if
  Next j
Next i
 
'---
 
Function alleUngleich(s as string) as boolean
 
  dim d as new Dictionary' MS-scriptiong runtime einbinden
 
  dim arS()
  dim v
 
  on error resume next
 
  'EDIT: " " bei split vergessen
  arS = Split(s, " ")
 
  alleUngleich = True
  for each v in arS
    if d.Exists(v) then
      alleUngleich = False
      exit for
    else
      d.add v,v
    end if
  next v
 
End Function

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 03.08.10 um 15:13:42 editiert.