تقييم الموضوع :
  • 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 , علي نوري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن تحويل الكود من سي شارب لي فيجوال بيسك اليوم السابع 2 114 24-02-21, 05:57 PM
آخر رد: الماجيك مسعد
  ممكن التعديل في كود البحث المرفق أبووسم 0 40 24-02-21, 01:03 AM
آخر رد: أبووسم
  ممكن كود عرض ال URL المفتوحه على متصفح جوجل كروم او فيرفوكس ahmed112001 1 91 17-02-21, 08:48 PM
آخر رد: Basil Abdallah
  هل ممكن أضع pdf في البرنامج نفسه..يقدر المستخدم يقرأه فقط عند فتح البرنامج؟ Alziny 2 117 16-02-21, 11:30 PM
آخر رد: Alziny
  [سؤال] كيف ممكن اعدل في Crystal Reports dubai.eig 2 109 16-02-21, 07:31 PM
آخر رد: dubai.eig
  [سؤال] ممكن مساعدة عاصم النجار 3 128 16-02-21, 01:00 AM
آخر رد: ابراهيم ايبو
  ممكن مساعده فى رفع نص معين على موقع باستبين ahmed112001 0 88 07-02-21, 05:30 PM
آخر رد: ahmed112001
  ممكن مساعده في تشغيل المشروع اليوم السابع 3 192 06-02-21, 06:12 PM
آخر رد: معاند الحظ
  ممكن مساعده في تحويل اللغه اليوم السابع 3 235 03-02-21, 04:02 AM
آخر رد: اليوم السابع
  [سؤال] ممكن حل مشكلة فى كود الحفظ عاصم النجار 2 218 01-02-21, 07:07 AM
آخر رد: عاصم النجار

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


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