[الماجيك مسعد]

السلام عليكم

ازاى اشفر

"ههههه"

الى

%u0647%u0647%u0647%u0647%u0647

---

اسف على الازعاج

لقد استخدمت فنكشن من الموضوع هذا
http://vb4arb.com/vb/showthread.php?tid=21959

الكود بعد التعديل اللازم

Function StringToHex(ByVal v As String) As String
Dim r As String, i As Integer, h As String
For i = 1 To Len(v)
h = "%u0" & Hex(AscW((Mid$(v, i, 1))))
r = r & IIf(Len(h) = 1, "0", "") & h
Next
StringToHex = r
End Function

[a.ahmed]

PHP كود :

Function StringToUHex(ByVal v As String) As String
    Dim r As String = String.Empty
    For Each c As Char In v.ToCharArray
        r &= "%u" & AscW(c).ToString("x4")
    Next
    Return r
End Function 


[الماجيك مسعد]

بارك الله فيك استاذ احمد

[السندبااد]

(03-10-17, 08:33 AM)a.ahmed كتب :

PHP كود :

Function StringToUHex(ByVal v As String) As String
    Dim r As String = String.Empty
    For Each c As Char In v.ToCharArray
        r &= "%u" & AscW(c).ToString("x4")
    Next
    Return r
End Function 


أخي الكريم ماذا لو اردت عكس العملية
أي تحويل:
%u0647%u0647%u0647%u0647%u0647

إلى:
ههههه

[a.ahmed]

PHP كود :

Function UHexToString(ByVal v As String) As String
    Dim r As String, i As Integer
    For i = 0 To v.Length - 6 Step 6
        r &= ChrW(Convert.ToInt32(v.Substring(i + 2, 4), 16))
    Next
    Return r
End Function