ParsX.com

mazamir · Posted: Sun Aug 06, 2006 7:45 pm Post subject: تازه کار

دو سال است وی بی کار می کنم ولی نسبت به شما تازه کار هستم. می خواستم یک کمک کلی نسبت به ذخیره آرایه ها در یک فایل و سپس جستجو از طریق مقادیر آرایه ها بگیرم. چطور می توان هنگام باز کردن آن فایل آخرین آرایه ای که ذخیره شده است روی صفحه قرار گیرد.
متشکرم
احمد
mazamir_69@yahoo.com

vahid · Posted: Sun Aug 06, 2006 9:20 pm Post subject:

مقادير آرايه رو با يه كنتور تو فايل مي نويسي . تا اينجاش كه كاري نداره .
براي خوندن هم مي ري آخر فايل به اندازه فضاي عنصر يه آرايه بر مي گردي و مي خوني ...

mazamir · Posted: Mon Aug 07, 2006 12:31 am Post subject:

دوباره سلام.راستش هیچی نفهمیدم. قسمتی از کد برنامه رو این زیر می ذارم
بازم ممنون
قسمتی از کد ماژول
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

vahid · Posted: Mon Aug 07, 2006 6:46 am Post subject:

اگه مي توني پروژه ات رو بفرست .
چون تقريبا كار مي بره .