Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Visualizzare un file sequenziale in una form

Ciao raga.
Forse qualcuno di voi mi può aiutare, percè ne stò uscendo matto...
Problema:
Avendo salvato dei dati di un'applicazione in un file di tipo sequenziale,
vorrei recuperarli visualizzando a monitor una descrizione estesa del
contenuto.
Il problema è che mi visualizza solo la prima riga!!!
Se ci fosse una sola variabile per ogni riga di file non sarebbe un problema
utilizzando Line Input, ma così non funziona!
Per stampare non ho avuto alcun problema, utilizzando Printer.
Un grazie infinito a chi mi può aiutare.
Il codice da me usato è:
Sub InviaMonitor()
Dim nSessione As Integer
nSessione = 1
    On Error GoTo ERRORE
        IngrandisciForm
        'Dim LineaFile, NuovaLinea As String
        Dim Progetto, DataInizio, DataFine, TotaleOre, TotaleMin, TotaleSec,
parzOre, parzMin, parzSec, Pausa, pOre, pMin, pSec, sesOre, sesMin, sesSec,
Co, AtSv, sesMoney, effO, effM, effS, Mon
        Open App.Path & "\Progetti\" & NomeProgetto & ".nin" For Input As 1
        Do Until EOF(1)
        Input #1, Progetto, DataInizio, DataFine, TotaleOre, TotaleMin,
TotaleSec, parzOre, parzMin, parzSec, Pausa, pOre, pMin, pSec, sesOre,
sesMin, sesSec, Co, AtSv, sesMoney, effO, effM, effS, Mon  ' Legge la riga
di dati.
            If Pausa Then
                PausaEffettuata = "In questa sessione di lavoro sono state
effettuate una o più pause, per un totale di " & pOre & " ore, " & pMin & "
minuti e " & pSec & " secondi."
            Else
                PausaEffettuata = "In questa sessione di lavoro non sono
state effettuate pause."
            End If
 
txtReport.Font.Name
 = "Arial"
            txtReport.Font.Bold = True
            txtReport.Font.Size = 10
            txtReport = "                          " & _
            "Report delle ore lavorative riguardanti il progetto " & "'" &
NomeProgetto & "'" & vbCrLf & vbCrLf & _
             "Sessione di lavoro N°" & nSessione & vbCrLf & _
             "Questa sessione è stata aperta in data e ora: " & DataInizio &
", ed è stata chiusa in data e ora: " & DataFine & vbCrLf & _
             "E' quindi durata " & parzOre & " ore, " & parzMin & " minuti e
" & parzSec & " secondi." & vbCrLf & _
             PausaEffettuata & vbCrLf & _
             "Quindi questa sessione di lavoro è durata effettivamente " &
sesOre & " ore, " & sesMin & " minuti e " & sesSec & " secondi. " & vbCrLf &
_
             "Considerando la paga oraria di £." & Co & ", l'ammontare per
questa sessione risulta essere di £." & sesMoney & "." & vbCrLf & _
             "Attività svolte in questa sessione di lavoro: " & AtSv &
vbCrLf & _
             vbCrLf & _
             "In totale il tempo occorso per il progetto " & "'" & Progetto
& "'" & " è: " & effO & " ore, " & effM & "minuti e " & effS & " secondi,
per un ammontare di £." & Mon
        Loop
        Close #1
    Exit Sub
ERRORE:
     Select Case Err.Number
        Case 53
            MsgBox "Nome di file errato. File inesistente", vbCritical +
vbOKOnly, "Errore !"
        Case Else
            MsgBox Err.Number & "   " & Err.Description
    End Select
End Sub


cosě a prima vista mi sembra a posto.
Sicuro sicuro che la Multiline del textbox sia true, vero?
ciao
ugo

 ha scritto nel messaggio
news:9okrn4$t7n$1...@lacerta.tiscalinet.it...


Co, AtSv, sesMoney, effO, effM, effS, Mon
Orrore ! Cosa sono queste variabili senza tipo (e quindi variant?)
Prima di continuare: come riconosci i vari campi ?
Lunghezza fissa, separatore, ...
ciao, hal