Strpbrk ()

Da Gambas-it.org - Wikipedia.

La funzione strpbrk( ), dichiarata nel file header di sistema "/usr/include/string.h"

char *strpbrk (char *__s, const char *__accept)

restituisce un puntatore al carattere corrispondente più a sinistra nella stringa puntata da __s che corrisponde a qualsiasi carattere della stringa puntata da __accept . Se i caratteri presenti nella stringa, puntata dal 2° parametro __accept, sono presenti anche nella stringa, puntata dal 1° parametro __s, allora il carattere, di cui la funzione cercherà la prima occorrenza, sarà il primo carattere a sinistra nella stringa, puntata dal 2° parametro __accept .


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

Private Extern strpbrk(__s As Pointer, __accept As String) As Pointer In "libc:6"


Mostriamo un semplice esempio:

Library "libc:6"

' char *strpbrk (char *__s, const char *__accept)
' Find the first occurrence in S of any character in ACCEPT.
Private Extern strpbrk(__s As Pointer, __accept As String) As Pointer


Public Sub Main()
 
 Dim p1, p2 As Pointer
 Dim s As String
 
  p1 = Alloc("abcdefghil")
  s = "dh"
 
' Individua nell'area di memoria puntata dal Puntatore "p1" la prima occorrenza
' del primo carattere presente nella variabile Stringa "s", restituendo - compreso il carattere
' di quella prima occorrenza - tutti i restanti caratteri della stringa contenuta in "s".
  p2 = strpbrk(p1, s)
  
  Print String@(p2)
   
  Free(p1)
  
End



Riferimenti