السلام عليكم
كود:
PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
Dim sql AsString
sql = "select E , A from dic where E like ('" + Trim(TextBox2.Text) + "%');"
If DS.Tables.Count = 0 ThenExit Sub
Dim DV AsNewDataView(DS.Tables("Dic"))
DV.RowFilter = "E like '" & TextBox2.Text & "*'"
DV.Sort = "E"
Me.DataGridView1.DataMember = ""
DataGridView1.DataSource = Nothing
DataGridView1.DataSource = DV
con.Close()
Catch ex AsException
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
con.Close()
EndTry
EndSubللغة الاخرى
كود:
PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Try
Dim sql AsString
sql = "select E , A from dic where A like ('" + Trim(TextBox1.Text) + "%');"
If DS.Tables.Count = 0 ThenExit Sub
Dim DV AsNewDataView(DS.Tables("Dic"))
DV.RowFilter = "A like '" & TextBox1.Text & "*'"
DV.Sort = "A"
Me.DataGridView1.DataMember = ""
DataGridView1.DataSource = Nothing
DataGridView1.DataSource = DV
con.Close()
Catch ex AsException
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
con.Close()
EndTry
EndSub
EndClassاخوان هذا الكود بالفجول بيسك دوت نت هو عبارة عن كود البحث في قامس يحتوي على قاعدة بيانات مكونة من حقلين كلمات انكليزي وعربي اي هو يقارن ما في مربع النص على المقابل له في قاعدة البيانات
ارغب في تعديل الكود لتصبح وظيفته هي اذا مثلا اكتب في مربع النص حرف او حرفين او مقطع من الحروف يبحث عن كل الكلمات التي تنتهي وااكد تنتهي بهذا المقطع ويظهرها لي مع ترجمتها
علما اريد اذا امكن هذا التعديل للكلمات العربية والانكليزية في الكودين اعلاه لانه كما تعرفون اتجاه الكتابة يختلف
واكون شاكر لكم ولهذا المنتديات الجميلة
تحياتي
هذا رابط الكود المصدري للبرنامج
محتاج التعديل ضروري رجاءا
اريد ان يعطيني الكلمات التي تبدا لا بل التي تنتهي بهذا الحرف او المقطع تنتهي يعني نهاية الكلمة وليس بدايتها
اخوان لتوضيح ما اريد اكثر هو تعديل الكود باسلوب معالجة النصوص ( تيكست بروسيسنك) وهو شيء بسيط حسب خبرتي بالسي والفجول العادي ولكني لا اتقن لغة الدوت نيت حاليا وحسب توقعي التعديل لا يتجاوز السطر او السطرين يعني عبارة شرط او هكذا شيء
تحياتي مع انتظار اجابتكم رجاءا
