به چه صورت میتونم اطلاعات ذخیره شده در یک فایل را بازیابی کنم؟

سلام دوستان عزیز . من یک برنامه ساده نوشتم که 3 فیلد برای وارد کردن اطلاعات داره : نام , نام خانوادگی و شماره پرسنلی . که با دکمه ذخیره اطلاعات رو در یک فایل ذخیره میکنه . با توجه به اینکه من مبتدی هستم نمیدونم که به چه صورت میتونم اطلاعات را بازیابی کنم به اینصورت که میخوام بر اساس شماره پرسنلی جستجویی انجام بده و نام و نام خانوادگی رو در فیلدهای مربوطه نشان بده . در ضمن فیلد مربوط به جستجو با فلش مشخص شده . یعنی شماره پرسنلی رو در فیلد چهارم مینویسیم و بعد دکمه جستجو رو کلیک میکنیم ... من تصویر برنامه را به همراه سورس ضمیمه کردم که شما عزیزان لطفی کنید و برنامه را کامل کنید و خواهشمندم که کد نویسی بصورت ساده انجام بشه که تحلیل برنامه برای من که مبتدی هستم به راحتی انجام بشه . پیشاپیش از شما عزیزان سپاسگذارم ....

لینک برنامه به همراه عکس : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بعد از download بگو كارت راه افتاد يا نه در ضمن اين برنامه فقط فايل ها رو در c ذخيره ميكنه.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
راحتر از اينم ميشد ولي تو اون لحظه همين فقط به ذهنم اومد.

در اصل بايد اين برنامه رو با پايگاه داده مينوشتي حالا اصل برنامت چي هست ؟

راستي اون اخر تو كامند joste joo يه close بنويس من يادم رفت بنويسم

کد:

---

Dim b As Byte
Dim d As Boolean
If (Dir("c:\" & Text4.Text & ".txt")) = (Text4.Text & ".txt") Then
Open "c:\" & Text4.Text & ".txt" For Random As 1 Len = 1

Do While (EOF(1) <> True)
i = i + 1
Get #1, i, b
j = j & Chr(b)
If b = 44 Then
j = Right(j, ((Len(j)) - 1))
j = Left(j, ((Len(j)) - 2))
Text1.Text = j
Exit Do
End If
Loop

j = Empty
i = i + 1
Do While (EOF(1) <> True)
i = i + 1
Get #1, i, b
j = j & Chr(b)
If b = 34 Then

j = Left(j, ((Len(j)) - 1))
Text2.Text = j
Exit Do
End If
Loop
Text3.Text = Text4.Text
close                                        <------اينجا
End If

---

سلام دوست عزیز ممنو از محبتت . کارم راه افتاد اما تحلیل کدها یک مقداری برام سخت هست که اگه با مشکل برخورد کردم از شما میپرسم . باز هم سپاسگذارم

راستش تحلیل کد ها سختر از اونی بود که فکر میکردم . آیا این امکان برای شما وجود داره که کد ها رو تفسیر کنید ؟ ( شرمنده من مبتدی هستم )

خواهش ميكنم البته
كد در قسمت كامند ثبت كه اسونه يك فايل ايجاد ميكنه با اسم شماره پرسنلي كه امكان جست و جو با اون واسه شما فراهم بشه وداخل فايل هم اسم و شماره تلفن هست .
حالا كد قسمت جستجو كه يه كم مشكل تره حلقه اول براي گرفتن اسم هست كه تا اونجايي ميچرخه كه b=44 بشه چون b از نوع byte هست 44 هم يك كد اسكي هست (كد اسكي 44 =, كه تو جدول اسكي كتاب هاي وي بي هست) پس از حلقه بيرون مياد
البته قبل از اون با فرمان left و right (") از دو طرف رشته حذف ميشه.
و ميره سراغ بعدي يعني شماره تلفن با همين روال ولي اين دفعه شرط b=34 هست كه 34 اسكي (")هست قبل از اين حلقه نوشتم i=i+1 كه براي رد كردن " قبل از شماره تلفن هست كه از حلقه همون اول خارج نشه اگه فايل رو باز كني مشخصه اگه با f8 هم پيش بري خوبه.
خلاصه اگه بازم سوالي واسط پيش اومد بگو البته تو پست قبلي هم گفتم اين برنامه رو راحت تر هم ميشه نوشت ولي بايد رووش فكر كرد .

چي شد كارت راه افتاد؟
اينم اون كدي كه گفتم ساده تره:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

آقا دمت گرم میرم ببینم این یکی چجوری هست ...قبلی برام کمی سخت بود . حالا سوالاتم رو یکجا مبپرسم . باز هم ممنون از محبتت ...