جستجو از داخل یک فایل txt

[یاشار رضایی نسب]

سلام
من یه برنامه تو vb 2008 نوشتم حالا می خوام یک عددی رو تو textbox بنویسم بعد اونو تو یه فایل متنی جستجو کنه .
اگه راهنماییم کنید ممنون می شم .

[alimanam]

با سلام

از این نمونه کدی که واستون نوشتم استفاده کن .

موفق باشید ./

[یاشار رضایی نسب]

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

[alimanam]

با سلام


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

خوب این دیگه سوال کردن داره !!!! کنترل RichTextBox رو Invisiable کن بعد اگه فقط میخوای نتیجه جستجو رو به دست بیاری از تابع FindMyText کمک بگیر به این صورت که اگه رشته یا عدد مورد نظر یافت شد فلان کار رو انجام بده و اگرم پیدا نشه فلان پیغام رو نمایش بده ...

موفق باشید ./

[یاشار رضایی نسب]

خوب اخه من نمی خوام هنگام کار کاربر خودش بره فایلو باز کنه کی خوام فایل txt مستقیم به برنامه وصل باشه .

[alimanam]

خوب در رویدادی فرم یا یه باتون کدهای زیر بنویسین . واقعاً جای تعجبه که شما چرا نمیتونین 4 خط کد به این سادگی رو یک مقدار تغییر بدین تا به نتیجه دلخواه خودتون برسین !!!!!!!! :متفکر:

من در اینجا برای مثال data.txt رو به عنوان فایلی که قراره سرچ روش انجام بشه نوشتم شما هر آدرسی که دیگه حتماً بلدین رو جایگزین کنین .

Public Class Form1
Dim start As Integer = 0
Dim indexOfSearchText As Integer = 0

Public Function FindMyText(ByVal txtToSearch As String, ByVal searchStart As Integer, ByVal searchEnd As Integer) As Integer
If searchStart > 0 AndAlso searchEnd > 0 AndAlso indexOfSearchText >= 0 Then
rtb.Undo()
End If

Dim retVal As Integer = -1

If searchStart >= 0 AndAlso indexOfSearchText >= 0 Then
If searchEnd > searchStart OrElse searchEnd = -1 Then
indexOfSearchText = rtb.Find(txtToSearch, searchStart, searchEnd, RichTextBoxFinds.None)
If indexOfSearchText <> -1 Then
retVal = indexOfSearchText
MsgBox("Word found in : " & indexOfSearchText)
End If
End If
End If

Return retVal

End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rtb.LoadFile("data.txt", RichTextBoxStreamType.PlainText)
Dim startindex As Integer = 0


startindex = FindMyText("Dim", start, rtb.Text.Length)

If startindex >= 0 Then
rtb.SelectionColor = Color.Red
Dim endindex As Integer = txtSearch.Text.Length
rtb.Select(startindex, endindex)
start = startindex + endindex
End If
End Sub
End Class

موفق باشید ./

[Majid842]

با سلام !
خیلی حال کردم با برنامت من 1 هفته هستش که دارم دنبال همچین کدی میگردم !
حالا یک سوال دیگه من می خوام یک سری اطلاعات رو از Textکه بالای 500 خط داره رو بخونم روی بانک بریزم

کارایی نرم افزار اینکه میاد یک سری مشخصات سیستم ها رو که قبلا توسط نرم افزار everest ultimate که این نرم افزار میاد مشخصات سیستم رو میزه داخل یک text بد من می خوام یک سری اطلاعات از این فایل رو روی بانکم بریزم خود فایل رو هم میخوام بریزم
با تشکر!

[aminomidi]

سلام . خواهشا بیشتر از کد ها رو در قالب برنامه های ساده واسه ما افراد مبتدی بنویسید .ممنون میشم .