Files sequenziali

[Carmen]

Ciao.

Dovrei scrivere un files di testo di tipo seguenziale.

Non ricordo per niente come si trattavano questo tipo di files.

In pratica dovrei poter scrivere un files di testo seguenziale, dichiarando
lunghezza e nome dei campi da creare.

Potete aiutarmi, magari postandomi un frammento di codice di esempio?


Grazie. Carmen ;)

[buttarelli]

Dubito che qualcuno ti possa aiutare se non specifichi almeno il linguaggio di programmazione!

[Carmen]

Vero. Lo dimentico spesso. Il linguaggio e il VB6

[matpez]

Ti posto un pezzo di codice...spero che ti sia chiaro:

Option Explicit

Public Type RecordAnagrafe
lIDFamiglia As Long
lAtto As Long
sRuoloFamiglia As String * 15
nRuoloFamiglia As Integer
sCognome As String * 20
sNome As String * 20
dtNascita As Date
sSesso As String * 1
sComuneNascita As String * 20
sProvinciaNascita As String * 2
sViaRes As String * 30
nCivicoRes As Integer
sComuneRes As String * 20
sProvinciaRes As String * 2
sStatoCivile As String * 20
lAttoM As Long
sCognomeConiugeM As String * 20
sNomeConiugeM As String * 20
sComuneM As String * 20
sProvinciaM As String * 2
dtDataM As Date
End Type


Public glMaxRecord As Long
Public glMaxIDFam As Long
Public glMaxAttoM As Long
Public RecAnagrafe() As RecordAnagrafe
----------------------------------------------------------------------------

Sub LeggiFile()

Dim nFreeFile As Integer
Dim RecLen As RecordAnagrafe
Dim lI As Long


nFreeFile = FreeFile
On Error GoTo ErroreFile
Open "../Data/Anagrafe.db" For Random As #nFreeFile Len = LenB(RecLen)

'calcolo il numero di record
glMaxRecord = LOF(nFreeFile) / LenB(RecLen)
glSalvato = glMaxRecord

If glMaxRecord > 0 Then

'ridimensiono la tabella
ReDim RecAnagrafe(glMaxRecord)

'carico i file
For lI = 1 To glMaxRecord
Get #nFreeFile, lI, RecAnagrafe(lI)

'salvo l'ID maggiore della famiglia
If glMaxIDFam < RecAnagrafe(lI).lIDFamiglia Then
glMaxIDFam = RecAnagrafe(lI).lIDFamiglia
End If

'salvo il numero di atto matrimonio
If glMaxAttoM < RecAnagrafe(lI).lAttoM Then
glMaxAttoM = RecAnagrafe(lI).lAttoM
End If
Next lI

End If

Close #nFreeFile

End Sub

Sub ScriviFile()

Dim nFreeFile As Integer
Dim RecLen As RecordAnagrafe
Dim lI As Long


nFreeFile = FreeFile
On Error GoTo ErroreFile
Open "../Data/Anagrafe.db" For Random As #nFreeFile Len = LenB(RecLen)


'scrivo i file
For lI = glSalvato + 1 To glMaxRecord
Put #nFreeFile, lI, RecAnagrafe(lI)
Next lI
Close #nFreeFile

End Sub

Spero che sia chiaro...se nn capisci qlc chiedi pure :)

[Carmen]

Ok, ti ringrazio del pensiero, soprattutto visto che si trattava di un post di qualche giorno fà.

[matpez]

prego...ma siccome nn sono stato a casa in questi giorni ho letto anche alcune pagine arretrate :p

ciaooooooooooooo