Hallo! Ich habe hier ein Programm, daß mir Buchstabenketten ausgibt.
Es ist in VB geschrieben. Allerdings nutzt es mir nichts, daß keine geeignete Ausgabeform vorhanden ist.
Kann mir jemand das Programm so umschreiben, daß ich die Ketten in einer Text- oder HTML-Datei erhalten kann?
Läßt sich vielleicht auch eine Art Konstante in Form eines von mir bestimmbaren Wortes einbauen?
Danke im voraus für die Antworten.
\'###### Begin Code
\'----- MAIN
word = InputBox ("Bitte das Wort eingeben:", "Wortkombinationen")
For binpos = 1 To Len(word)
z = z + (2^(binpos-1))
Next
For pos = 0 To z
act = convert(pos)
actword = ""
For wordpos = 1 To Len(word)
If Mid(act, wordpos, 1) = 0 Then
actword = actword & UCase(Mid(word, wordpos, 1))
Else
actword = actword & LCase(Mid(word, wordpos, 1))
End If
Next
wordcombi = wordcombi & actword & vbCr
Next
MsgBox wordcombi
\'----- SUBS
Function convert(pos)
deci = pos
Do
Select Case deci
Case 0
binary = "0" & binary : Exit Do
Case 1
binary = "1" & binary : Exit Do
Case 2
binary = "10" & binary : Exit Do
Case 3
binary = "11" & binary : Exit Do
End Select
deci1 = deci
deci = deci \\ 2
decimo = deci1 Mod 2
If decimo = 0 Then
binary = "0" & binary
Else
binary = "1" & binary
End If
Loop
Do While Len(binary) binary = "0" & binary
Loop
convert = binary
End Function
\'###### End Code
