منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] البحث في مربع النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] البحث في مربع النص (/showthread.php?tid=16157)

البحث في مربع النص - المعتصم بالله جمال الدين - 15-06-16

السلام عليكم ورحمة الله و بركاته
إخواني أنا أقوم بعمل برنامج بالفيجوال بيسك 6 ولدي كود يبحث في مربع النص ويستبدل أحرف معينة بنجوم ، وهذا هو الكود
كود :
Private Sub Timer1_Timer()
Dim StartPos, Counter As Integer
Dim FindString, ReplaceText As String
FindString = "أَ"
ReplaceText = "\"
For Counter = 1 To Len(Text1.Text)
StartPos = InStr(Text1.Text, FindString)
If StartPos > 0 Then
Text1.SelStart = StartPos - 1
Text1.SelLength = Len(FindString)
Text1.SelText = "" + ReplaceText
End If
Next
Timer1.Interval = 0
End Sub

الآن أنا أريد أن أغير كل الحروف الساكنة بنجوم ، فهل يلزم أن أكرر الكود 28 مرة ، أم أن هناك طريقة أسهل ؟؟
بمعني أقرب ، هل يمكن أن يعدل الكود بحيث أكتب في خانة find string كل الأحرف التي أبحث عنها أم أن هذا غير ممكن وجزاكم الله خيرا .
وهل يمكن وضع ما أريد في قاعدة بيانات وأخذ المتغير منها ؟؟؟

RE: البحث في مربع النص - Ahmed_Mansoor - 16-06-16

وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم , هذا تعديل الكود :

PHP كود :
Dim StartPos, Counter1 As Integer, Counter2 As Integer
Dim FindString(5), ReplaceText As String

FindString(0) = "أَ"
FindString(1) = "ب"
FindString(2) = "ج"
FindString(3) = "ك"
FindString(4) = "ة"
FindString(5) = "م"

ReplaceText = "*"

For Counter1 = 1 To Len(Text1.Text)
    
    For Counter2 = 0 To 5
    
        StartPos = InStr(Text1.Text, FindString(Counter2))
    
        If StartPos > 0 Then
           Text1.SelStart = StartPos - 1
           Text1.SelLength = Len(FindString(Counter2))
           Text1.SelText = "" + ReplaceText
        End If
    
    Next
    
Next 


RE: البحث في مربع النص - المعتصم بالله جمال الدين - 17-06-16

الله يكرمك دنيا وآخرة ، ويزيدك من العلم كله إن شاء الله
ربنا يوفقك في حياتك
الكود شغال مية في المية وحللي مشكلة كبيرة
وادعيلي بالله عليك بالهداية والتوفيق

RE: البحث في مربع النص - Ahmed_Mansoor - 17-06-16

أهلا أخي الكريم ، جزاك الله كل خير ، شكرا جزيلا لك على كلماتك الطيبه ، الله يهدينا واياك ويوفقك دنيا وآخره ، بالنسبه بصراحه يبدو أنني كنت مستعجلا عندما عدلته الكود سيقوم بالمهمه ولكن سيكون أدائه أطول ، لذلك عدلته الان بالتعديل الذي يجب أن يكون الاول :

PHP كود :
Dim Counter As Integer
Dim FindString(5), ReplaceText As String

FindString(0) = "أَ"
FindString(1) = "ب"
FindString(2) = "ج"
FindString(3) = "ك"
FindString(4) = "ة"
FindString(5) = "م"

ReplaceText = "*"

For Counter = 0 To 5
        Text1.Text = Replace$(Text1.Text, FindString(Counter),ReplaceText)
Next 


RE: البحث في مربع النص - المعتصم بالله جمال الدين - 17-06-16

جزاكم الله خيرا كثيرا ، شجعتني أن اطلب منك طلبا آخر ، وهو هل يمكن الإضافة للكود ، بحيث يستبدل هذه الأحرف بنجوم ، و يستبدل أي حرف غيرها برمز آخر ، لأنني كتبت الكود الخاص بك ثم كتبت باقي الحروف كلها مع تغيير حرف الاستبدال بما أريد ..

RE: البحث في مربع النص - Ahmed_Mansoor - 18-06-16

أهلا أخي الكريم , هذا تعديل الكود ليلبي الطلب الجديد :

PHP كود :
Dim Counter As Integer
Dim FindString1(5), FindString2(3), ReplaceText1, ReplaceText2 As String

FindString1(0) = "أَ"
FindString1(1) = "ب"
FindString1(2) = "ج"
FindString1(3) = "ك"
FindString1(4) = "ة"
FindString1(5) = "م"

ReplaceText1 = "*"

FindString2(0) = "ه"
FindString2(1) = "ن"
FindString2(2) = "س"
FindString2(3) = "ي"

ReplaceText2 = "#"

For Counter = 0 To 5
    Text1.Text = Replace$(Text1.Text, FindString1(Counter), ReplaceText1)
Next

For Counter = 0 To 3
    Text1.Text = Replace$(Text1.Text, FindString2(Counter), ReplaceText2)
Next 


RE: البحث في مربع النص - المعتصم بالله جمال الدين - 21-06-16

السلام عليكم و رحمة الله و بركاته
أخي العزيز ، جزاك الله خيرا علي تعليمك لي ، ولكن ..
قصدت أن يعدل الكود بحيث يستبدل ما تمت كتابته في ال string بنجوم ، وأي حرف آخر خارج ما تم كتابته يستبدل ب #
يعني لدينا 28 حرف في الأبجدية أنا سأقول له بدل ( أ ) و ( ب ) بنجمة و أي حرف أخر يقابلك في مستند النص أبدله ب  #
هل هذا ممكن ؟؟؟