Dim aTexte(3) As String
 
Private Sub MyProcedure(ByRef ResultArray() As String)
' hier als Beispiel wieder die Ausgabe
List1.AddItem Join(ResultArray, "=")
' auf einzelne Elemente greifst du so zu
' ResultArray(0) ist das erste Element
' ResultArray(1) ist das zweite Element
' ...
' Ubound(ResultArray) gibt den letzten Index zurück
' so kannst du also alle Elemente der aktuellen Permutation durchgehen:
' For i = 0 To Ubound(ResultArray)
'  ' hier was ausführen
' Next i
End Sub
 
' diese rekursive Funktion wird für jede Stelle des Ergebnisses aufgerufen
Private Sub Recursive(ByRef ResultArray() As String, ByVal iIndex As Integer)
  Dim sSplitted() As String
  Dim i As Integer
  If iIndex > UBound(ResultArray) Then
    ' Ende erreicht, MyProcedure ausführen
    MyProcedure ResultArray
  Else
    ' alle Möglichkeiten durchgehen
    For i = 0 To UBound(aTexte)
        ' nächste Stelle
        ResultArray(iIndex) = aTexte(i)
        Recursive ResultArray, iIndex + 1
    Next
  End If
End Sub
 
Private Sub Command1_Click()
  Dim MyResultArray() As String
  List1.Clear
  ' wir wollen 4 Elemente (0..3)
  ReDim MyResultArray(3)
  Recursive MyResultArray, 0
End Sub
 
Private Sub Form_Load()
  aTexte(0) = " "
  aTexte(1) = "abc"
  aTexte(2) = "123"
  aTexte(3) = "1-2-2003"
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.