M.T.P
یک شنبه 08 فروردین 1389, 13:21 عصر
دوستان نحوه تعریف رشته با طول ثابت در Structure چطوریه؟
میخوام تو فایل متنی با دسترسی Random بنویسم و باید طول Structure رو داشته باشم.
با vb6.fixedstringlenght مینویسم نمیشه!!!:متفکر:
کد vb6:
Private Type Account
AccNumber As String * 20
AccName As String * 20
AccPhone As String * 20
End Type
Private Sub CmdWrite_Click()
Dim Acc As Account
Acc.AccNumber = "1000"
Acc.AccName = "Ali"
Acc.AccPhone = "09120000000"
Open "C:\Acc.txt" For Random Access Read Write As 1 Len = Len(Acc)
Put 1, 1, Acc
Close 1
End Sub
میخوام تو فایل متنی با دسترسی Random بنویسم و باید طول Structure رو داشته باشم.
با vb6.fixedstringlenght مینویسم نمیشه!!!:متفکر:
کد vb6:
Private Type Account
AccNumber As String * 20
AccName As String * 20
AccPhone As String * 20
End Type
Private Sub CmdWrite_Click()
Dim Acc As Account
Acc.AccNumber = "1000"
Acc.AccName = "Ali"
Acc.AccPhone = "09120000000"
Open "C:\Acc.txt" For Random Access Read Write As 1 Len = Len(Acc)
Put 1, 1, Acc
Close 1
End Sub