Wort-Editor in VBS

Programmieren - alles kontrollieren 4.935 Themen, 20.621 Beiträge

Wort-Editor in VBS

Peter, der dritte am 15.12.2003, 00:00 / 1 Antworten / Flachansicht

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

UselessUser

Peter, der dritte „Wort-Editor in VBS“

16.12.2003, 00:00 Optionen

Hallo, Peter, der dritte!

Irgendwie kam mir die Bezeichnung der Variablen so bekannt vor ... jetzt weiß ich auch, woher das Prog stammt ... ;-)

Wenn ich dich richtig verstanden habe, möchtest du die Ausgabe in eine Textdatei, das habe ich hier verändert. Hoffe, es hilft dir weiter, es geht natürlich auch noch komfortabler, z. B. gleichzeitig eine Ausgabe im Fenster des InternetExplorer. Wenn du das möchtest, dann baue ich dir das noch ein. Die Textdatei bietet sich dagegen an, wenn du es als Dokument speichern und/oder mit anderen Programmen darauf zugreifen willst.

'----- MAIN
set fso = WScript.CreateObject("Scripting.FileSystemObject")
set wrtdoc = fso.CreateTextFile("C:\Wortkombi.txt", True)

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
wrtdoc.WriteLine actword
Next

wrtdoc.Close

MsgBox "Die Wortkombinationen des Wortes" & vbCr _
& "-- " & word & " --" & vbCr & " wurden in der Datei" & vbCr _
& UCase("C:\Wortkombi.txt") & vbCr & "gespeichert."

set fso = Nothing

'----- 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

MfG

UselessUser