PureBoard

Verfasst: **18.03.2006 22:17**

aber ich denk mal wer mit 3.94 mit macht hat so gut wie keine change weil PB4 Macros und With usw. hat und PB 3.X nicht...

Verfasst: **18.03.2006 22:25**

was is With? o_O

Verfasst: **18.03.2006 22:28**

With ist mein Wunschfeature, das tatsächlich erfüllt wurde

BeispielCode aus der Hilfe:

Code: Alles auswählen

  Structure Person
    Name$
    Age.l
    Size.l
  EndStructure

  Friend.Person
  
  With Friend
    \Name$ = "Yann"
    \Age   = 30
    \Size  = 196
    
    Debug \Size+\Size
  EndWith

Man spart sich also Hauptsächlich das schreiben von Friend und der Code
ist besser lesbar. Gibt es auch in vielen andern Sprachen.

Verschachtelung ist aber nicht möglich!

Verfasst: **18.03.2006 23:02**

erstmal ne andere kleinigkeit:

Das ist der Counter:

Code: Alles auswählen

win = OpenWindow(0,0,0,200,45,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Codezähler")
CreateGadgetList(win)
StringGadget(0,0,0,140,20,"")
ButtonGadget(1,141,0,58,20,"Browse")
ButtonGadget(2,0,22,60,20,"Count")
TextGadget(3,65,25,200,20,"Zeichen: ")
Repeat
  eventid=WaitWindowEvent()
  If eventid=#PB_Event_Gadget
    If EventGadgetID() = 1
      file.s = OpenFileRequester("Open","","PB-Code *.pb | *.pb| Alles *.* | *.*",0)
      SetGadgetText(0,file)
    ElseIf EventGadgetID() = 2
      count=0
      If file
        OpenFile(0,file)
        While Eof(0) = 0
          line.s = Trim(ReadString()) 
          If Mid(line,1,1) <> ";" : count+Len(line) : EndIf
        Wend
        SetGadgetText(3,"Zeichen: "+Str(count))
        CloseFile(0)        
      EndIf 
    EndIf
  EndIf
Until eventid = #PB_Event_CloseWindow

ich habe in Zeille 22 das CloseFile ergänzt.

jetzt kann man den counter laufen lassen, und trotzdem im editor abspeichern.
man muss also das file nicht ständig neu er-browsen,
ein einfacher click auf "count" zählt die aktuell gespeicherte version....

PureBoard

PureGolf