Annagramme erzeugen
Verfasst: 28.05.2005 15:31
Hallöchen Leute! Habe ein Problem bei dem ich echt nicht weiterkomme
ist meine erste Frage hier und ich hab PB V.3.30.
Also in dem Programm geht es darum aus einem String in einer Datei ein Annagramm zu machen und dieses Annagramm dann in der Ursprungsdatei zu speichern!(Hallo -> ollaH) Einen Auszug hier:
Hoffe ihr könnt mir helfen das ganze zum laufen zu bringen, denn irgendwie bekomme ich dann immer nur eine leere Datei zurückgeliefert.
Grüsle euer satzzeichen

Also in dem Programm geht es darum aus einem String in einer Datei ein Annagramm zu machen und dieses Annagramm dann in der Ursprungsdatei zu speichern!(Hallo -> ollaH) Einen Auszug hier:
Code: Alles auswählen
;----------ANAGRAMME----------;
If input$ = "1"
ClearConsole()
PrintN("Welche .txt Datei verschluesseln?")
datei$ = Input()
If datei$ <> ""
ClearConsole()
OpenFile(1, datei$)
txt$ = ReadString()
txt_length.w = Len(txt$)
Dim _str.s(txt_lenght.w)
For alpha = 1 To txt_lenght.w
_str(x_ana) = Mid(txt$, x_ana, 1)
x_ana + 1
Next
For beta = 1 To txt_lenght.w
timestring$ = Mid(_str(x_ana), 0, 1)
x_ana - 1
Next
NewString$ = timestring$
CloseFile(1)
CreateFile(2, datei$)
WriteString(NewString$)
EndIf
EndIf
Grüsle euer satzzeichen