PureBoard

Code: Alles auswählen

String$ = "11|22|33"

Procedure Ausgabe(String$)
 AddGadgetItem(1, -1, String$)
 SetActiveGadget(1)

EndProcedure

Procedure RString(String$,Sektor)
If Differenz = 0
Differenz = 1
EndIf 

If Sektor > Test
For Test = 0 To Sektor
Cound = FindString(String$,"|",Differenz)
Differenz + Cound
Cound = 0
Test + 1
Next
EndIf 

If Sektor = Test 
Count = FindString(String$,"|", Differenz) ;Gibt zurück, wo das nächste | liegt
EndIf 

Zwischenspeicher$ = Mid(String$,Differenz,Count)

Zahl = Val(Zwischenspeicher$)

Ausgabe("Differenz: "+Str(Differenz))
Ausgabe("Count: "+Str(Cound))
Ausgabe("Zahl:: "+Str(Zahl))




EndProcedure 



OpenWindow(1,0,0,400,300,"Chat", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
 CreateGadgetList(WindowID(1))
  EditorGadget(1, 5, 5, 390, 260, #PB_Editor_ReadOnly)
    AddKeyboardShortcut(1, #PB_Shortcut_Return, 3)
Repeat 
Event = WindowEvent()

   Select EventMenu()
    Case 3
     RString(String$,1)
    EndSelect 

Until Event = #PB_Event_CloseWindow

Code: Alles auswählen

test.s = "1|22|333|4444|"

For a=1 To CountString(test, "|")
  
  Debug StringField(test, a, "|")
  
Next