سلام بیا
برات نوشتم.
فقط پدرم دراومد تا درستش کنم.
چیزی که اینجا باید بگم با زبان فارسی سازگاری نداره ولی عربی را فکر کنم.
شرمنده ولی هر کاری کردم نتوستم یک چیز تمیز در بیاورم به هر حال این کد که با کد گذاری زبان انگلیسی فعلا خوب کار میکنه
Private Sub Command1_Click()
On Error Resume Next
KK = Split("\u0048\u0065\u006C\u006C\u006F", "")
For a = 1 To 50
If Left(Right(KK(a), 3), 1) = 0 Then RR = Right(KK(a), 2) Else RR = Right(KK(a), 3)
Print UnHex(RR);
RR = ""
Next a
End Sub
Private Function UnHex(ByVal hextext As String) As String
For y = 1 To Len(hextext): num = Mid(hextext, y, 2): Value = Value & Chr(Val("&h" & num)): y = y + 1: Next y: UnHex = Value
End Function
فقط توجه کن این کد زیاد هوشمند نیست و باید داده ای که بهش میدی تو این چهار چوبی که من بهش دادم بدی. این جوری قبول نیست(مثلا). (
[[{"page_id":"17230","editor_id":"0","view_accesslev el_id":"0","edit_accesslevel_id":"0","delete_acces slevel_id":"0","menu_id":"0","page_display_title": "\u062e\u0627\u0646\u0647","pag)
با یک تشکر خستگی را از تن ما در بیار
فقط اگر کارتو راه میدازه که هیچی واگر نه بهم بگو تا یک کد دیگه برات بنویسم
پاسخ با نقل قول