和過去說再見2008.08.27 回答

Option Explicit

‘定義結構體，注意，此處如果用到字串變數，要設定定長

Private Type typUser

uid As Long

uName As String * 10 ’定長10個字元

uPWD As String * 10

End Type

Dim user（10） As typUser

‘讀取

Dim userGet（10） As typUser

Private Sub Form_Load（）

’隨便填充資料

Dim i As Integer

For i = 0 To 10

With user（i）

。uid = i

。uName = Rnd * 99999

。uPWD = Rnd * 88888

End With

Next

‘儲存結構體陣列到檔案

Open App。Path & “\save。dat” For Random As #1 Len = Len（user（0）） ’Random方式開啟檔案，這裡的len是每條記錄的長度

For i = 0 To 10

Put #1， ， user（i）

Next

Close #1

‘從檔案中讀取結構體

Open App。Path & “\save。dat” For Random As #1 Len = Len（user（0））

For i = 0 To 10

Get #1， i + 1， userGet（i）

Next

Close #1

End Sub