مثالي از كار با فايل هاي تصادفي(سورس كتابخانه با سيستم فايلينگ)

[SilverLearn]

با سلام اين پروژه رو من براي استاد خود نوشتم ولي خيلي كامل نيست
و هدف من از اين پروژه فقط آموزش كار با فايل هاي تصافي هستش
خيلي هم سعي كردم ساده باشه تا افراد مبتدي هم بتونند از اون استفاده كنند



حالا دانلود كنيد اين سورس با ارزش رو و يك نظري هم بدهيد
ممنون تابعد

تشكر يادتون نره ...

[mmd2009]

Public Function space()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""

Dim cur As ozviat
Dim cnt As Integer
Seek #a, 1
While Not EOF(a)
Get #a, , cur
cnt = cnt + 1
Wend
Seek #a, cnt + 1
End Function

دوست عزیز این تابع شماست؟!!

یعنی جاهایی که تابع رو فراخوانی کردی یعنی همینو فراخوندی

اگه میشه یه توضیحی در مورد این تابع بده اصلا این چیه

اگه میشه توضیح دقیقی بده چون من متوجه نمیشم اینارو

البته میدونم مبتدی هستم دیگه

[SilverLearn]

با سلام به شما دوست گرامي خوب اين يك تابع است كه فكر كنم اولش خيلي راحت باشه يعني اين ها
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
كد هاي بالا باعث خالي شدن تكس باكسها يا اصطلاحا خاصيت نال هستند (يعني هرچي وارد كرده باشي در آنها وقتي اين تابع فراخواني بشه پاك ميشه(
ميريم سراغ بعدي
Dim cur As ozviat
Dim cnt As Integer
خوب دو تا متغيير تعريف كردم كه يكيش از نوع عدد صحيح و ديگري از نوع عضويت كه اين نوع رو در ماژول تعريف كرده بودم هستند
بعدي
Seek #a, 1
اين تابع اشاره گر رو به اول فايل مذكور مي بره
و اين حلقه اصل كاري
While Not EOF(a)
Get #a, , cur
cnt = cnt + 1
Wend
Seek #a, cnt + 1

در اين قسمت تابع يك حلقه ايجاد شده كه بعد از ذخيره سازي يك ركورد، اشاره گر رو يكي ميبره جلو تا ركورد بعدي جايگزين ركورد قبلي نشه
براي امتحان هم مي توني اين قسمت رو از برنامه حذف كني !!!ميبيني كه اطلاعات قديمي با هر بار عمل ذخيره سازي جاي خودشونو به اطلاعات جديد ميدهند
خوب اميدوارم كه تونسته باشم مشكلت رو حل كنم