Posted: Sun Aug 06, 2006 7:45 pm Post subject: تازه کار
دو سال است وی بی کار می کنم ولی نسبت به شما تازه کار هستم. می خواستم یک کمک کلی نسبت به ذخیره آرایه ها در یک فایل و سپس جستجو از طریق مقادیر آرایه ها بگیرم. چطور می توان هنگام باز کردن آن فایل آخرین آرایه ای که ذخیره شده است روی صفحه قرار گیرد.
متشکرم
احمد
mazamir_69@yahoo.com
مقادير آرايه رو با يه كنتور تو فايل مي نويسي . تا اينجاش كه كاري نداره .
براي خوندن هم مي ري آخر فايل به اندازه فضاي عنصر يه آرايه بر مي گردي و مي خوني ...
دوباره سلام.راستش هیچی نفهمیدم. قسمتی از کد برنامه رو این زیر می ذارم
بازم ممنون
قسمتی از کد ماژول
Public Const MaxRecords As Integer = 20000
Public Type AddrRec
Radif As String * 7
NGabli As String * 15
Date As String * 8
Saheb As String * 50
Sharh As String * 500
Payvast As String * 10
NDate As String * 8
End Type
Public AddrEntrys(MaxRecords) As AddrRec
قسمتی از کد فرم
Option Base 1
Option Explicit
Public RecIndex As Integer
Public recLength As Integer
Public CNumber As Integer
Public X As Integer
Private Sub UpDate_Form()
txtRadif.Text = AddrEntrys(RecIndex).Radif
txtNGably.Text = AddrEntrys(RecIndex).NGabli
txtDate.Text = AddrEntrys(RecIndex).Date
txtSaheb.Text = AddrEntrys(RecIndex).Saheb
txtSharh.Text = AddrEntrys(RecIndex).Sharh
txtPayvast.Text = AddrEntrys(RecIndex).Payvast
txtNDate.Text = AddrEntrys(RecIndex).NDate
End Sub
Private Sub Get_Data()
AddrEntrys(RecIndex).Radif = txtRadif.Text
AddrEntrys(RecIndex).NGabli = txtNGably.Text
AddrEntrys(RecIndex).Date = txtDate.Text
AddrEntrys(RecIndex).Saheb = txtSaheb.Text
AddrEntrys(RecIndex).Sharh = txtSharh.Text
AddrEntrys(RecIndex).Payvast = txtPayvast.Text
AddrEntrys(RecIndex).NDate = txtNDate.Text
End Sub
Private Sub cmdNextRec_Click()
If RecIndex < MaxRecords Then
Call Get_Data
RecIndex = RecIndex + 1
Call UpDate_Form
End If
End Sub
Private Sub cmdPrevRec_Click()
If RecIndex > 1 Then
Call Get_Data
RecIndex = RecIndex - 1
lblShomare.Caption = lblShomare.Caption - 1
Call UpDate_Form
End If
End Sub
Private Sub cmdSaveRec_Click()
CNumber = FreeFile
Call Get_Data
Open "give.dat" For Random As CNumber Len = recLength
Put CNumber, RecIndex, AddrEntrys(RecIndex)
Close CNumber
End Sub
Private Sub Form_Load()
RecIndex = 1
recLength = Len(AddrEntrys(1))
CNumber = FreeFile
Open "give.giv" For Random As CNumber Len = recLength
If Not EOF(1) Then
For X = 1 To MaxRecords
Get CNumber, X, AddrEntrys(X)
Next X
End If
Close CNumber
RecIndex = 1
Call UpDate_Form
End Sub
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum