Scomporre una stringa e caricare ogni parola in una variabile array
Da Gambas-it.org - Wikipedia.
Versione del 17 ago 2012 alle 22:05 di Vuott (Discussione | contributi)
Il caso in questione è quello in cui si ha una stringa, nella quale sono presenti anche dei comandi: carrello a capo + nuova riga, così da ottenere visivamente 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 comandi: ' "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