Seite 1 von 2

Annagramme erzeugen

Verfasst: 28.05.2005 15:31
von 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

Re: Annagramme erzeugen

Verfasst: 28.05.2005 15:36
von Green Snake
satzzeichen hat geschrieben: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

Verfasst: 28.05.2005 15:43
von 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?

Re: Annagramme erzeugen

Verfasst: 28.05.2005 15:53
von Danilo
satzzeichen hat geschrieben:

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.

Verfasst: 28.05.2005 15:58
von satzzeichen
Hab ich mal probiert, er bringt mir immernoch nur eine leere Datei :( würde es etwas helfen wenn ich den gesamten Code poste?

Verfasst: 28.05.2005 16:18
von 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

Verfasst: 28.05.2005 16:22
von 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 :allright:

Verfasst: 28.05.2005 16:27
von 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.

Verfasst: 28.05.2005 16:33
von Green Snake
genau, das ist ja das problem

ich habe daraus gelernt:

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

Verfasst: 28.05.2005 18:10
von 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!