Annagramme erzeugen

[satzzeichen]

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:

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

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

[Green Snake]

ich hab PB V.3.30.
dann immer nur eine leere Datei zurückgeliefert.
Grüsle euer satzzeichen

nein, wiso kaufen sich alle 3,30?
diese version ist so was von schrott.
ich musste das am eigenen leibe erfahren, denn ich habe sie auch gekauft.

mit dieser version geht gar nichts
ich wette mit der, das 4/5 aller codes hier im forum damit nciht funktionieren.

das hat mih so an ge ka*** das ich die topos version in den eimer geschmissen habe (natürlich nicht, aber habe sie weit von mir weg versorgt)

in meiner wut, habe ich die version 3,93 auf purebasic.com gekauft, und von da an geniesse ich purebasic.

wenn ich dich wäre, würde ich (falls du topos hat) die update berechtigung so schnell wie möglich kaufen, denn es könnte sein, das ab version 4 die update berechtigung nicht mehr 4 ever sein wird

[satzzeichen]

Bestellung wurde heute früh eigentlich rausgeschickt.... naja das Problem war das ich PB von EBay kaufen wollte... für 22 Euro hätte ich folgendes bekommen müssen->

Topos Version
UpgradeCode für Version 3.8X
Updateberechtigung

Naja aber das Arsch..*hust* von Verkäufer hat nur die ToposVersion geschickt und Antwortet nichtmehr auf meine Mails und du hast recht die Version hat mich ganz schön angeschissen -.- es ist zu 90% unmöglich etwas ordentliches damit zu machen XD aber, kannst du mir nicht trotzdem bei meinem problem helfen?

[Danilo]

Code: Alles auswählen

        For beta = 1 To txt_lenght.w
        timestring$ = Mid(_str(x_ana), 0, 1) 
        x_ana - 1
        Next
        NewString$ = timestring$

Du solltest hier in der 2. Zeile 'timestring$ + Mid(...)' nehmen,
da sonst immer nur ein neuer String zugewiesen wird.

Und bei Mid ist die erste Position 1, nicht 0. Dadurch bekommst
Du evtl. immer einen Leerstring zurück.

[satzzeichen]

Hab ich mal probiert, er bringt mir immernoch nur eine leere Datei würde es etwas helfen wenn ich den gesamten Code poste?

[Plankton]

Besorg dir doch mal die Demo von PB.
Damit kann man auch EXEs erstellen un der code ist nur auf 800
limitiert. Damit sollte es eigentlich gehn

[Green Snake]

stimmt nicht (800)

es ist glaube ich auf eine anzahl befehle limitiert.

ausserdem, man kann doch die dateien aufteilen, und mittels includefile laden, so hat man glaube ich unbegrennzte code zeilen

[MVXA]

Die Codelänge ist auf 800 Zeilen limitiert .
Die meisten Menschen kaufen sich die PB Version 3.30 von Topos, weil sie die günstigere ist. Außerdem tun sich die Menschen nicht informieren, was für tücken die Topos version hat.

[Green Snake]

genau, das ist ja das problem

ich habe daraus gelernt:

immer zuerst in foren (oder sonst wo)
nachfragen, und isch erkundigen

[satzzeichen]

Oh lol hab mich ja vorher erkundigt XD und wusste es hihi naja aber was nu mit meinem Problem????? Selbst wenn ich mir die Demo laden würde wüsst ich immer nochned wies geht!