لا يضيف لاسمه المستعار رمز الا مبرمج ذكي

لا يضيف لاسمه المستعار رمز الا مبرمج ذكي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : لا يضيف لاسمه المستعار رمز الا مبرمج ذكي (/showthread.php?tid=55492)

لا يضيف لاسمه المستعار رمز الا مبرمج ذكي - justforit - 02-11-25

السلام عليكم ورحمة الله و بركاته

وجدت ضمن ملف نصي اسم Mohammedطبعا ضمن اسماء كثيرة متوقعة.

فبحثت عن هذا الاسم في الصفحات المصدر ووجدت الاسم هكذا

(Ahmed+Ahmed=Mohammed)

عملت كود يجلب الاسماء مع وقت الانتساب والفاصل بينهم علامة (=)

طبعا قلت(كتبت) مبرمج ذكي لانه اتعبني Smile

فما هي الطريقة المثلى لكشف هذا الامر بالكود يعني اريد معرفة الرمز الموجود بالاسم من قبل والرمز اللذي اضيفه بالكود

مثلا الفلتر او العبارة التالية لامشكلة فيها

saud=2025

ali=2026

كذا ممتاز لكن:

saud+ali=any

هذي مشكلة لان لو طبقت الكود سيكون الاسم:

saud+ali

و any سيكون التاريخ (مثلا)

آسف على الاطالة

شكر الله لكم جميعا

RE: لا يضيف لاسمه المستعار رمز الا مبرمج ذكي - Zuhare - 02-11-25

هل هذا المطلوب

كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim arr As New ArrayList

    Dim users = File.ReadAllText("textfile.txt")

    For Each m As Match In Regex.Matches(users, "(.*)=(.*)")

        arr.Add(New With {

                .UserName = Regex.Replace(m.Groups(1).Value, "\W", " "),

                .RegDate = m.Groups(2).Value})

    Next

    Me.DataGridView1.DataSource = arr

End Sub

يمكن استبدال الحرف W بالرمز + اذا كان الهدف فقط حذف الرمز +

RE: لا يضيف لاسمه المستعار رمز الا مبرمج ذكي - justforit - 02-11-25

(02-11-25, 11:13 PM)Zuhare كتب : هل هذا المطلوب

كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim arr As New ArrayList Dim users = File.ReadAllText("textfile.txt") For Each m As Match In Regex.Matches(users, "(.*)=(.*)") arr.Add(New With { .UserName = Regex.Replace(m.Groups(1).Value, "\W", " "), .RegDate = m.Groups(2).Value}) Next Me.DataGridView1.DataSource = arr End Sub
يمكن استبدال الحرف W بالرمز + اذا كان الهدف فقط حذف الرمز +

بارك الله فيك .