2014-10-19, 11:25 PM
بسم الله الرحمن الرحيم
خمنت شيئا ما وانا جالس افكر في التشفير وقمت بالتسجيل بالمنتدى المحلي باسم حروف عربية هكذا
ا ب ت ث ج ح خ د ذ ر ز س ش
وذهبت لبرنامج phpmyadmin ورايت تلك الحروف الغامضة فقلت لابد ان اكمل الحروف وسجلت بالحروف المتبقية ثم بقي حرفان وهما و ي وانظر لشكل الحروف فقمت بوضعهم بملف نصي وعرفت كل حرف ماذا بقابله
فكتبت هذه الدالة لاداة مهمة الاستبدال
وطريقة استخدامها سهلة وهي كالتالي:
لم اكن اتوقع انها هكذا
من يريد ان يساعدني فليجرب هذه الطريقة على قاعدة بيانات Mysql لمنتدى من نوع vbulletin بترميز
windows-1256
بانتظار تجربتكم
وشكر الله لكم
خمنت شيئا ما وانا جالس افكر في التشفير وقمت بالتسجيل بالمنتدى المحلي باسم حروف عربية هكذا
ا ب ت ث ج ح خ د ذ ر ز س ش
وذهبت لبرنامج 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
بانتظار تجربتكم
وشكر الله لكم
"اللَّهُمَّ إِنِّي أَعُوذُ بِكَ مِنْ زَوَالِ نِعْمَتِكَ، وَتَحَوُّلِ عَافِيَتِكَ، وَفُجَاءَةِ نِقْمَتِكَ، وَجَمِيعِ سَخَطِكَ"