Differenze tra le versioni di "Scomporre una stringa e caricare ogni parola in una variabile array"
Riga 16: | Riga 16: | ||
− | + | Public Sub Main() | |
− | <FONT Color=gray>' '' | + | <FONT Color=gray>' ''Trasforma ogni carattere di "nuova riga a capo" in uno spazio:''</font> |
wiki = Replace(wiki, "\n", "\x20") | wiki = Replace(wiki, "\n", "\x20") | ||
− | <FONT Color=gray>' '' | + | <FONT Color=gray>' ''Individua quanti spazi ci sono fra ciascun elemento della frase.'' |
' ''Il numero degli spazi ottenuto sarà uguale al numero di elementi autonomi costituenti la frase.''</font> | ' ''Il numero degli spazi ottenuto sarà uguale al numero di elementi autonomi costituenti la frase.''</font> | ||
wiki = Split(wiki, "\x20").Max | wiki = Split(wiki, "\x20").Max | ||
− | <FONT Color=gray>' '' | + | <FONT Color=gray>' ''Estrae gli elementi della frase seprandoli dagli spazi che li separano, e li inserisce in un vettore di tipo Stringa:''</font> |
ss = Scan(wiki, "*" & String$(wiki, " *")) | ss = Scan(wiki, "*" & String$(wiki, " *")) | ||
− | + | End | |
Riga 37: | Riga 37: | ||
− | + | Public Sub Button1_Click() | |
Dim s As String | Dim s As String | ||
Riga 43: | Riga 43: | ||
Dim j As Byte | Dim j As Byte | ||
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Elimina 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:''</font> | ' ''La stringa si trasformerà visivamente in un'unica riga lineare. Questo per preparare la stringa alla successiva funzione ed affinché essa resti unica:''</font> | ||
s = Replace(wiki, "\n", " ") | s = Replace(wiki, "\n", " ") | ||
<FONT color=gray>' ''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 evitare completamente di prendere in considerazione qualsiasi elemento vuoto.'' | <FONT color=gray>' ''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 evitare completamente di prendere in considerazione qualsiasi elemento vuoto.'' | ||
− | ' ''Nella variabile array "aa" | + | ' ''Nella variabile array "aa" vi sarà, quindi, una parola alfanumerica per ciascun elemento:''</font> |
ss = Split(s, " ", "", True) | ss = Split(s, " ", "", True) | ||
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Mostra il contenuto di ciascun elemento dell'array:''</font> |
For j = 0 to ss.Max | For j = 0 to ss.Max | ||
Print ss[j] | Print ss[j] | ||
Next | Next | ||
− | + | End | |
===Senza la funzione "Split()" e senza usare un file di appoggio=== | ===Senza la funzione "Split()" e senza usare un file di appoggio=== | ||
− | Come vedremo nel paragrafo sottostante, per poter distinguere le parole all'interno di una stringa potrà essere utilizzato | + | Come vedremo nel paragrafo sottostante, per poter distinguere le parole all'interno di una stringa potrà essere utilizzato ''Input'' al posto della funzione "Split()". Se, inoltre, non vogliamo usare con ''Input'' alcun file di appoggio, potremo usare i ''[[Definizione_ed_uso_dei_Memory_Stream|Memory Stream]]'', dato che questi si comportano - e possono essere quindi gestiti - in modo analogo ai file: |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Riga 71: | Riga 71: | ||
s = "Questa è una prova" | s = "Questa è una prova" | ||
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Punta con una variabile di tipo "Pointer" alla variabile stringa:''</font> |
p = Alloc(s) | p = Alloc(s) | ||
− | <FONT color=gray>' ''Dal "Pointer" | + | <FONT color=gray>' ''Dal "Pointer" genera lo "Stream":''</font> |
m = Memory p For Read | m = Memory p For Read | ||
− | <FONT color=gray>' ''In qualunque modo | + | <FONT color=gray>' ''In qualunque modo bisogna conoscere il numero delle parole contenute nella variabile stringa "s":''</font> |
For j = 0 To 3 | For j = 0 To 3 | ||
Input #m, s | Input #m, s | ||
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Carica ciascuna parola, distinta l'una dall'altra, nella variabile-array:''</font> |
ss.add(s) | ss.add(s) | ||
Next | Next | ||
Riga 86: | Riga 86: | ||
Free(p) | Free(p) | ||
− | + | End | |
− | |||
oppure anche quest'altro esempio: | oppure anche quest'altro esempio: | ||
Private p As Pointer | Private p As Pointer | ||
− | + | Public Sub Button1_Click() | |
Dim s, s1 As String | Dim s, s1 As String | ||
Riga 101: | Riga 100: | ||
s = "hello world! , hello gambas " | s = "hello world! , hello gambas " | ||
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Alloca sufficiente memoria:''</font> |
p = Alloc(SizeOf(gb.Byte), 16) | p = Alloc(SizeOf(gb.Byte), 16) | ||
m = Memory p For Read Write | m = Memory p For Read Write | ||
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Scrive il contenuto della variabile "s" nella variabile di tipo "Stream":''</font> |
Print #m, s | Print #m, s | ||
Riga 112: | Riga 111: | ||
Seek #m, j | Seek #m, j | ||
Input #m, s1 | Input #m, s1 | ||
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Pone il filtro:''</font> |
Select Case s1 | Select Case s1 | ||
− | <FONT color=gray>' ''Se la | + | <FONT color=gray>' ''Se la variabile contiene il solo carattere della virgola, allora salta l'operazione di scrittura in console e torna al ciclo:''</font> |
Case "," | Case "," | ||
Continue | Continue | ||
− | <FONT color=gray>' ''Se la | + | <FONT color=gray>' ''Se la variabile non contiene un carattere alfanumerico, allora vorrà dire che il contenuto utile è terminato, e quindi si esce dal ciclo:''</font> |
Case "" | Case "" | ||
Break | Break | ||
Riga 126: | Riga 125: | ||
Wend | Wend | ||
− | + | End | |
+ | |||
− | + | Publib Sub Form_Close() | |
<FONT color=gray>' ''Disalloca la parte della memoria precedentemente allocata:''</font> | <FONT color=gray>' ''Disalloca la parte della memoria precedentemente allocata:''</font> | ||
Free(p) | Free(p) | ||
− | + | End | |
Riga 141: | Riga 141: | ||
===Lettura con il Metodo "File.Load()"=== | ===Lettura con il Metodo "File.Load()"=== | ||
Il file di testo viene letto con il Metodo ".Load()" della classe File; ed i dati risultanti saranno posti in una variabile di tipo stringa: | Il file di testo viene letto con il Metodo ".Load()" della classe File; ed i dati risultanti saranno posti in una variabile di tipo stringa: | ||
− | + | Public Sub Button1_Click() | |
Dim a As String | Dim a As String | ||
− | a = File.Load(" | + | a = File.Load("<FONT color=darkgreen>''/percorso/del/file/di/testo''</font>") |
<FONT color=gray>' ''Qui, poi, le funzioni "Split" e "Replace"......''</font> | <FONT color=gray>' ''Qui, poi, le funzioni "Split" e "Replace"......''</font> | ||
− | + | End | |
Si procederà poi a distinguere le varie parole della stringa, caricata nella variabile, mediante le due funzioni native "Split()" e "Replace()" sostanzialmente con le medesime modalità viste prima. | Si procederà poi a distinguere le varie parole della stringa, caricata nella variabile, mediante le due funzioni native "Split()" e "Replace()" sostanzialmente con le medesime modalità viste prima. | ||
Riga 155: | Riga 155: | ||
===Lettura con ''Open....For Read/Input''=== | ===Lettura con ''Open....For Read/Input''=== | ||
Con quest'altra modalità si leggerà il file di testo come un file binario mediante la fuzione ''Input''. Come è noto, "Input" legge le stringhe in un File di testo fino all'interruzione dello spazio o al carattere di "nuova linea". Ciò permetterà di individuare ogni parola del testo, delimitata da uno spazio, e di caricarla successivamente in un nuovo elemento di un'apposita variabile-array: | Con quest'altra modalità si leggerà il file di testo come un file binario mediante la fuzione ''Input''. Come è noto, "Input" legge le stringhe in un File di testo fino all'interruzione dello spazio o al carattere di "nuova linea". Ciò permetterà di individuare ogni parola del testo, delimitata da uno spazio, e di caricarla successivamente in un nuovo elemento di un'apposita variabile-array: | ||
− | + | Public Sub Button1_Click() | |
Dim fl As File | Dim fl As File | ||
Riga 162: | Riga 162: | ||
Dim b As Byte | Dim b As Byte | ||
− | fl = Open "<FONT color= | + | fl = Open "<FONT color=darkgreen>''/percorso/del/file/di/testo''</font>" For Read <FONT color=gray>' ''...oppure "Input"''</font> |
While Not Eof(fl) | While Not Eof(fl) | ||
Riga 175: | Riga 175: | ||
Next | Next | ||
− | + | End |
Versione attuale delle 16:42, 29 giu 2024
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.
Se la stringa è posta in una variabile
Poniamo il caso che quella stringa sia caricata tutta nella variabile stringa "wiki".
Con l'uso della funzione "Scan()"
Private wiki As String = "Questo è il Wiki di Gambas-it\n" & "cioè è una collezione di documenti ipertestuali\n" & "che può essere modificata dai suoi utilizzatori" Public Sub Main() ' Trasforma ogni carattere di "nuova riga a capo" in uno spazio: wiki = Replace(wiki, "\n", "\x20") ' Individua quanti spazi ci sono fra ciascun elemento della frase. ' Il numero degli spazi ottenuto sarà uguale al numero di elementi autonomi costituenti la frase. wiki = Split(wiki, "\x20").Max ' Estrae gli elementi della frase seprandoli dagli spazi che li separano, e li inserisce in un vettore di tipo Stringa: ss = Scan(wiki, "*" & String$(wiki, " *")) End
Con l'uso delle funzioni "Replace()" e "Split()"
Private wiki As String = "Questo è il Wiki di Gambas-it\n" & "cioè è una collezione di documenti ipertestuali\n" & "che può essere modificata dai suoi utilizzatori" Public Sub Button1_Click() Dim s As String Dim ss As String[] Dim j As Byte ' Elimina 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: s = 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 evitare completamente di prendere in considerazione qualsiasi elemento vuoto. ' Nella variabile array "aa" vi sarà, quindi, una parola alfanumerica per ciascun elemento: ss = Split(s, " ", "", True) ' Mostra il contenuto di ciascun elemento dell'array: For j = 0 to ss.Max Print ss[j] Next End
Senza la funzione "Split()" e senza usare un file di appoggio
Come vedremo nel paragrafo sottostante, per poter distinguere le parole all'interno di una stringa potrà essere utilizzato Input al posto della funzione "Split()". Se, inoltre, non vogliamo usare con Input alcun file di appoggio, potremo usare i Memory Stream, dato che questi si comportano - e possono essere quindi gestiti - in modo analogo ai file:
Public Sub Button1_Click() Dim s As String Dim p As Pointer Dim m As Stream Dim j As Byte Dim ss As New String[] s = "Questa è una prova" ' Punta con una variabile di tipo "Pointer" alla variabile stringa: p = Alloc(s) ' Dal "Pointer" genera lo "Stream": m = Memory p For Read ' In qualunque modo bisogna conoscere il numero delle parole contenute nella variabile stringa "s": For j = 0 To 3 Input #m, s ' Carica ciascuna parola, distinta l'una dall'altra, nella variabile-array: ss.add(s) Next Free(p) End
oppure anche quest'altro esempio:
Private p As Pointer Public Sub Button1_Click() Dim s, s1 As String Dim m As Stream Dim j As Integer Dim ss As New String[] s = "hello world! , hello gambas " ' Alloca sufficiente memoria: p = Alloc(SizeOf(gb.Byte), 16) m = Memory p For Read Write ' Scrive il contenuto della variabile "s" nella variabile di tipo "Stream": Print #m, s While Not Eof(m) Seek #m, j Input #m, s1 ' Pone il filtro: Select Case s1 ' Se la variabile contiene il solo carattere della virgola, allora salta l'operazione di scrittura in console e torna al ciclo: Case "," Continue ' Se la variabile non contiene un carattere alfanumerico, allora vorrà dire che il contenuto utile è terminato, e quindi si esce dal ciclo: Case "" Break End Select ss.Add(s1) ' Dà al comando "Seek" il numero del byte, dal quale leggere: j = j + Len(s1) + 1 Wend End Publib Sub Form_Close() ' Disalloca la parte della memoria precedentemente allocata: Free(p) End
Se la stringa viene letta da un file di testo
In tal caso possiamo adottare due modalità:
Lettura con il Metodo "File.Load()"
Il file di testo viene letto con il Metodo ".Load()" della classe File; ed i dati risultanti saranno posti in una variabile di tipo stringa:
Public Sub Button1_Click() Dim a As String a = File.Load("/percorso/del/file/di/testo") ' Qui, poi, le funzioni "Split" e "Replace"...... End
Si procederà poi a distinguere le varie parole della stringa, caricata nella variabile, mediante le due funzioni native "Split()" e "Replace()" sostanzialmente con le medesime modalità viste prima.
Lettura con Open....For Read/Input
Con quest'altra modalità si leggerà il file di testo come un file binario mediante la fuzione Input. Come è noto, "Input" legge le stringhe in un File di testo fino all'interruzione dello spazio o al carattere di "nuova linea". Ciò permetterà di individuare ogni parola del testo, delimitata da uno spazio, e di caricarla successivamente in un nuovo elemento di un'apposita variabile-array:
Public Sub Button1_Click() Dim fl As File Dim s As String Dim ss As New String[] Dim b As Byte fl = Open "/percorso/del/file/di/testo" For Read ' ...oppure "Input" While Not Eof(fl) Input #fl, s ' Ogni parola del testo, delimitata da uno spazio, viene individuata e caricata in un nuovo elemento della variabile-array "ss": ss.Push(s) Wend ' Mostra in console ogni stringa (parola) contenuta in ciascun elemento della variabile-array "ss": For b = 0 To ss.Max Print ss[b] Next End