Differenze tra le versioni di "Scan"

Da Gambas-it.org - Wikipedia.
Riga 36: Riga 36:
 
     Print s
 
     Print s
 
   Next
 
   Next
 +
 +
'''End'''
 +
 +
 +
In quest'altro esempio il carattere separatore è il punto presente in un numero in virgola mobile. Si potrà in questo modo estrarre sia la parte intera che la parte decimale essenziale di quel numero:
 +
'''Public''' Sub Main()
 +
 +
  Print Scan(CStr(5 / 3), "*.*")[1]
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 06:16, 29 ott 2014

Scan restituisce un vettore di tipo Stringa contenente quelle parti della stringa, impostata nel suo primo parametro, identificate e distinte in base ad uno o più caratteri contigui esistenti nella stringa, e comunque collocati fra due metacaratteri * .

I caratteri che servono per identificare il punto di separazione fra una parte e l'altra della stringa, vanno collocati nella funzione Scan() comunque rispettando il loro ordine di posizione nella stringa medesima.


Esempio:

Public Sub Main()

 Dim s As String = "Questa|è una, %provaK/ di Scan()"
 Dim ss As String[]

' Ovviamente anche lo spazio è un carattere:
  ss = Scan(s, "*|* *, %*K/ *")

  For Each s In ss
    Print s
  Next

End


In quest'altro esempio i caratteri separatori saranno soltanto i 5 spazi:

Public Sub Main()

 Dim s As String = "Questa è una prova di Scan()"
 Dim ss As String[]

' Ovviamente anche lo spazio è un carattere.
' Qui 6 * individuano 5 spazi:
  ss = Scan(s, "* * * * * *")

' Oppure anche così:
'  ss = Scan(s, RTrim(String$(6, "* ")))

  For Each s In ss
    Print s
  Next

End


In quest'altro esempio il carattere separatore è il punto presente in un numero in virgola mobile. Si potrà in questo modo estrarre sia la parte intera che la parte decimale essenziale di quel numero:

Public Sub Main()

  Print Scan(CStr(5 / 3), "*.*")[1]

End