دستور سرچ توی دفتر تلفن که با فایل نوشتم چیه؟

[sinashokat]

سلام.بچه ها من یه دفتر تلفن نوشتم با vb.net با فایل چون دیتا بیس نخوندیم
دستور سرچ رو بلد نیستم. فایلم رو هم با fileopen باز کردم و اطلاعات رو با flexgrid نشون دادم.
استادمون راهنمایی کرده که باید با if نوشت
تروخدا کمک کنید چون 6نمره داره

[SamIran]

من که نمی فهمم چی میگی! برنامتو بزار بالا تا برات بنویسم!

[sinashokat]

سلام
برنامه ای که تا الان نوشتم اینه:

PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lname, tel AsString
Dim filenum AsInteger
lname = TextBox1.Text
tel = TextBox2.Text
filenum = FreeFile()
FileOpen(filenum, "c:\Tel.txt", OpenMode.Append)
Write(filenum, lname)
Write(filenum, tel)
FileClose(filenum)
TextBox1.Clear()
TextBox2.Clear()
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim lname, tel AsString
Dim filenum AsInteger
Dim i AsInteger
i = 1
filenum = FreeFile()
FileOpen(filenum, "c:\Tel.txt", OpenMode.Input)
WhileNot EOF(filenum)
Input(filenum, lname)
Input(filenum, tel)
AxMSFlexGrid1.Rows = i + 1
AxMSFlexGrid1.Row = i
AxMSFlexGrid1.Col = 0
AxMSFlexGrid1.Text = lname
AxMSFlexGrid1.Col = 1
AxMSFlexGrid1.Text = tel
i = i + 1
EndWhile
EndSub
PrivateSub AxMSFlexGrid1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSFlexGrid1.Enter
AxMSFlexGrid1.Row = 0
AxMSFlexGrid1.Col = 0
AxMSFlexGrid1.Text = "Name"
AxMSFlexGrid1.Col = 1
AxMSFlexGrid1.Text = "Tel"
AxMSFlexGrid1.FixedCols = 0
EndSub
حالا فقط مونده سرچ
منون

[karim orooji]

با سلام به دوست گرامي

اين برنامه ي سرچ بوسيله گريد ويو باشد

ابتدا مبناي جستجو رو انتخاب كن سرچ رو انجام بده

موفق باشي

[sinashokat]

من صفر صفرم.و خوب اصلا بلد نیستم
این کد سرچ رو که باید به کدهای بالا اضافه کنم بهم بگید. استادمون گفت باید بذاری فایل رو باز کنی و خط به خط بخونه و با یه if دستور سرچ رو بدی. حالا من بلد نیستم کدش رو بنویسم

[karim orooji]

با سلام به دوست گرامي

برنامه ات رو برام بزار

[sinashokat]

سلام .آقای عروجی
این هم برنامه
دیگه فقط سرچش رو شما بذارید خیلی سپاسگذارم.با تشکر

[karim orooji]

با سلام به دوست گرامي

نكته : اون برنامه كه شما داريد درست ميكنيد براي نمايش اطلاعات از يك كامپوننت استفاده شده

من برنامه اي براي شما گذاشتم مربوط براي نمايش اطلاعات از گريد ويو ميباشد و و جستجو هم براساس گريد ويو انجام ميشود.

برنامه روساختار برنامه نويسي شو من تغييرش دادم

فكر نكنم جوري كه شما ميخواهيد شده باشه

ببخشيد برنامه اي كه من دارم مربوط به گريد ويوست

اميدوارم كه بدردتون بخوره

[sinashokat]

آقا تروخدا یکی کمک کنه ما این برنامه رو درست کنیم. فقط با گریدویو نمی خوام. اون برنامه ای که خودم بالا گذاشتم می خوام بهش فقط یه سرچ اضافه شه.تشکر

[davood-ahmadi]

شما از کامپوننت MSFlexGridLib استفاده کردید که همراه با برنامه تون نبود و توانایی اجرای برنامه شما وجود ندارد مگر اینکه این کامپوننت را در اختیارمون بگذارید

[SamIran]

سلام! من که نمی تونستن کاراکترهای نمایش داده شده را بخوانم اما برات نوشتمش!


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lname, tel As String
Dim filenum As Integer
lname = TextBox1.Text
tel = TextBox2.Text
filenum = FreeFile()
FileOpen(filenum, "c:\Tel.txt", OpenMode.Append)
Write(filenum, lname)
Write(filenum, tel)
FileClose(filenum)
TextBox1.Clear()
TextBox2.Clear()
FileClose(filenum)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim lname, tel As String
Dim filenum As Integer
Dim i As Integer
i = 1
filenum = FreeFile()
FileOpen(filenum, "c:\Tel.txt", OpenMode.Input)
While Not EOF(filenum)
Input(filenum, lname)
Input(filenum, tel)
AxMSFlexGrid1.Rows = i + 1
AxMSFlexGrid1.Row = i
AxMSFlexGrid1.Col = 0
AxMSFlexGrid1.Text = lname
AxMSFlexGrid1.Col = 1
AxMSFlexGrid1.Text = tel
i = i + 1
End While
FileClose(filenum)
End Sub

Private Sub AxMSFlexGrid1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSFlexGrid1.Enter
AxMSFlexGrid1.Row = 0
AxMSFlexGrid1.Col = 0
AxMSFlexGrid1.Text = "Name"
AxMSFlexGrid1.Col = 1
AxMSFlexGrid1.Text = "Tel"
AxMSFlexGrid1.FixedCols = 0
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
AxMSFlexGrid1.Clear()
Dim lname, tel As String
Dim filenum As Integer
Dim i As Integer
i = 1
filenum = FreeFile()
FileOpen(filenum, "c:\Tel.txt", OpenMode.Input)
While Not EOF(filenum)
Input(filenum, lname)
Input(filenum, tel)
If TextBox3.Text = lname Then
AxMSFlexGrid1.Rows = i + 1
AxMSFlexGrid1.Row = i
AxMSFlexGrid1.Col = 0
AxMSFlexGrid1.Text = lname
AxMSFlexGrid1.Col = 1
AxMSFlexGrid1.Text = tel
i = i + 1
End If
End While
FileClose(filenum)
Catch
End Try
End Sub
End Class

[sinashokat]

آقای samiran خیلی ممنون .بالاخره شما به داد ما رسیدی .
خیلی خیلی سپاسگزارم