есть макрос на vba, который пишет файл в произвольном доступе:
| Код | Private Type Record id As Long name As String * 20 status As String * 10 End Type
Private rec As Record Private rows_count As Long Private datfilePath As String
Private Sub writeButton_Click() datfilePath = ThisWorkbook.Path + "\data\datfile.dat" datfile = FreeFile() Open datfilePath For Random As #datfile Len = Len(rec) rows_count = Int(LOF(datfile) / Len(rec)) rec.id = rows_count + 1 rec.name = "test_name_" + Str(rows_count + 1) rec.status = "test_sta" + Str(rows_count + 1) Put #datfile, rows_count + 1, rec rows_count = Int(LOF(datfile) / Len(rec)) logFile ("rows_count = " + Str(rows_count)) Close #datfile countLabel.Caption = Str(rows_count) End Sub
|
как прочитать полученный файл в java? |