Hallo, eine zweite Frage hätt\' ich da noch:
Gibt es ein Prog., daß mir Wörter editiert, und zwar in der Art, daß auf Grundlage eines vorgegebenen Namens Variationen bez. GROßER und kleiner Buchstaben herausgegeben werden?
Beispiel:
Folge AA aa Aa aA
UselessUser Peter, der dritte „Also, ich suche ein Prog, daß mir bei folgende Arbeit abnimmt: Als Vorgabe...“
Hallo Peter III.!
Hier poste ich dir den Code für ein VBScript: Kopieren, in eine txt.-Datei einfügen und mit einem beliebigen Namen und der Endung ".vbs" abspeichern. Mit einem Doppelklick starten (Scripte müssen bei dir allerdings ablaufen dürfen, was die Standardeinstellung bei Windows ist) und jetzt dürfte es funktionieren.
Bei Wörtern, die länger als 5 Buchstaben sind, empfehle ich eine andere Ausgabeform, z. B. über HTML-Interface oder in eine Textdatei. Oder in VB. Oder, oder ... Aber das Prinzip wird hoffentlich deutlich.
'###### 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
MfG
UselessUser
