Strtok ()

La funzione della libreria di C

char *strtok (char *__restrict __s, const char *__restrict __delim)

spezza la stringa in varie parti utilizzando il deliminatore specificato nel secondo argomento.

Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta:

Private Extern strtok(__s As Pointer, __delim As String) As String In "libc:6"

Semplice esempio di uso in Gambas:

Library "libc:6"

' char *strtok (char *__restrict __s, const char *__restrict __delim)
' Divide S into tokens separated by characters in DELIM.
Private Extern strtok(__s As Pointer, __delim As String) As String


Public Sub Main()
 
 Dim p As Pointer
 Dim t, del, tok As String
 
   t = "Questo è un testo qualsiasi."
   
   p = VarPtr(t)
   
' Il deliminatore sarà il carattere dello spazio:
   del = Chr(32)
   
   tok = strtok(p, del)
   
   While Not IsNull(tok)
     Print tok
     tok = strtok(0, del)
   Wend
     
End