بشرى . لقد عرفت فك ترميز النصوص العربية (توجد دالة جاهزة)

[mrsaud]

بسم الله الرحمن الرحيم

خمنت شيئا ما وانا جالس افكر في التشفير وقمت بالتسجيل بالمنتدى المحلي باسم حروف عربية هكذا
ا ب ت ث  ج ح خ د ذ ر ز س ش
وذهبت لبرنامج phpmyadmin ورايت تلك الحروف الغامضة فقلت لابد ان اكمل الحروف وسجلت بالحروف المتبقية  ثم بقي حرفان وهما و ي  وانظر لشكل الحروف فقمت بوضعهم بملف نصي وعرفت كل حرف ماذا بقابله

كود :

كود :

Ç È Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö Ø Ù Ú Û Ý Þ ß á ã ä å æ í
ي و ه ن م ل ك ق ف غ ع ظ ط ض ص ش س ز ر ذ د خ ح ج ث ت ب ا

فكتبت هذه الدالة لاداة مهمة الاستبدال

كود
:

كود :

Public Function ttoar(ByVal str As String) As String

       For Each t In str
           Select Case t
               Case "Ç"

                   str = str.Replace("Ç", "ا")
               Case "È"

                   str = str.Replace("È", "ب")

               Case "Ê"

                   str = str.Replace("Ê", "ت")

               Case "Ë"

                   str = str.Replace("Ë", "ث")

               Case "Ì"

                   str = str.Replace("Ì", "ج")

               Case "Í"

                   str = str.Replace("Í", "ح")

               Case "Î"

                   str = str.Replace("Î", "خ")

               Case "Ï"

                   str = str.Replace("Ï", "د")

               Case "Ð"

                   str = str.Replace("Ð", "ذ")

               Case "Ñ"

                   str = str.Replace("Ñ", "ر")

               Case "Ò"

                   str = str.Replace("Ò", "ز")

               Case "Ó"


                   str = str.Replace("Ó", "س")

               Case "Ô"


                   str = str.Replace("Ô", "ش")
               Case "Õ"

                   str = str.Replace("Õ", "ص")

               Case "Ö"

                   str = str.Replace("Ö", "ض")

               Case "Ø"

                   str = str.Replace("Ø", "ط")

               Case "Ù"

                   str = str.Replace("Ù", "ظ")

               Case "Ú"

                 
                   str = str.Replace("Ú", "ع")
               Case "Û"

                   str = str.Replace("Û", "غ")

               Case "Ý"

                   str = str.Replace("Ý", "ف")

               Case "Þ"

                   str = str.Replace("Þ", "ق")

               Case "ß"

                   str = str.Replace("ß", "ك")

               Case "á"


                   str = str.Replace("á", "ل")
               Case "ã"

                   str = str.Replace("ã", "م")

               Case "ä"


                   str = str.Replace("ä", "ن")

               Case "å"



                   str = str.Replace("å", "ه")

               Case "æ"


                   str = str.Replace("æ", "و")
               Case "í"


                   str = str.Replace("í", "ي")
               Case "É"

                   str = str.Replace("É", "ة")
           End Select
       Next
       Return str
   End Function

وطريقة استخدامها سهلة وهي كالتالي:

كود :

كود :

       Dim con As New MySqlConnection("server=localhost;database=forum;uid=root;pwd=55555")
       Dim cm As New MySqlCommand("", con)
       cm.CommandText = "select `username` from `user` where `userid`='1'" 'or any id for arabic code
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim dr As MySqlDataReader = cm.ExecuteReader
       If dr.HasRows Then
           If dr.Read Then
               MsgBox(ttoar(dr.Item("username")))
           End If
       End If

لم اكن اتوقع انها هكذا
من يريد ان يساعدني فليجرب هذه الطريقة على قاعدة بيانات Mysql لمنتدى من نوع vbulletin بترميز
windows-1256
بانتظار تجربتكم
وشكر الله لكم

[mrsaud]

المشروع بعد التعديل هنا
http://www.mybbarab.com/thread-17286.html#pid74778
المثال سريع جدا جرب واحكم
فقط انظر لملف config.txt وعدل مايلزم

[support]

دام جربتها ونفعت اذا فعلا شي ممتاز بيفيد الكثير بارك الله فيك علي المجهود الجبار الذي تقوم به