Differenze tra le versioni di "Input"

Da Gambas-it.org - Wikipedia.
Riga 5: Riga 5:
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
  Dim a$ As String
+
Dim f As File
 +
Dim a$ As String
 
   
 
   
  Input #f, a$
+
  Input #f, a$
 
   
 
   
  Print a$
+
  Print a$
 
   
 
   
 
  '''End'''
 
  '''End'''
 
sarà letta soltanto la stringa "gallo", e sarà inserita nella variabile "a$".
 
sarà letta soltanto la stringa "gallo", e sarà inserita nella variabile "a$".
 +
 +
 +
Con ''Input'' possiamo inserire anche più variabili, ove caricare i valori, ossia le varie stringhe presenti nel file di testo e separate ciascuna dall'altra da uno spazio o da un carattere di "nuova riga":
 +
'''Public''' Sub Button1_Click()
 +
Dim f As File
 +
Dim a$, b$, c$ As String
 +
 +
  Input #f, a$, b$, c$
 +
 +
  Print a$, b$, c$
 +
 +
'''End'''
 +
saranno lette: gallo gatto ratto.

Versione delle 16:18, 3 giu 2012

Input legge le stringhe in un File di testo fino all'interruzione dello spazio o al carattere di "nuova linea", e le immette ciascuna in una propria variabile.

Esempio. Poniamo di avere un file, creato con un editor di testo, contenente queste tre stringhe: gallo gatto ratto. Leggendo con Input avremo:

Public Sub Button1_Click()

Dim f As File
Dim a$ As String

 Input #f, a$

 Print a$

End

sarà letta soltanto la stringa "gallo", e sarà inserita nella variabile "a$".


Con Input possiamo inserire anche più variabili, ove caricare i valori, ossia le varie stringhe presenti nel file di testo e separate ciascuna dall'altra da uno spazio o da un carattere di "nuova riga":

Public Sub Button1_Click()
Dim f As File
Dim a$, b$, c$ As String

 Input #f, a$, b$, c$

 Print a$, b$, c$

End

saranno lette: gallo gatto ratto.