Scan

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