تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساء الخير ممكن افهم شئ في داله
#1
الداله هي لي عمل replace هذا هو الكود سؤالي كيف يمكنني تحويل رقم الي حرف علي علي سبيل المثال 
اذا كان التكست بوكس يحتوي علي رقم 1234
يظهر كلمه احمد بحيث يكون ان رقم 1 يرمز الي حرف أ ورقم 2 يرمز بحرف ح وهكذا ما هي الفكره او كيف يتم تنفذا شكرا مقدما

كود :
Public Function unloooouck(t As String) As String
            Dim flag As Boolean = Operators.CompareString(t, Nothing, False) <> 0
            If flag Then
                t = t.Replace("+i+1", ".com")
                t = t.Replace(",,681", "a")
                t = t.Replace(",,451", "b")
                t = t.Replace(",,271", "c")
                t = t.Replace(",,951", "d")
                t = t.Replace(",,931", "e")
                t = t.Replace(",,221", "f")
                t = t.Replace(",,131", "g")
                t = t.Replace(",,831", "h")
                t = t.Replace(",,551", "i")
                t = t.Replace(",,181", "j")
                t = t.Replace(",,471", "k")
                t = t.Replace(",,811", "l")
                t = t.Replace(",,741", "m")
                t = t.Replace(",,791", "n")
                t = t.Replace(",,151", "o")
                t = t.Replace(",,621", "p")
                t = t.Replace(",,441", "q")
                t = t.Replace(",,071", "r")
                t = t.Replace(",,241", "s")
                t = t.Replace(",,031", "t")
                t = t.Replace(",,091", "u")
                t = t.Replace(",,751", "v")
                t = t.Replace(",,201", "w")
                t = t.Replace(",,401", "x")
                t = t.Replace(",,901", "y")
                t = t.Replace(",,101", "z")
                t = t.Replace(",-153", "ـ")
                t = t.Replace(",-167", "ة")
                t = t.Replace(",-186", "آ")
                t = t.Replace(",-146", "ء")
                t = t.Replace(",-143", "ؤ")
                t = t.Replace(",-166", "ئ")
                t = t.Replace(",-188", "أ")
                t = t.Replace(",-131", "ا")
                t = t.Replace(",-171", "ب")
                t = t.Replace(",-271", "ت")
                t = t.Replace(",-291", "ث")
                t = t.Replace(",-231", "ج")
                t = t.Replace(",-681", "ح")
                t = t.Replace(",-771", "خ")
                t = t.Replace(",-331", "د")
                t = t.Replace(",-211", "ذ")
                t = t.Replace(",-761", "ر")
                t = t.Replace(",-871", "ز")
                t = t.Replace(",-981", "س")
                t = t.Replace(",-891", "ش")
                t = t.Replace(",-861", "ص")
                t = t.Replace(",-651", "ض")
                t = t.Replace(",-541", "ط")
                t = t.Replace(",-201", "ظ")
                t = t.Replace(",-501", "ع")
                t = t.Replace(",-601", "غ")
                t = t.Replace(",-801", "ف")
                t = t.Replace(",-161", "ق")
                t = t.Replace(",-181", "ك")
                t = t.Replace(",-341", "ل")
                t = t.Replace(",-401", "م")
                t = t.Replace(",-901", "ن")
                t = t.Replace(",-751", "ه")
                t = t.Replace(",-851", "و")
                t = t.Replace(",-361", "ي")
            End If
            Return t
        End Function
الرد
تم الشكر بواسطة:
#2
(13-11-19, 03:02 PM)abo3li8555 كتب : الداله هي لي عمل replace هذا هو الكود سؤالي كيف يمكنني تحويل رقم الي حرف علي علي سبيل المثال 
اذا كان التكست بوكس يحتوي علي رقم 1234
يظهر كلمه احمد بحيث يكون ان رقم 1 يرمز الي حرف أ ورقم 2 يرمز بحرف ح وهكذا ما هي الفكره او كيف يتم تنفذا شكرا مقدما

كود :
Public Function unloooouck(t As String) As String
            Dim flag As Boolean = Operators.CompareString(t, Nothing, False) <> 0
            If flag Then
                t = t.Replace("+i+1", ".com")
                t = t.Replace(",,681", "a")
                t = t.Replace(",,451", "b")
                t = t.Replace(",,271", "c")
                t = t.Replace(",,951", "d")
                t = t.Replace(",,931", "e")
                t = t.Replace(",,221", "f")
                t = t.Replace(",,131", "g")
                t = t.Replace(",,831", "h")
                t = t.Replace(",,551", "i")
                t = t.Replace(",,181", "j")
                t = t.Replace(",,471", "k")
                t = t.Replace(",,811", "l")
                t = t.Replace(",,741", "m")
                t = t.Replace(",,791", "n")
                t = t.Replace(",,151", "o")
                t = t.Replace(",,621", "p")
                t = t.Replace(",,441", "q")
                t = t.Replace(",,071", "r")
                t = t.Replace(",,241", "s")
                t = t.Replace(",,031", "t")
                t = t.Replace(",,091", "u")
                t = t.Replace(",,751", "v")
                t = t.Replace(",,201", "w")
                t = t.Replace(",,401", "x")
                t = t.Replace(",,901", "y")
                t = t.Replace(",,101", "z")
                t = t.Replace(",-153", "ـ")
                t = t.Replace(",-167", "ة")
                t = t.Replace(",-186", "آ")
                t = t.Replace(",-146", "ء")
                t = t.Replace(",-143", "ؤ")
                t = t.Replace(",-166", "ئ")
                t = t.Replace(",-188", "أ")
                t = t.Replace(",-131", "ا")
                t = t.Replace(",-171", "ب")
                t = t.Replace(",-271", "ت")
                t = t.Replace(",-291", "ث")
                t = t.Replace(",-231", "ج")
                t = t.Replace(",-681", "ح")
                t = t.Replace(",-771", "خ")
                t = t.Replace(",-331", "د")
                t = t.Replace(",-211", "ذ")
                t = t.Replace(",-761", "ر")
                t = t.Replace(",-871", "ز")
                t = t.Replace(",-981", "س")
                t = t.Replace(",-891", "ش")
                t = t.Replace(",-861", "ص")
                t = t.Replace(",-651", "ض")
                t = t.Replace(",-541", "ط")
                t = t.Replace(",-201", "ظ")
                t = t.Replace(",-501", "ع")
                t = t.Replace(",-601", "غ")
                t = t.Replace(",-801", "ف")
                t = t.Replace(",-161", "ق")
                t = t.Replace(",-181", "ك")
                t = t.Replace(",-341", "ل")
                t = t.Replace(",-401", "م")
                t = t.Replace(",-901", "ن")
                t = t.Replace(",-751", "ه")
                t = t.Replace(",-851", "و")
                t = t.Replace(",-361", "ي")
            End If
            Return t
        End Function
جزيتم خير تم الحل 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text.Replace("a", "aa").Replace("b", "bb").Replace("c", "cc")
    End Sub
الرد
تم الشكر بواسطة: علي نوري , asemshahen5
#3
مساء الخيرات

الي فهمته من سؤال حضرتك تريد تفهم شلون تشتغل الدالة وشلون يتم الاستبدال بمثال عملي

خليت الك الدالة بمثال موجود بالمرفقات

واذا عندك مشكلة بطريقة عمل الدالة هذا توضيح بسيط



الملفات المرفقة صورة/صور
   

.rar   WindowsApplication2.rar (الحجم : 76.93 ك ب / التحميلات : 8)
الرد
تم الشكر بواسطة: abo3li8555 , asemshahen5
#4
(13-11-19, 04:10 PM)علي نوري كتب : مساء الخيرات

الي فهمته من سؤال حضرتك تريد تفهم شلون تشتغل الدالة وشلون يتم الاستبدال بمثال عملي

خليت الك الدالة بمثال موجود بالمرفقات

واذا عندك مشكلة بطريقة عمل الدالة هذا توضيح بسيط


بارك الله الك وجعلك بخير
الرد
تم الشكر بواسطة: asemshahen5 , علي نوري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عندي خطا في الريجستري ممكن الحل عاصم النجار 0 13 منذ 4 ساعة مضت
آخر رد: عاصم النجار
  [مثال] ممكن طريقة نحويل exe الى apk وجزاكم الله خيرا rochdi191 11 390 07-07-20, 08:40 PM
آخر رد: rochdi191
  ممكن تعديل علي المشروع اليوم السابع 9 356 04-06-20, 02:38 AM
آخر رد: اليوم السابع
  السلام علسكم خطئ في كود زر التعديل ممكن مساعدة ahmedbezia 3 185 01-06-20, 06:06 PM
آخر رد: boudyonline
  استفسار بسيط ممكن المساعدة العطر الرايق 5 144 31-05-20, 02:44 AM
آخر رد: ابراهيم ايبو
  هل ممكن اربح من البرمجة ابو روضة 12 1,546 29-05-20, 01:05 PM
آخر رد: ابو روضة
  ممكن كود عمل برنامج يغير لي ايبي الجهاز في وقت احدده منه 2 125 20-05-20, 12:19 AM
آخر رد: منه
  ممكن شرح ايه هو ملفات ال xml منه 1 106 20-05-20, 12:17 AM
آخر رد: boudyonline
  [سؤال] ممكن اللينك بتاع div express منه 5 201 16-05-20, 11:42 PM
آخر رد: عبد العزيز البسكري
  ممكن كود Scroll في سلينيوم Chrome Driver developermedo111 2 163 13-05-20, 10:40 PM
آخر رد: developermedo111

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


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