المشاركات : 273
المواضيع 29
الإنتساب : Sep 2012
السمعة :
12
الشكر: 105
تم شكره 271 مرات في 77 مشاركات
13-04-13, 03:50 PM
(آخر تعديل لهذه المشاركة : 13-04-13, 03:53 PM {2} بواسطة Abou Abdellah.)
سعود كتب :شوف اخي الكريم ضع متغير في موديول وصرحه بشكل عام يعني
كود :
public all as new stringbuilder
ثم بزر امر اسند له قيمة
كود :
all.append("textbox1.text)
ضع قيمة جديدة عند كل نقر زر
ستتعبا all بالبيانات
كيف ابحث عن نص معين مكتوب بـ textbox2.text
بسم الله
حتى يمكنك أن تب[SIZE=4]حث [SIZE=4]في نص (مكون من مجموعة) نصوص عن نص يجب أن يكون هناك فاصل بين تلك النصوص و بعضها لذا فقد ك[SIZE=4]ت[SIZE=4]بت لك هذا الكود عسى أن يلبي طلبك[/SIZE][/SIZE][/SIZE][/SIZE]
كود :
Imports System.Text
Public Class Form1
Public all As New StringBuilder
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
all.Append("|[" & TextBox1.Text & "]|")
End Sub
Public Shared Function GetMyArray(ByVal str As String, ByVal start As String, ByVal [end] As String) As String()
Dim out As New List(Of String)
If str.Contains(start) AndAlso str.Contains([end]) Then
Dim myStr As String = str.Substring(str.IndexOf(start), (str.LastIndexOf([end]) + [end].Length))
Do Until ((Not myStr.Contains(start)) OrElse (Not myStr.Contains([end])))
Dim toAdd As String = myStr.Substring(myStr.IndexOf(start), myStr.IndexOf([end]) + [end].Length)
myStr = myStr.Substring(toAdd.Length, myStr.Length - toAdd.Length)
toAdd = toAdd.Replace(start, "")
toAdd = toAdd.Replace([end], "")
out.Add(toAdd)
Loop
End If
Return out.ToArray()
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Array.IndexOf(GetMyArray(all.ToString(), "|[", "]|"), TextBox2.Text) <> -1 Then
MsgBox("Found!")
Else
MsgBox("Not Found!")
End If
End Sub
End Class
[SIZE=4]Button1 يضيف إلى الـString[SIZE=4]Builder المكتوب بداخل TextBox1
[SIZE=4]Button2 يبحث في ال[SIZE=4]ـStringBuilder عن المكتوب بداخل TextBox2[/SIZE]
بالتوفيق،
[/SIZE][/SIZE][/SIZE]
المشاركات : 273
المواضيع 29
الإنتساب : Sep 2012
السمعة :
12
الشكر: 105
تم شكره 271 مرات في 77 مشاركات
Aly El-Haddad كتب :بسم الله
حتى يمكنك أن تب[SIZE=4]حث [SIZE=4]في نص (مكون من مجموعة) نصوص عن نص يجب أن يكون هناك فاصل بين تلك النصوص و بعضها لذا فقد ك[SIZE=4]ت[SIZE=4]بت لك هذا الكود عسى أن يلبي طلبك[/SIZE][/SIZE][/SIZE][/SIZE]
كود :
Imports System.Text
Public Class Form1
Public all As New StringBuilder
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
all.Append("|[" & TextBox1.Text & "]|")
End Sub
Public Shared Function GetMyArray(ByVal str As String, ByVal start As String, ByVal [end] As String) As String()
Dim out As New List(Of String)
If str.Contains(start) AndAlso str.Contains([end]) Then
Dim myStr As String = str.Substring(str.IndexOf(start), (str.LastIndexOf([end]) + [end].Length))
Do Until ((Not myStr.Contains(start)) OrElse (Not myStr.Contains([end])))
Dim toAdd As String = myStr.Substring(myStr.IndexOf(start), myStr.IndexOf([end]) + [end].Length)
myStr = myStr.Substring(toAdd.Length, myStr.Length - toAdd.Length)
toAdd = toAdd.Replace(start, "")
toAdd = toAdd.Replace([end], "")
out.Add(toAdd)
Loop
End If
Return out.ToArray()
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Array.IndexOf(GetMyArray(all.ToString(), "|[", "]|"), TextBox2.Text) <> -1 Then
MsgBox("Found!")
Else
MsgBox("Not Found!")
End If
End Sub
End Class
[SIZE=4]Button1 يضيف إلى الـString[SIZE=4]Builder المكتوب بداخل TextBox1
[SIZE=4]Button2 يبحث في ال[SIZE=4]ـStringBuilder عن المكتوب بداخل TextBox2[/SIZE]
بالتوفيق،
[/SIZE][/SIZE][/SIZE]
و طبعاً يمكنك أستبدال البدايات و النهايات (الفواصل) بأي فواصل أخرى
المشاركات : 30
المواضيع 0
الإنتساب : Oct 2018
السمعة :
7
الشكر: 0
تم شكره 68 مرات في 34 مشاركات
(13-04-13, 01:55 PM)سعود كتب : (13-04-13, 10:58 AM)Sajad كتب : السلام عليكم
انظر الى هذا الكود:
PHP كود :
Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"} If arr.Contains(TextBox3.Text) Then MessageBox.Show("Found") Else MessageBox.Show("Not Found") End If
بالتوفيق ان شاءالله
لكنها تاتي حتى لو الكلمة ناقصة مثلا لو بحثت عن ahm ويوجد ahmed سيعيد true
أخي سعود
أنا متأكد أنك لم تجرب المثال الذي كتبه أخي Sajad
استعمال Contains مع الـ Array يختلف عن استعمالها مع الـ String
لأنه يتعامل مع عناصر المصفوفة كـ Object وليس نصاً
فعند استعمالها مع المصفوفة كما في المثال السابق فإنه لن يجد [ahm] كما تعتقد لأنه حقيقة لا يوجد عنصر [ahm]
نرجو الاستفادة و السلام.
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
(05-10-18, 10:10 PM)saoud2 كتب : (13-04-13, 01:55 PM)سعود كتب : (13-04-13, 10:58 AM)Sajad كتب : السلام عليكم
انظر الى هذا الكود:
PHP كود :
Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"} If arr.Contains(TextBox3.Text) Then MessageBox.Show("Found") Else MessageBox.Show("Not Found") End If
بالتوفيق ان شاءالله
لكنها تاتي حتى لو الكلمة ناقصة مثلا لو بحثت عن ahm ويوجد ahmed سيعيد true
أخي سعود
أنا متأكد أنك لم تجرب المثال الذي كتبه أخي Sajad
استعمال Contains مع الـ Array يختلف عن استعمالها مع الـ String
لأنه يتعامل مع عناصر المصفوفة كـ Object وليس نصاً
فعند استعمالها مع المصفوفة كما في المثال السابق فإنه لن يجد [ahm] كما تعتقد لأنه حقيقة لا يوجد عنصر [ahm]
نرجو الاستفادة و السلام.
هل قرأت تاريخ آخر مشاركة قبل ردك؟؟؟
2013
على كل حال حاليا لست مهتم بالبرمجة
بارك الله فيك
|