PureBoard

Verfasst: **21.07.2005 18:18**

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

Verfasst: **21.07.2005 18:31**

Was klappt denn daran nicht?

Code: Alles auswählen

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

Verfasst: **21.07.2005 18:52**

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

Verfasst: **21.07.2005 19:16**

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

Verfasst: **21.07.2005 22:01**

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

Verfasst: **21.07.2005 22:12**

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

Verfasst: **21.07.2005 22:14**

Konne hat geschrieben:
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

Verfasst: **21.07.2005 22:24**

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

Verfasst: **21.07.2005 22:30**

Bist du sicher das du PureBasic verwendest?

Verfasst: **21.07.2005 22:32**

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

*

PureBoard

RSet tut nicht!

RSet tut nicht!