RSet tut nicht!

[Konne]

RSet tut bei mir nicht wenn ich das Flag verwende! Wiso denn nicht???
Hab PB 3.93.
Ich brauche RSet...

Habs selber geschrieben aber das ist lahm...

Code: Alles auswählen

Procedure.s RSet2(Text.s,Laenge,Zeichen.s)
Oft=(Laenge-Len(Text.s))/Len(Zeichen.s)
For l=1 To Oft : Zeichen2.s+Zeichen.s : Next
ProcedureReturn Zeichen2.s+Text.s
EndProcedure

Bidde helft mir!!!

[Batze]

Was klappt denn daran nicht?

Code: Alles auswählen

Debug RSet("Hallo", 100, "!")

[PureLust]

Hi Konne, ...

der optionale [,Zeichen$]-Parameter ist nur für ein einzelnes Zeichen gedacht, nicht wie in Deiner Routine für mehrere Zeichen.

Zitat aus der Hilfe:
Der optionale Parameter 'Zeichen$' kann benutzt werden, um anstelle der Leerzeichen ein anderes Zeichen zu verwenden.

Also nicht 'andere Zeichen' !!!

[bluejoke]

Vielleicht unterstützen Deems PHP-String-Befehle das, was du willst.

[Konne]

Ich weiß das es nur für einen ist aber trotzdem tuts nicht

Jetzt spinnts total:

Code: Alles auswählen

Debug RSet("Test",13."-")

Ergibt:" --Test"


Bzw Sagt er "Incorect Number of Parameters"

Das find ich krank, voralem weil erohne Parameter nochts sagt.

Das Problem gab es anscheinend schon einmal...
http://forums.purebasic.com/german/view ... light=rset

PS: Wenn ihr meine Procedure verbessern könntet wäre mir auch sehr geholfen.

THX schon mal für eure Mühe...

[Life-for-fun]

Du musst statt dem Punkt ein Komma machen.

Code: Alles auswählen

Debug RSet("Test",13,"-") 

Ansonsten würde es bei mir auch nicht klappen

[Batze]

Code: Alles auswählen

Debug RSet("Test",13."-")

Also, das ist ja auch falsch.
Da muss ein Komma statt einem Punkt hin.

Code: Alles auswählen

Debug RSet("Test",13,"-")

Bei mir geht das.
Edit: Ich war zu langsam

Wie wärs noch mit dieser Funktion?

Code: Alles auswählen

Procedure.s RSet2 (Text.s, Laenge, Zeichen.s)
  Repeat
    Text = Zeichen + Text
  Until Len(Text) => Laenge
  ProcedureReturn Right(Text.s, Laenge)
EndProcedure

[Konne]

Lol dann kommt das es garnet geht wegen zu vielen Argumenten.

[Batze]

Bist du sicher das du PureBasic verwendest?

[Green Snake]

vielleicht verwäöchselt er es ja mit c++

also bei mir gehen alle codes.
ich weis nicht, was du dabei für ein problem hast

schonmal überprüft, ob der compiler gestartet ist
*nicht böse gemeint *