تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] البحث في مربع النص
#1
السلام عليكم ورحمة الله و بركاته
إخواني أنا أقوم بعمل برنامج بالفيجوال بيسك 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 كل الأحرف التي أبحث عنها أم أن هذا غير ممكن وجزاكم الله خيرا .

وهل يمكن وضع ما أريد في قاعدة بيانات وأخذ المتغير منها ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم , هذا تعديل الكود :

PHP كود :
Dim StartPosCounter1 As IntegerCounter2 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.TextFindString(Counter2))
    
        If 
StartPos 0 Then
           Text1
.SelStart StartPos 1
           Text1
.SelLength Len(FindString(Counter2))
           
Text1.SelText "" ReplaceText
        End 
If
    
    
Next
    
Next 
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#3
الله يكرمك دنيا وآخرة ، ويزيدك من العلم كله إن شاء الله
ربنا يوفقك في حياتك
الكود شغال مية في المية وحللي مشكلة كبيرة
وادعيلي بالله عليك بالهداية والتوفيق
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , Ahmed_Mansoor
#4
أهلا أخي الكريم ، جزاك الله كل خير ، شكرا جزيلا لك على كلماتك الطيبه ، الله يهدينا واياك ويوفقك دنيا وآخره ، بالنسبه بصراحه يبدو أنني كنت مستعجلا عندما عدلته الكود سيقوم بالمهمه ولكن سيكون أدائه أطول ، لذلك عدلته الان بالتعديل الذي يجب أن يكون الاول :

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.TextFindString(Counter),ReplaceText)
Next 
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , عبد العزيز البسكري
#5
جزاكم الله خيرا كثيرا ، شجعتني أن اطلب منك طلبا آخر ، وهو هل يمكن الإضافة للكود ، بحيث يستبدل هذه الأحرف بنجوم ، و يستبدل أي حرف غيرها برمز آخر ، لأنني كتبت الكود الخاص بك ثم كتبت باقي الحروف كلها مع تغيير حرف الاستبدال بما أريد ..
الرد }}}}
تم الشكر بواسطة:
#6
أهلا أخي الكريم , هذا تعديل الكود ليلبي الطلب الجديد :

PHP كود :
Dim Counter As Integer
Dim FindString1
(5), FindString2(3), ReplaceText1ReplaceText2 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.TextFindString1(Counter), ReplaceText1)
Next

For Counter 0 To 3
    Text1
.Text Replace$(Text1.TextFindString2(Counter), ReplaceText2)
Next 
الرد }}}}
#7
السلام عليكم و رحمة الله و بركاته
أخي العزيز ، جزاك الله خيرا علي تعليمك لي ، ولكن ..
قصدت أن يعدل الكود بحيث يستبدل ما تمت كتابته في ال string بنجوم ، وأي حرف آخر خارج ما تم كتابته يستبدل ب #
يعني لدينا 28 حرف في الأبجدية أنا سأقول له بدل ( أ ) و ( ب ) بنجمة و أي حرف أخر يقابلك في مستند النص أبدله ب  #
هل هذا ممكن ؟؟؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 80 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,040 29-12-15, 02:57 AM
آخر رد: awidan76
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 434 03-07-15, 05:54 PM
آخر رد: dlshad24
  [vb6.0] سوال حول البحث hadeel 6 565 02-02-15, 11:14 PM
آخر رد: مصطفى
  [vb6.0] سوال حول البحث عن الاسم الثلاثي او الرباعي hadeel 1 607 31-01-15, 08:21 PM
آخر رد: Amir_alzubidy
  ممكن حل مشكلة : البحث في قاعدة بيانات mysql في vb6 مكيد0 3 904 16-11-14, 02:04 PM
آخر رد: administrator
  [سؤال] البحث بكلمة من الجملة amrelgadaa 0 429 13-11-14, 11:22 AM
آخر رد: amrelgadaa
  تلوين كلمة البحث sameerhesen 13 2,086 26-08-13, 08:57 AM
آخر رد: VB_Coder
  افضل طرق البحث بـ ado derbaliammar 4 928 21-08-13, 01:18 PM
آخر رد: AGASHE
  سؤال عن اداة النص AhmedSamir3 16 1,617 19-08-13, 09:44 PM
آخر رد: AGASHE

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


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