دفترچه تلفن با فایل ترتیبی؟

[nima.computer]

من یه دفترچه تلفن با فایل ترتیبی مینویسم که توسط چندا تکست باکس نام ، نام خانوادگی و.....را دریافت میکنه
با کد زیر
Open "c:\NumberPhone.txt" For Append As #1
Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text5.Text
MsgBox "Write information"
Close #1

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""




و برای نمایش اطلاعات ذخیره شده در فایل دوباره چند تا تکست باکس گذاشتم که نمایش بده و یه دکمه نکست که با آن بتوان یکی یکی اطلاعات و شماره را دید ولی بلد نیستم چطور کدش رو بنویسم که وقتی نکست رو میزنم اسم و فامیلیو... بعدی نشان داده بشه فقط بلدم یه دونه رو نشون بدم
Private Sub cmdveiw_Click()
Dim strName As String

Dim strLastName As String
Dim strtel As String
Dim strmob As String
Dim strAddress As String

Open "c:\NumberPhone.txt " For Input As #1

Input #1, strName, strLastName, strtel, strmob, strAddress
Close #1
Text1.Text = strName
Text2.Text = strLastName
Text3.Text = strtel
Text4.Text = strmob
Text5.Text = strAddress
End Sub



لطفا راهنماییم کنید من زیاد کار با فایل هارو بلد نیستم تازه باید edit و search هم بذارم

[nima.computer]

اینم پروژه که ناقصه

numberphon (http://up.iranblog.com/images/olpemkekx9o02vbr21l.zip)

خواهشا کمکم کنید

[returnx]

واستون دکمه View و next رو نوشتم Previous دیگه باخودتون...
پروژه ضمیمه شد...
هر چند باید بگم اصلا کار درستی نکردم ، بهتر بود واستون توضیح میدادم تا خودتون انجام بدید و یاد بگیرید تا اینکه لقمه آماده بهتون بدم ولی چه کنم که حوصله توضیح دادن نداشتم...
از مدیران محترم عذر خواهی میکنم...

[nima.computer]

ممنون که نوشتین
خب خودم بررسی میکنم یاد میگیرم
چون باید توضیحاتشم بنویسم
اگه یاد گرفتم میام مینویسم اینجا
کار با فایل هارو بلد نیستم تو کتابها هم که یکم اشاره کرده

[M_Maskout]

سلام
هیچ وقت هیچ کاری رو تا آخرین لحظه به عقب نندازید و در صورتیکه خیلی عجله دارین، بهتره زود تر اقدام کنید. امیدوارم جوابم به درد شما بخوره و دیر نشده باشه. عمداً کمرنگ نوشتم!
1. یه متغیر سراسری جهت نگه داشتن شماره رکورد تعریف کنید:

Dim RecNo as Integer
2. یه روتین برای دسترسی به محتویات فایل بنویسید:

Sub ReadFile()
Dim i as Integer
Open "c:\NumberPhone.txt " For Input As #1
For i = 1 to RecNo
Input #1, strName, strLastName, strtel, strmob, strAddress
If EOF(1) Then
RecNo = i
Exit For
End If
Next i
Close #1
Text1.Text = strName
Text2.Text = strLastName
Text3.Text = strtel
Text4.Text = strmob
Text5.Text = strAddress
End Sub

3. متغیر تعریف شده رو تو Form_Load مقدار دهی کنید کنید و فایل رو بخونید:

Private Sub Form_Load()
RecNo = 1
ReadFile
End Sub

4. برای دکمه Back داریم:

Private Sub Command2_Click()
RecNo = RecNo - 1
If RecNo < 1 Then RecNo = 1
ReadFile
End Sub


5. برای دکمه Next داریم:

Private Sub Command3_Click()
RecNo = RecNo + 1
ReadFile
End Sub

[returnx]

بفرمایید این پروژه که تقریبا براتون 80% کامل کردم...71722

[proreza2]

ممنون میشم اگه قسمت پاک کردن(delete)را هم راهنمایی میکردن خوب بود چون خیلی قسمت حساسی هست من که نتونستم کاری بکنم اگر کسی راهنمایی کنه ممنون میشم
ممنون

[سید حمید حق پرست]

سلام

اینم نمونه پروژه کامل دفترچه تلفن
امیدوارم به دردت بخوره

[proreza2]

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