skip 26 linee in txt file

sto usando la tipica apertura di un file di testo con Open c:\..... for output #1 ecc...
per leggere linea linea le righe.
Nel file ci sono blocchi di linee contraddistinte da INIZIO: e FINE: tipo:

INIZIO:
altra riga
altra riga
...
FINE:


fra INIZIO e FINE ci sono dati che non mi interessano (ci sono sempre 26 "altra riga")

si puo fare direttemante nel codice di lettura lo skip alla riga 27 senza leggere le righe che non mi interessano?

note:
blocco è ripetuto in in tutto il file ed è sepre costante con inizio e fine cosi come lo ssono le righe da escludere (26)

Originariamente inviato da sal21

sto usando la tipica apertura di un file di testo con Open c:\..... for output #1 ecc...
per leggere linea linea le righe.

Tipica mica tanto. Se lo devi leggere, perché lo apri "for output" ?

Originariamente inviato da sal21

si puo fare direttemante nel codice di lettura lo skip alla riga 27 senza leggere le righe che non mi interessano?

Si può fare soltanto se le 26 righe hanno lunghezza nota. In questo caso potresti calcolare la posizione del primo carattere della 27esima riga e iniziare a leggere da lì.

Originariamente inviato da sal21

Nel file ci sono blocchi di linee contraddistinte da INIZIO: e FINE: tipo:

INIZIO:
altra riga
altra riga
...
FINE:


fra INIZIO e FINE ci sono dati che non mi interessano (ci sono sempre 26 "altra riga")

si puo fare direttemante nel codice di lettura lo skip alla riga 27 senza leggere le righe che non mi interessano?

note:
blocco è ripetuto in in tutto il file ed è sepre costante con inizio e fine cosi come lo ssono le righe da escludere (26)

Ciao sal21.

Dovresti essere un po' più preciso sullo scopo di quanto vuoi ottenere.
Stando a quello che dici, il tuo file di testo avrebbe questo formato :

INIZIO:
...
< 26 righe >
...
FINE:
INIZIO:
...
< 26 righe >
...
FINE:
INIZIO:
...
< 26 righe >
...
FINE:

...

ecc...

La lettura alla fine restituirebbe solo le righe di inizio e fine blocco, ma così facendo il risultato sarebbe :

INIZIO:
FINE:
INIZIO:
FINE:
INIZIO:
FINE:

...

ecc...

E' questo che vuoi ottenere ?

Originariamente inviato da MarcoGG

Ciao sal21.

Dovresti essere un po' più preciso sullo scopo di quanto vuoi ottenere.
Stando a quello che dici, il tuo file di testo avrebbe questo formato :

INIZIO:
...
< 26 righe >
...
FINE:
INIZIO:
...
< 26 righe >
...
FINE:
INIZIO:
...
< 26 righe >
...
FINE:

...

ecc...

La lettura alla fine restituirebbe solo le righe di inizio e fine blocco, ma così facendo il risultato sarebbe :

INIZIO:
FINE:
INIZIO:
FINE:
INIZIO:
FINE:

...

ecc...

E' questo che vuoi ottenere ?

Hi fratello! con questa sarebbero tre aiuti preziosi, e per questo ti ringrazio.

dunque la mia struttura è la seguente:

INIZIO:
...
< 26 righe >
...
FINE:
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
INIZIO:
...
< 26 righe >
...
FINE:
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
INIZIO:
...
< 26 righe >
...
FINE:
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
lineabuona
ecc...

quindi una volta che incontro INIZIO non ha senso leggere fino a FINE, o no?

ho provato una cosa del genere:
for i =1 to 26
lineinput#, linea
next
ma questo rallenta il codicie in modo spaventoso....

quindi per me la cosa è:
se incontri INIZIO conta 26 linee e vai subito alla lineabuona..

dato che i dati nel txt sono riservati se ti va ti posso spedire il file originale... oppure contattami su skipe via voce o su msnger, e ti dico gli account per ognuno.
Ciao.

Originariamente inviato da Brontolo

Tipica mica tanto. Se lo devi leggere, perché lo apri "for output" ?


Si può fare soltanto se le 26 righe hanno lunghezza nota. In questo caso potresti calcolare la posizione del primo carattere della 27esima riga e iniziare a leggere da lì.

scusa ma hia ragione è for input:-)

hop le routine per leggere e scrivere nello stesso codice e mi sono sbagliato.
ciao.

Originariamente inviato da sal21

...
quindi per me la cosa è:
se incontri INIZIO conta 26 linee e vai subito alla lineabuona..

dato che i dati nel txt sono riservati se ti va ti posso spedire il file originale... oppure contattami su skipe via voce o su msnger, e ti dico gli account per ognuno.

Non penso sia necessario l'invio dei file.
Quello che vuoi può essere fatto facilmente referenziando la libreria Microsoft Scripting Runtime, e usando uno Scripting.FileSystemObject e uno Scripting.TextStream.

    Dim FSO As New Scripting.FileSystemObject
    Dim TS As Scripting.TextStream
    Set TS = FSO.OpenTextFile(percorso & nomeFile)

Questo per aprire il file e creare il TextStream.

Nel ciclo TextStream ( Do Until TS.AtEndOfStream ... ) puoi usare a seconda :
- TS.ReadLine
- TS.SkipLine

Vedi se ci riesci da solo, altrimenti chiedi...

Originariamente inviato da MarcoGG

Non penso sia necessario l'invio dei file.
Quello che vuoi può essere fatto facilmente referenziando la libreria Microsoft Scripting Runtime, e usando uno Scripting.FileSystemObject e uno Scripting.TextStream.

    Dim FSO As New Scripting.FileSystemObject
    Dim TS As Scripting.TextStream
    Set TS = FSO.OpenTextFile(percorso & nomeFile)

Questo per aprire il file e creare il TextStream.

Nel ciclo TextStream ( Do Until TS.AtEndOfStream ... ) puoi usare a seconda :
- TS.ReadLine
- TS.SkipLine

Vedi se ci riesci da solo, altrimenti chiedi...

ok quindi se ho ben capito dovrei fare 26 copie di: TS.SkipLine quando il codice incontra INIZIO, o no?

Originariamente inviato da MarcoGG

Non penso sia necessario l'invio dei file.
Quello che vuoi può essere fatto facilmente referenziando la libreria Microsoft Scripting Runtime, e usando uno Scripting.FileSystemObject e uno Scripting.TextStream.

    Dim FSO As New Scripting.FileSystemObject
    Dim TS As Scripting.TextStream
    Set TS = FSO.OpenTextFile(percorso & nomeFile)

Questo per aprire il file e creare il TextStream.

Nel ciclo TextStream ( Do Until TS.AtEndOfStream ... ) puoi usare a seconda :
- TS.ReadLine
- TS.SkipLine

Vedi se ci riesci da solo, altrimenti chiedi...

e poi non ho mai usato TextStream mi puoi fare un esempio di lettura riga by riga, grazie.

Originariamente inviato da sal21

ok quindi se ho ben capito dovrei fare 26 copie di: TS.SkipLine quando il codice incontra INIZIO, o no?

Originariamente inviato da sal21

e poi non ho mai usato TextStream mi puoi fare un esempio di lettura riga by riga, grazie.

No, che significa "26 copie" ?

Intendo qualcosa del genere :

    Dim FSO As New Scripting.FileSystemObject
    Dim TS As Scripting.TextStream
    Set TS = FSO.OpenTextFile(percorso & nomeFile)
    Dim cnt As Integer
    Dim cntMax As Integer
    cntMax = 26
    Dim linea As String
        
    Do Until TS.AtEndOfStream
        If cnt > 0 And cnt <= cntMax + 1 Then
            TS.SkipLine
            cnt = cnt + 1
        Else
            linea = TS.ReadLine
            If linea = "INIZIO:" Then
                cnt = 1
            Else
                cnt = 0
            End If
        End If
    Loop
    TS.Close

Dove cntMax = 26 se le righe fra INIZIO: e FINE: sono 26.

Io sono del parere che se sono stati messi i segnali di INIZIO e FINE sia la prova che in futuro il numero di righe possa variare diventando maggiore o minore.
Quindi, se le righe utilizzabili sono quelle contenute all'interno dei marcatori di start/stop allora si può benissimo fare a meno di testare il numero di righe (26).
(codice seguente è ricavato da: Reading a Text file Line by Line - Visual Basic - Source Code | DreamInCode.net )

'(general declaration)

Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long

'==================================

Private Sub Command1_Click()

' Get a free file number
nFileNum = FreeFile
Dim flagScarta As Boolean
FlagScarta = true
' Open a text file for input. inputbox returns the path to read the file
Open "c:\mytextfile.txt" For Input As nFileNum
lLineCount = 1
' Read the contents of the file
Do While Not EOF(nFileNum)
   Line Input #nFileNum, sNextLine
   'do something with it
   if sNextLine = "INIZIO" THEN 
     flagScarta = true
   ELSE if NextLine = "FINE" Then
     flagScarta = true
    else
      flagscarta = false
   End If
   IF Not flagScarta THEN
      .. lo utilizzo
   End If

Loop
' Close the file
Close nFileNum

End Sub