+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] Encoding Url (/showthread.php?tid=10898)
Encoding Url - yousef - 11-12-14
السلام عليكم
كيف اعمل Encoding ل url
مثلا :
http://www.example.com/ 22/10/2013,hi all
اريد ان اعمل Encoding للي بعد http://www.example.com
RE: Encoding Url - الوليد ☺ - 11-12-14
السلام عليكم ورحمة الله
هذه دالة تشفير العنوان، طبعاً معدلة، إن شاء تفيدك
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim url As String = "http://www.example.com/22/10/2013,hi all"
MsgBox(EncodeURL(url))
End Sub
Public Function EncodeURL(strUrl As String) As String
Dim encUrl As String = String.Empty
For Each c As Char In strUrl
Select Case Asc(c)
Case 48 To 57, 65 To 90, 97 To 122
encUrl &= c
Case 32
encUrl &= "+"
Case Else
encUrl &= "%" & Asc(c).ToString("X2")
End Select
Next
Return encUrl
End Function
RE: Encoding Url - yousef - 11-12-14
الله يعطيك العافية
يعلم الله اني احبك في الله
ففي كل مرة اتصفح الاسئلة أراك اول الناشرين للمعرفة حيث انك لا تترك لنا المجال
ما شاء الله , الله يحفظك
بس اذا تكرمت لماذا استخدمت
كيف طبيعة عمل ال
كود :
Select Case Asc(c)
Case 48 To 57, 65 To 90, 97 To 122
encUrl &= c
Case 32
encUrl &= "+"
Case Else
encUrl &= "%" & Asc(c).ToString("X2")
End Selectواذا توفر كتاب الكتروني او مقال حول الurl encoding
يا ريت اتفيدنا في
RE: Encoding Url - الوليد ☺ - 11-12-14
السلام عليكم ورحمة الله
أحبك الله كما أحببتني فيه، وأن يحفظك
الدالة أخذتها منذ فترة من النت ومحتفظ بالكود
الدالة بتمر على العنوان حرف حرف
في الحالة الأولى
إذا كانت قيمته من ضمن قيم أحد المجموعات التالية يكتب الحرف كما هو
48 إلى 57 وهي مجموعة الأرقام من 0 إلى 9
65 إلى 90 وهي مجموعة الأحرف الكبيرة من A إلى Z
97 إلى 122 وهي مجموعة الأحرف الصغيرة من a إلى z
الحالة الثانية
إذا كانت مسافة يستبدلها بعلامة +
الحالة الثالثة
إذا لم يكن من ضمن أحد مجموعات الحالة الأولى أو المسافة
فيتم تحويل قيمة الحرف إلى نظام سداسي عشري يسبقها علامة %
إن شاء الله تمام