Differenze tra le versioni di "Cercare un valore all'interno di un file aperto come un flusso di dati di tipo Stringa"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Il caso è quello in cui, avendo aperto un file come tipo di dati "Stringa", si intende cercare un valore costituito da uno o anche più byte. Mostriamo un possibile esempio...") |
|||
(3 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 8: | Riga 8: | ||
Dim s As String | Dim s As String | ||
− | Dim i | + | Dim i As Integer |
− | + | s = File.Load("<FONT Color=gray>''/percorso/del/file/da/caricare''</font>") | |
− | s | + | i = InStr(s, MkInt(VALORE)) |
− | + | If i == 0 Then | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
Print "Valore non presente nel file." | Print "Valore non presente nel file." | ||
+ | Else | ||
+ | Print "Il valore è stato trovato al byte di indice: "; i - 1 | ||
Endif | Endif | ||
− | + | ||
'''End''' | '''End''' |
Versione attuale delle 19:51, 22 nov 2021
Il caso è quello in cui, avendo aperto un file come tipo di dati "Stringa", si intende cercare un valore costituito da uno o anche più byte.
Mostriamo un possibile esempio in cui si cerca all'interno della stringa di dati del file un valore formato - in questo caso - da 4 byte (Tipo Integer ).
Private Const VALORE As Integer = valore-numerico-da-cercare (che occupi 4 byte) Public Sub Main() Dim s As String Dim i As Integer s = File.Load("/percorso/del/file/da/caricare") i = InStr(s, MkInt(VALORE)) If i == 0 Then Print "Valore non presente nel file." Else Print "Il valore è stato trovato al byte di indice: "; i - 1 Endif End