تقييم الموضوع :
  • 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 حرف في الأبجدية أنا سأقول له بدل ( أ ) و ( ب ) بنجمة و أي حرف أخر يقابلك في مستند النص أبدله ب  #
هل هذا ممكن ؟؟؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هنالك امكانية لطباعة النص داخل الداتا ريبورت بشكل عامودي mohammed_atallah 2 700 11-09-22, 06:00 PM
آخر رد: mohammed_atallah
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
  [سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية awidan76 47 11,084 30-10-19, 08:57 AM
آخر رد: Ahmed_Mansoor
  افضل طرق البحث بـ ado derbaliammar 6 5,973 12-08-19, 02:52 AM
آخر رد: ahmed.m
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,169 07-11-18, 05:53 PM
آخر رد: gedo
  المساعدة - في تجزئة النص hamedi2727 7 3,293 19-12-17, 07:20 PM
آخر رد: Amir_Alzubidy
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 2,144 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 3,266 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 3,776 29-12-15, 02:57 AM
آخر رد: awidan76
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 2,740 03-07-15, 05:54 PM
آخر رد: dlshad24

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


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