AW: Das ist aber wenig flexibel...
14.01.2004 12:30:09
alex mair
ein poker spiel also, ich liebe pokern :)
zuerst string in array einlesen, dann string sortieren (mit bubblesort z.b.), dann array in string rückverwandeln. guck mal den code hier:
Sub blubb()
Dim text As String, dummy As String
Dim i As Integer, j As Integer, l As Integer
Dim feld()
text = "A28K2"
MsgBox text
' string in array einlesen
ReDim feld(Len(text))
For i = 1 To Len(text)
l = Len(text)
dummy = Left(text, 1)
text = Right(text, l - 1)
feld(i) = dummy
Next i
'string sortieren
l = UBound(feld)
For i = 1 To l
For j = 1 To l
If feld(i) > feld(j) Then
dummy = feld(i)
feld(i) = feld(j)
feld(j) = dummy
End If
Next j
Next i
'array in string einlesen
For i = 1 To l
text = text & feld(i)
Next i
MsgBox text
End Sub