Fine file

[Miky-SilentBoB]

ho la necessità di andare a capo dopo aver scritto un record (tramite il comando put )in un file aperto in modalità random come faccio? cosa devo fare alla fine del record?

[xegallo]

put #numfile ,,stringa & vbcrlf

[optime]

il tuo record ha quindi lunghezza fissa? gli ultimi due byte debbono contenere il ritorno a capo, quindi la sequenza CHR$(13) e CHR$(10)

[Miky-SilentBoB]

thanks io mettevo solo il chr$(13) e non funzionava ma adesso va tutto bene, grazie! per quanto riguarda il
Put #1, NumeroRec, Recstr & vbCrLf
mi da errore, esattamente mi dice tipo di dati non corrispondente (???)uno spezzone di codice è questo:

Private Sub Command1_Click()
'RecRid: record dichiarato in un modulo
Dim RecRid1 As RecRid
Dim RecLenRid As Long, LungoNum As Long, CampoLungo As Long, NumeroRidS As String

RecLenRid = Len(RecRid1)
On Error Resume Next
'NumeroRid: variabile globale implementata all'avvio
NumeroRidS = CCur(NumeroRid)
LungoNum = Len(NumeroRidS)
'il campo NumeroRidS deve contenere zeri prima del numero
Do Until LungoNum > 7
NumeroRidS = "0" + NumeroRidS
LungoNum = Len(NumeroRidS)
Loop
RecRid1.EntryCode = "03"
RecRid1.Oper_Code = "60"
RecRid1.Numbering = NumeroRidS
RecRid1.Space01 = Space(6)
RecRid1.Space02 = Space(6)
RecRid1.Space03 = Space(6)
'metto gli spazi fino alla fine del campo
CampoLungo = 24 - Len(Text1)
RecRid1.SwiftCode = Text1 + Space(CampoLungo)
CampoLungo = 24 - Len(Text2)
RecRid1.DrawerBank = Text2 + Space(CampoLungo)
RecRid1.EntryCode2 = "3"
RecRid1.Space04 = Space(1)
CampoLungo = 1 - Len(Text3)
RecRid1.CurrenCode = Text3 + Space(CampoLungo)
CampoLungo = 5 - Len(Text4)
RecRid1.BankCode = Text4 + Space(CampoLungo)
CampoLungo = 5 - Len(Text5)
RecRid1.BranchCode = Text5 + Space(CampoLungo)
CampoLungo = 11 - Len(Text6)
RecRid1.AccountNr = Text6 + Space(CampoLungo)
RecRid1.Space05 = Space(16)
CampoLungo = 3 - Len(Text7)
RecRid1.CurrenCode2 = Text7 + Space(CampoLungo)
RecRid1.Space06 = Space(3)
RecRid1.Space07 = Space(10)
RecRid1.Space08 = Space(15)
CampoLungo = 11 - Len(Text8)
RecRid1.RemittRefe = Text8 + Space(CampoLungo)
RecRid1.FineRiga = Chr$(13) + Chr$(10)

'scrittura su file
Open "RidCRC.txt" For Random As 1 Len = RecLenRid
Put #1, NumeroRid, RecRid1
Close 1

'pulitura campi variabili
Text1.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
'incremento numero Rid
NumeroRid = NumeroRid + 1
Label11.Caption = "Numbering: " + CStr(NumeroRid)

End Sub