تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريقة التعامل مع السلاسل والنصوص
#1

.rar   Pro1.rar (الحجم : 71.55 ك ب / التحميلات : 31)
السلام عليكم ورحمتة اللة وبركاتة

ارجو المساعد بالتعديل علي الكود

لدي المتغير mytxt وهو عبارة عن جدول بيانات مستخدمين
في الزر الاول قمت بفلترت اسماء المستخدمين فقط ووضعهم بداخل ال ComboBox1
لكن المشكلة هي عندما يزيد عدد بيانات المستخدمين بداخل المتغير mytxt الي 300
البرنامج لايستجيب مع العلم ان العدد المرفق الان في المثال بيانات 93 مستخدم حيث وان
العدد قد يصل الي اكثر من 2000 .

الشي الثاني اريد طباعة بيانات كل مستخدم علي ListView1
الرد
تم الشكر بواسطة:
#2
ارجو المســــــــــــــــاعدة Angry
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

عملت لك دالة خاصة لمشروعك وضيفتها تحويل هذه السلسة النصية الخاصة إلى Datatable لكي يسهل التعامل مع بيانتها في البحث بسهول باستخدام Linq
كود :
#Region " StringToDatatable "
   Function StringToDatatable(ByVal s As String) As DataTable
       Dim mDataTable As New DataTable
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("id"), New DataColumn("customer"), New DataColumn("name"), New DataColumn("actual-profile")})
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("password"), New DataColumn("shared-users"), New DataColumn("wireless-psk")})
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("wireless-enc-key"), New DataColumn("wireless-enc-algo"), New DataColumn("last-seen")})
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("active"), New DataColumn("incomplete"), New DataColumn("disabled")})
       Dim q =
           From x As String
           In (From x As System.Text.RegularExpressions.Match In System.Text.RegularExpressions.Regex.Matches(s, "(?<=!re).+?(?=!)") Select x.Value)
           Select New user With {
               .id = System.Text.RegularExpressions.Regex.Match(x, "(?<==.id=).*?(?==)").Value,
               .customer = System.Text.RegularExpressions.Regex.Match(x, "(?<==customer=).*?(?==)").Value,
               .name = System.Text.RegularExpressions.Regex.Match(x, "(?<==name=).*?(?==)").Value,
               .actual_profile = System.Text.RegularExpressions.Regex.Match(x, "(?<==actual-profile=).*?(?==)").Value,
               .password = System.Text.RegularExpressions.Regex.Match(x, "(?<==password=).*?(?==)").Value,
               .shared_users = System.Text.RegularExpressions.Regex.Match(x, "(?<==shared-users=).*?(?==)").Value,
               .wireless_psk = System.Text.RegularExpressions.Regex.Match(x, "(?<==wireless-psk=).*?(?==)").Value,
               .wireless_enc_key = System.Text.RegularExpressions.Regex.Match(x, "(?<==wireless-enc-key=)*?(?==)").Value,
               .wireless_enc_algo = System.Text.RegularExpressions.Regex.Match(x, "(?<==wireless-enc-algo=).*?(?==)").Value,
               .last_seen = System.Text.RegularExpressions.Regex.Match(x, "(?<==last-seen=).*?(?==)").Value,
               .active = System.Text.RegularExpressions.Regex.Match(x, "(?<==active=).*?(?==)").Value,
               .incomplete = System.Text.RegularExpressions.Regex.Match(x, "(?<==incomplete=).*?(?==)").Value,
               .disabled = System.Text.RegularExpressions.Regex.Match(x, "(?<==disabled=).*").Value
           }
       For Each u As user In q
           mDataTable.Rows.Add(u.id, u.customer, u.name, u.actual_profile, u.password, u.shared_users, u.wireless_psk, u.wireless_enc_key,
                       u.wireless_enc_algo, u.last_seen, u.active, u.incomplete, u.disabled)
       Next
       Return mDataTable
   End Function
   Structure user
       Dim id As String
       Dim customer As String
       Dim name As String
       Dim actual_profile As String
       Dim password As String
       Dim shared_users As String
       Dim wireless_psk As String
       Dim wireless_enc_key As String
       Dim wireless_enc_algo As String
       Dim last_seen As String
       Dim active As String
       Dim incomplete As String
       Dim disabled As String
   End Structure
#End Region

جربها بفورم جديد في زر وأداة داتاجريدفيو
كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim dt As DataTable = StringToDatatable(mytxt)
       Me.DataGridView1.DataSource = dt

   End Sub

والأفضل أن تضع البيانات النصية في ملف نصي وليس في الكود
الرد
تم الشكر بواسطة: saad mahyoub
#4
(25-09-16, 11:50 PM)ممدوح كتب : وعليكم السلام ورحمة الله وبركاته

عملت لك دالة خاصة لمشروعك وضيفتها تحويل هذه السلسة النصية الخاصة إلى Datatable لكي يسهل التعامل مع بيانتها في البحث بسهول باستخدام Linq
كود :
#Region " StringToDatatable "
   Function StringToDatatable(ByVal s As String) As DataTable
       Dim mDataTable As New DataTable
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("id"), New DataColumn("customer"), New DataColumn("name"), New DataColumn("actual-profile")})
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("password"), New DataColumn("shared-users"), New DataColumn("wireless-psk")})
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("wireless-enc-key"), New DataColumn("wireless-enc-algo"), New DataColumn("last-seen")})
       mDataTable.Columns.AddRange(New DataColumn() {New DataColumn("active"), New DataColumn("incomplete"), New DataColumn("disabled")})
       Dim q =
           From x As String
           In (From x As System.Text.RegularExpressions.Match In System.Text.RegularExpressions.Regex.Matches(s, "(?<=!re).+?(?=!)") Select x.Value)
           Select New user With {
               .id = System.Text.RegularExpressions.Regex.Match(x, "(?<==.id=).*?(?==)").Value,
               .customer = System.Text.RegularExpressions.Regex.Match(x, "(?<==customer=).*?(?==)").Value,
               .name = System.Text.RegularExpressions.Regex.Match(x, "(?<==name=).*?(?==)").Value,
               .actual_profile = System.Text.RegularExpressions.Regex.Match(x, "(?<==actual-profile=).*?(?==)").Value,
               .password = System.Text.RegularExpressions.Regex.Match(x, "(?<==password=).*?(?==)").Value,
               .shared_users = System.Text.RegularExpressions.Regex.Match(x, "(?<==shared-users=).*?(?==)").Value,
               .wireless_psk = System.Text.RegularExpressions.Regex.Match(x, "(?<==wireless-psk=).*?(?==)").Value,
               .wireless_enc_key = System.Text.RegularExpressions.Regex.Match(x, "(?<==wireless-enc-key=)*?(?==)").Value,
               .wireless_enc_algo = System.Text.RegularExpressions.Regex.Match(x, "(?<==wireless-enc-algo=).*?(?==)").Value,
               .last_seen = System.Text.RegularExpressions.Regex.Match(x, "(?<==last-seen=).*?(?==)").Value,
               .active = System.Text.RegularExpressions.Regex.Match(x, "(?<==active=).*?(?==)").Value,
               .incomplete = System.Text.RegularExpressions.Regex.Match(x, "(?<==incomplete=).*?(?==)").Value,
               .disabled = System.Text.RegularExpressions.Regex.Match(x, "(?<==disabled=).*").Value
           }
       For Each u As user In q
           mDataTable.Rows.Add(u.id, u.customer, u.name, u.actual_profile, u.password, u.shared_users, u.wireless_psk, u.wireless_enc_key,
                       u.wireless_enc_algo, u.last_seen, u.active, u.incomplete, u.disabled)
       Next
       Return mDataTable
   End Function
   Structure user
       Dim id As String
       Dim customer As String
       Dim name As String
       Dim actual_profile As String
       Dim password As String
       Dim shared_users As String
       Dim wireless_psk As String
       Dim wireless_enc_key As String
       Dim wireless_enc_algo As String
       Dim last_seen As String
       Dim active As String
       Dim incomplete As String
       Dim disabled As String
   End Structure
#End Region

جربها بفورم جديد في زر وأداة داتاجريدفيو
كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim dt As DataTable = StringToDatatable(mytxt)
       Me.DataGridView1.DataSource = dt

   End Sub

والأفضل أن تضع البيانات النصية في ملف نصي وليس في الكود

الف شكرر لك اخي العزيز
الرد
تم الشكر بواسطة:
#5
(26-09-16, 12:06 AM)HASAN6.0 كتب : كود غريب !!!
على العموم فقط غير الـFunction Rad الى التالي
PHP كود :
Public Function Rad() As List(Of String)
 
       ' الطريقة الاولة 
        Dim out As New List(Of String)

        Dim xx As String : xx = "=name="
        Dim yy As String : yy = "="

        For Each i As Match In Regex.Matches(txt, xx & "(?<value>.*?)" & yy)
            out.Add(i.Groups("value").Value)
        Next

        Return out
    End Function 
طبعاً في اعلى الكلاس اكتب
PHP كود :
Imports System.Text.RegularExpressions 

مشروعك بالمرفقات 

Wink
الف شكر اخي حسين
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب طريقة عمل فلتر للمعلومات jassim316 0 3 منذ 54 دقيقة مضت
آخر رد: jassim316
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 93 منذ 4 ساعة مضت
آخر رد: elgokr
Rainbow [VB.NET] أسرع طريقة للتحقق من هل الجدول فارغ sniperjawadino 7 267 17-02-19, 02:59 PM
آخر رد: sniperjawadino
  [VB.NET] ماهي أفضل طريقة لتخزين رقم والنداء عليه في كل مرة sniperjawadino 9 221 12-02-19, 04:20 PM
آخر رد: princelovelorn
  طريقة عمل زر تراجع عن الامر undo احمد خطاب 0 65 11-02-19, 08:22 AM
آخر رد: احمد خطاب
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 2 163 30-01-19, 05:51 PM
آخر رد: bidaya
  [VB.NET] طريقة عرض السجلات بطريقة افقية larbihamri 24 1,012 30-01-19, 11:03 AM
آخر رد: alshandodi
  طريقة توزيع الطلاب على لجان الاختبارات جيولوجي مبتدئ 2 158 27-01-19, 10:55 PM
آخر رد: جيولوجي مبتدئ
  ممكن طريقة انهاء يومية للكاشير atef_020 14 473 22-01-19, 03:58 AM
آخر رد: asemshahen5
  طريقة عرض قيمتين فى تكست بوكس واحد سمير جمال 1 128 16-01-19, 01:58 PM
آخر رد: حريف برمجة

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


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