Differenze tra le versioni di "Scomporre una stringa e caricare ogni parola in una variabile array"

Versione delle 21:56, 17 ago 2012

Il caso in questione è quello in cui si ha una stringa, nella quale sono presenti anche dei valori in esadecimale A0 (carrello a capo + nuova riga), così da ottenere visivamente una stringa con più righe, come nell'esempio sottostante:

Questo è il Wiki di Gambas-it
cioè è una collezione di documenti ipertestuali
che può essere modificata dai suoi utilizzatori

L'intenzione è quello di scomporre tale stringa in modo da distinguere ed inserire i vari gruppi di caratteri alfanumerici comprensibli (ossia le normali parole) e diversi dagli spazi, che formano la stringa, in una variabile array.

Poniamo il caso che quella stringa sia caricata tutta nella variabile stringa "wiki". Potremo adottare il seguente procedimento:

Private wiki As String = "' Ammettiamo che contenga l'intera stringa sopra menzionata."


Public Sub Button1_Click()

Dim a As String
Dim aa As String[]
Dim j As Byte

' Eliminiamo innanzitutto dalla stringa tutti i valori esadecimali "A0",
' ossia il comando: "carrello a capo + nuova riga", trasformandoli in semplici spazi.
' La stringa si trasformerà visivamente in un'unica riga lineare. Questo per preparare
' la stringa alla successiva funzione ed affinché essa resti unica:
   a = Replace(wiki, "\n", " ")

' Si scompone, quindi, la stringa così ottenuta, ponendo come punto
' di divisione di ogni elemento dall'altro gli spazi. Si pone a "True" l'ultimo parametro
' della funzione "Split", in modo tale da assicurarsi completamente la non considerazione di qualsisi spazio.
' Nella variabile array "aa" avremo, quindi, una parola alfanumerica per ciascun elemento:
   aa = Split(a, " ", "", True)

' Andiamo a vedere il contenuto di ciascun elemento dell'array:
  for j = 0 to aa.Max
    Print aa[j]
  Next

End