Differenze tra le versioni di "Raccogliere solo alcune righe all'interno di un file di testo"
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 1: | Riga 1: | ||
Mostreremo di seguito un possibile algoritmo per raccogliere da un file di testo solo alcune righe, individuando la prima riga da raccogliere non da un numero d'indice (ad esempio: la 20<SUP>a</sup> riga), bensì dal proprio testo. | Mostreremo di seguito un possibile algoritmo per raccogliere da un file di testo solo alcune righe, individuando la prima riga da raccogliere non da un numero d'indice (ad esempio: la 20<SUP>a</sup> riga), bensì dal proprio testo. | ||
+ | ===Uso dell'operatore "Like"=== | ||
+ | In questo caso utilizzeremo l'operatore "[https://gambaswiki.org/wiki/lang/like?l=it Like]" per filtrare le righe da raccogliere. | ||
+ | |||
+ | Come esempio prederemo dal file header ''/usr/include/alsa/mixer.h'' soltanto le righe che contengono almeno i caratteri "''_class'' ". Per ottenere questo risultato si userà anche l'operatore asterisco: "'''*'''_class'''*'''". | ||
+ | Public Sub Main() | ||
+ | |||
+ | Dim fl As File | ||
+ | Dim s As String | ||
+ | |||
+ | fl = Open "/usr/include/alsa/mixer.h" For Read | ||
+ | |||
+ | Repeat | ||
+ | <FONT Color=gray>' ''Legge ogni riga del file di testo:''</font> | ||
+ | s = fl.ReadLine() | ||
+ | <FONT Color=gray>' ''Raccoglie solo le righe che contengono almeno i caratteri "_class":''</font> | ||
+ | If s <FONT Color=#B22222>Like</font> "*_class*" Then Print s | ||
+ | <FONT Color=gray>' ''Quando si raggiunge la fine del file di testo, si esce dal ciclo:''</font> | ||
+ | Until fl.EndOfFile | ||
+ | |||
+ | fl.Close | ||
+ | |||
+ | End | ||
===Uso dell'operatore "Begins"=== | ===Uso dell'operatore "Begins"=== | ||
Riga 6: | Riga 28: | ||
Come esempio prederemo dal file header ''/usr/include/alsa/mixer.h'' soltanto le righe che iniziano con i caratteri "''typedef'' ": | Come esempio prederemo dal file header ''/usr/include/alsa/mixer.h'' soltanto le righe che iniziano con i caratteri "''typedef'' ": | ||
− | + | Public Sub Main() | |
Dim fl As File | Dim fl As File | ||
Riga 23: | Riga 45: | ||
fl.Close | fl.Close | ||
− | + | End | |
− | |||
===Uso dell'operatore "Ends"=== | ===Uso dell'operatore "Ends"=== | ||
Riga 30: | Riga 51: | ||
Come esempio prederemo dal file header ''/usr/include/alsa/mixer.h'' soltanto le righe che terminano con i caratteri "''value);'' ": | Come esempio prederemo dal file header ''/usr/include/alsa/mixer.h'' soltanto le righe che terminano con i caratteri "''value);'' ": | ||
− | + | Public Sub Main() | |
Dim fl As File | Dim fl As File | ||
Riga 47: | Riga 68: | ||
fl.Close | fl.Close | ||
− | + | End |
Versione attuale delle 08:45, 23 giu 2024
Mostreremo di seguito un possibile algoritmo per raccogliere da un file di testo solo alcune righe, individuando la prima riga da raccogliere non da un numero d'indice (ad esempio: la 20a riga), bensì dal proprio testo.
Uso dell'operatore "Like"
In questo caso utilizzeremo l'operatore "Like" per filtrare le righe da raccogliere.
Come esempio prederemo dal file header /usr/include/alsa/mixer.h soltanto le righe che contengono almeno i caratteri "_class ". Per ottenere questo risultato si userà anche l'operatore asterisco: "*_class*".
Public Sub Main() Dim fl As File Dim s As String fl = Open "/usr/include/alsa/mixer.h" For Read Repeat ' Legge ogni riga del file di testo: s = fl.ReadLine() ' Raccoglie solo le righe che contengono almeno i caratteri "_class": If s Like "*_class*" Then Print s ' Quando si raggiunge la fine del file di testo, si esce dal ciclo: Until fl.EndOfFile fl.Close End
Uso dell'operatore "Begins"
In questo caso utilizzeremo l'operatore "Begins" per filtrare le righe da raccogliere.
Come esempio prederemo dal file header /usr/include/alsa/mixer.h soltanto le righe che iniziano con i caratteri "typedef ":
Public Sub Main() Dim fl As File Dim s As String fl = Open "/usr/include/alsa/mixer.h" For Read Repeat ' Legge ogni riga del file di testo: s = fl.ReadLine() ' Raccoglie solo le righe che cominciano con "typedef": If s Begins "typedef" Then Print s ' Quando si raggiunge la fine del file di testo, si esce dal ciclo: Until fl.EndOfFile fl.Close End
Uso dell'operatore "Ends"
In questo caso utilizzeremo l'operatore "Ends" per filtrare le righe da raccogliere.
Come esempio prederemo dal file header /usr/include/alsa/mixer.h soltanto le righe che terminano con i caratteri "value); ":
Public Sub Main() Dim fl As File Dim s As String fl = Open "/usr/include/alsa/mixer.h" For Read Repeat ' Legge ogni riga del file di testo: s = fl.ReadLine() ' Raccoglie solo le righe che terminano con "value);": If s Ends "value);" Then Print s ' Quando si raggiunge la fine del file di testo, si esce dal ciclo: Until fl.EndOfFile fl.Close End