folgendermaßen zerlegen lassen, so dass er mir alle Kombinationsmöglichkeiten anzeigt:
1234
123-4
12-34
12-3-4
1-234
1-23-4
1-2-34
1-2-3-4
Hab dazu auch schon nen ganz netten Code geschrieben, funktioniert aber leider nicht ganz (Problem ist, ich steh auf Kriegsfuß mit rekursiven Algos, ist hier aber leider angebracht):
Aufruf durch:
Sub test()
dim text as string
dim AllIntegrations() as Variant
Redim AllIntegrations(1 to 8)
text="1234"
cvar=0
Call SplitIntegrations(text, "")
End Sub
Eigentlicher Algo:
Private Sub SplitIntegrations(todo As String, Integr As String)
Dim tex As String
tex = todo
For i = 1 To Len(tex)
firstpart = Left(tex, Len(tex) + 1 - i)
IntegrationText = Integr & firstpart & "-"
If Len(firstpart) < Len(tex) Then
secondpart = Right(tex, i - 1)
Dim ütex As String
ütex = secondpart
Call SplitIntegrations(ütex, IntegrationText)
Else
cvar = cvar + 1
AllIntegrations(cvar) = Left(IntegrationText, Len(IntegrationText) - 1)
IntegrationText = Left(IntegrationText, Len(IntegrationText) - Len_
(secondpart))
End If
Next
End Sub
Ausgeben tut er aber folgendes:
1234
123-4
12-34
12-33-4
1-234
1-223-4
1-223-42-34
1-223-42-33-4
Wer kann mir weiterhelfen? Ist wahrscheinlich nicht allzu schwer, hab aber schon zuviel ausprobiert, und seh den Wald vor lauter Bäumen nicht mehr
Gruß, Ralf