Dim aTexte(3) As String
Dim ElementNames As Collection
 
Private Sub MyProcedure(ByRef ResultArray() As String)
  ' hier als Beispiel wieder die Ausgabe
  Dim i As Integer, sOutput As String
  For i = 0 To UBound(ResultArray)
    sOutput = sOutput & " " & ElementNames(i + 1) & " =""" & ResultArray(i) & _
      """"
  Next i
  List1.AddItem sOutput
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()
  Dim i As Integer
  aTexte(0) = " "
  aTexte(1) = "abc"
  aTexte(2) = "123"
  aTexte(3) = "1-2-2003"
  Set ElementNames = New Collection
  For i = 1 To UBound(aTexte) + 1
    ElementNames.Add "el" & i
  Next i
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.