Differenze tra le versioni di "Scanf()"

Da Gambas-it.org - Wikipedia.
Riga 25: Riga 25:
 
   Dim p As Pointer
 
   Dim p As Pointer
 
   
 
   
   p = Alloc(8)
+
   p = Alloc(16)
 
   
 
   
 
   scanf("%s", p)
 
   scanf("%s", p)
Riga 49: Riga 49:
 
   Dim p1, p2 As Pointer
 
   Dim p1, p2 As Pointer
 
   
 
   
   p1 = Alloc(8)
+
   p1 = Alloc(16)
 
   
 
   
   p2 = Alloc(8)
+
   p2 = Alloc(16)
 
   
 
   
 
   scanf("%s %s", p1, p2)
 
   scanf("%s %s", p1, p2)
Riga 76: Riga 76:
 
   Dim p As Pointer
 
   Dim p As Pointer
 
   
 
   
   p = Alloc(4)
+
   p = Alloc(SizeOf(gb.Integer))
 
    
 
    
 
   scanf("%d", p)
 
   scanf("%d", p)
Riga 99: Riga 99:
 
   Dim p As Pointer
 
   Dim p As Pointer
 
   
 
   
   p = Alloc(1)
+
   p = Alloc(SizeOf(gb.Byte))
 
    
 
    
 
   scanf("%d", p)
 
   scanf("%d", p)

Versione delle 21:02, 2 mar 2016

La funzione della libreria di C

int scanf(const char *format, args ...)

legge l'input da stdin. Essa consente di inserire dati nello standard input. Il dato inserito e contenuto nel parametro args, o in ciascun parametro (se previsti più di uno), viene restituito formattato in base alla stringa di formattazione format. Per ottenere dunque più dati, distinti fra loro, formattati, bisognerà prevedere un numero di argomenti args pari al numeri dei dati predetti.
Va precisato che la stringa di formattazione è costituita dal carattere % e da altro carattere in base al tipo di valore immesso nell'input, ed in particolare:

"%c" per ottenere un carattere;
"%d" per ottenere un intero;
"%f" per ottenere un Float;
"%s" per ottenere una stringa (priva di spazi !);
"%p" per ottenere un indirizzo di memoria.


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

Private Extern scanf(format$ As String, argsP As Pointer, ......) As Integer In "libc:6"


Esempio con immissione di una Stringa

In questo esempio si potrà immettere dallo standard Input una stringa, formata da uno o più caratteri, purché priva di spazi. Qualora vengano immessi caratteri separati da caratteri spazio, tutti i caratteri posti alla destra del primo carattere spazio non saranno scritti in console.

' int scanf (const char *__restrict __format, ...)
' Read formatted input from stdin.
Private Extern scanf(format$ As String, argsP As Pointer) As Integer In "libc:6"
 

Public Sub Main()

 Dim p As Pointer

  p = Alloc(16)

  scanf("%s", p)
  If p = 0 Then Error.Raise("Errore di lettura dell'input !")

 ' Viene restituita una stringa:
  Print String@(p)

  Free(p)

End


In questo altro esempio si potranno immettere dallo standard Input due dati separati da uno spazio.

' int scanf (const char *__restrict __format, ...)
' Read formatted input from stdin.
Private Extern scanf(format$ As String, args1_P As Pointer, args2_P As Pointer) As Integer In "libc:6"
 

Public Sub Main()

 Dim p1, p2 As Pointer

  p1 = Alloc(16)

  p2 = Alloc(16)

  scanf("%s %s", p1, p2)
  If p1 = 0 Or p2 = 0 Then Error.Raise("Errore di lettura dell'input !")

  Print String@(p1), String@(p2)

  Free(p1)
  Free(p2)

End


Esempio con Intero

In questo esempio inseriamo un valore numerico intero:

' int scanf (const char *__restrict __format, ...)
' Read formatted input from stdin.
Private Extern scanf(format$ As String, args_P As Pointer) As Integer In "libc:6"
 

Public Sub Main()

 Dim p As Pointer

  p = Alloc(SizeOf(gb.Integer))
 
  scanf("%d", p)
  If p = 0 Then Error.Raise("Errore di lettura dell'input !")

  Print Int@(p)

  Free(p)

End


Esempio con un Carattere

In questo esempio inseriamo un Carattere. Verrà restituito in console il valore ASCII del carattere immesso:

' int scanf (const char *__restrict __format, ...)
' Read formatted input from stdin.
Private Extern scanf(format$ As String, args_P As Pointer) As Integer In "libc:6"
 

Public Sub Main()

 Dim p As Pointer

  p = Alloc(SizeOf(gb.Byte))
 
  scanf("%d", p)
  If p = 0 Then Error.Raise("Errore di lettura dell'input !")

  Print Byte@(p)

  Free(p)

End