[VB6]: Contare le righe di un file sequenziale

[eurofolle]

Aiuto !
Qualcuno mi saprebbe dire come si fa a contare le righe in un file sequenziale ?
Grazie

[Boolean]

se le righe sono separate da ritorni di paragrafo è abbastanza semplice:

prima di tutto carichi il file in una variabile, con Open ad esempio, poi usi queste istruzioni:

Dim Righe() As String
Dim NumRighe As Long
Dim t As String

'[Apri il file di testo e lo metti in t]

Righe = Split(t, vbCrLf)
NumRighe = UBound(Righe) + 1

MsgBox "Il file ha " & NumRighe & " Righe"

Boolean

[eurofolle]

E se volessi inserire un'informazione in una riga precisa? cioè, ho un file txt di 10 righe, composta da numeri... voglio inserire alla 5° riga un nuovo numero, potrei inserire un If e riscrivere il file? o c'è un'altra procedura?

:master:

[Boolean]

leggi tutto il file, inserisci quello che ti serve dove vuoi e riscrivi tutto il file.

Boolean

[Luciano79]

una soluzione fuori dalle solite righe potrebbe essere...

    Dim FileInput As String
    Dim FileOutput As String
    Dim Cont As Integer
    Dim NumByte As Long
    Const Riga = 5
    
    Open "TuoFileInput" For Input As #1
    FileInput = Input(LOF(1), 1)
    
    While Cont < Riga - 1
        NumByte = InStr(NumByte + 1, FileInput, vbCrLf)
        Cont = Cont + 1
    Wend
    
    FileOutput = Left(FileInput, NumByte - 1) & vbCrLf & "riga che vuoi inserire al posto della precedente" & Mid(FileInput, InStr(NumByte + 1, FileInput, vbCrLf))
    Close #1
    
    Open "TuoFileOutput" For Output As #1
    Print #1, FileOutput;
    Close #1

    Kill "TuoFileInput"
    Name "TuoFileOutput" As "TuoFileInput"

[eurofolle]

Grazie!
Ci provo e te lo faccio sapere .