تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] التعديد على الكود
#1
اهلا بكم

كود البحث في ملف txt

الكود شغال تمام بس في عملية البحث يكون بطي جدا

ملف ال txt  يتون من 1000 سطر

مثال

كود :
108FB010
10AD2814
12AT096
12AT111
13AT162
13DNI400
13HS1696
13RF202



وهذا الكود

كود :
      'read info from the file'
       Dim objReader As New System.IO.StreamReader("C:\ww.txt")
       Dim strTextFileInfo() As String 'an array of strings for each line'
       Dim arrCounter As Integer = 0   'counter for the array'
       Dim strTextToSearch As String = String.Empty    'text to saerch'

       'read all lines'
       Do While objReader.Peek <> -1
           'redim the array with the needet elements'
           ReDim Preserve strTextFileInfo(arrCounter)
           'input the info'
           strTextFileInfo(arrCounter) = objReader.ReadLine
           'increase the elements'
           arrCounter = arrCounter + 1
       Loop
       'enter the text to search'
       strTextToSearch = TextBox1.Text
       'search all elements for the string'
       For i As Integer = 0 To arrCounter - 1
           If strTextFileInfo(i).ToLower.Contains(strTextToSearch.ToLower) Then
               'display the found elements'
               Label7.Text = strTextFileInfo(i)

           End If
       Next


اي عبارة تنكتتب في  TextBox1.Text

يتم البحث عنها والنتيجه تكون Label7.Text


اتمنى المساعده لتكون عملية البحث سريعه وبارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#2
طيب جرب هذه الطريقة
PHP كود :
Label7.Text ""

Dim lines As String() = IO.File.ReadAllLines("C:\ww.txt")

Dim contain As Boolean lines.Contains(TextBox1.TextStringComparer.OrdinalIgnoreCase)
If 
contain Then Label7.Text TextBox1.Text 
الرد }}}
تم الشكر بواسطة: dubai.eig
#3
(22-04-16, 03:16 PM)derham كتب : طيب جرب هذه الطريقة
PHP كود :
Label7.Text ""

Dim lines As String() = IO.File.ReadAllLines("C:\ww.txt")

Dim contain As Boolean lines.Contains(TextBox1.TextStringComparer.OrdinalIgnoreCase)
If 
contain Then Label7.Text TextBox1.Text 

شكرا علي الرد


جربت الكود بس ما طلع النتيجه بعد البحث
الرد }}}
تم الشكر بواسطة:
#4
مشكوررررررررررجداددداااااا

شكرااااااااااااااااااااااااااااااااا
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] ماهوا الكود في تعريب DataGridView1 ؟ Microformt 5 348 13-12-23, 07:35 PM
آخر رد: Microformt
Rainbow [كود] المشروع جاهز فقط اريد الكود الذي يظهر لي البحث لموظف واحد محمد مسافر 8 1,267 25-01-23, 11:40 PM
آخر رد: Taha Okla
  اريد كود بلدر او بانى الكود سلام و محبه 0 971 27-12-20, 10:40 PM
آخر رد: سلام و محبه
  كيفية جعل المستخدم يستعرض اي ملف قاعدة بيانات اكسيس على جهازه مع امكانية كتابة الكود ggtt17121985 0 1,624 09-11-20, 12:03 AM
آخر رد: ggtt17121985
  [مشروع] تحويل الكود الى ملف تنفيذي[اكتب موديول كمثال] سعود 12 4,405 31-05-20, 04:03 PM
آخر رد: سعود
  ممكن الكود ده ؟ ahmedwassem5050 1 1,629 22-03-20, 11:11 PM
آخر رد: mrfenix93
  [مشروع] تلوين الكود Syntax Highlighting بواسطة أداة FastColoredTextBox عابر سبيل 2 13 8,814 07-06-19, 05:12 PM
آخر رد: abu.hanen4u
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 10 12,714 07-11-18, 02:36 AM
آخر رد: عماد السيد
  [مشروع] محرر قصاصات الكود للفيجوال بيسك 2008 Mohamad Anan 3 2,646 31-01-18, 02:09 PM
آخر رد: YousefOkasha

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم