Type S
   Field st$
End Type
Global S.S

txt$ = "1,20,36,400,52"
splitstring(txt$)
WaitKey
End

Function splitstring(txt$)

   z1 = 1
   z2 = Instr(txt$,",")
   Repeat
      
      If z2 > 0 Then
         S.S = New S
         S\st$ = Mid(txt$,z1,z2-z1)
      Else
         S.S = New S
         S\st$ = Right(txt$,len(txt$)-z1+1)
         Exit
      EndIf      
      
      z1 = z2+1
      z2 = Instr(txt$,",",z2+1)
      
   Until KeyHit(1)
   
   For S.S = Each S
      a = a + 1
      
      Print "S"+a+" = '"+S\st$+"'"
   Next
   
End Function
End

Function parse_parameter(art = 1, parameter)
   pos = 1
   If parameter > 1 Then
      For atpara = 1 To parameter-1
         parapos = Instr(g_n_command$, ",",pos)
         pos = parapos + 1

      Next
   EndIf
   If art = 1 Then
      Repeat
         number$ = Mid(g_n_command$, pos,1)
         If (Asc(number$) > 47 And Asc(number$) < 58) Or number$ = "."
            zahl$ = zahl$+number$
            pos = pos + 1
         Else
            g_n_para_number$ = zahl$
            Exit
         EndIf
      Forever
   EndIf
   If art = 2
      Repeat
         Char$ = Mid(g_n_command$, pos,1)
         If Asc(Char$) = 34 And startedtext = 1 Then g_n_para_string$ = Sting$ : Exit
         If Asc(Char$) = 34 And startedtext = 0 Then startedtext = 1
         If Asc(Char$) <> 34 And startedtext = 1 Then Sting$ = Sting$ + Char$
         pos = pos + 1
      Forever
   EndIf
End Function

g_n_command$ = "1,30,2,4556,12.3"
parse_parameter(1,1) ;Die erste 1 bedeuted das Zahlen zurückgegeben werden sollen
zahl1 = int(g_n_para_number$)
parse_parameter(1,2) ; Die 2 bedeutet das der 2. Parameter ausgegeben werden soll
zahl2 = int(g_n_para_number$)

g_n_command$ = "1,30,2,4556,12.3"
parse_parameter(1,1) ;Die erste 1 bedeuted das Zahlen zurückgegeben werden sollen
zahl1 = int(g_n_para_number$)
Print zahl1
parse_parameter(1,2) ; Die 2 bedeutet das der 2. Parameter ausgegeben werden soll
zahl2 = int(g_n_para_number$)
Print zahl2
WaitKey