Inet و یونیکد

[hasanain]

با کنترل Inet میتوان دل و جگر سایتی را داخل تکسباکس بریزیم:

RichTextBox1.Text = Inet1.OpenURL
مشکل من این است که محتویات فارسی (یونیکد) را به صورت اجغ وجغ و نامفهوم می آورد. لذا نمیتوانم جستجویی داشته باشم.

دوستان ایده ای ندارند؟

[hasanain]

دوستان، راه حلی به ذهنشان نمیرسه. من میخواهم از سایت Tala.ir قیمت طلا و ارز را بگیرم ولی نمیخواهم در webbrowser باشه. اگه با Inet باز کنم قسمتهای فارسی اش اینجوری میشه:

ط¨ط§ط²ط§ط± طھظ‡ط±ط§ظ†</font></td>

اگر با webbrowser هم باز کنم، یونیکد انتخاب نمیشه و باز هم...
چه باید کرد؟

[hasanain]

آقایان، عزیزان به داد برسید :چشمک:
اقلا بفرمایید که چگونه در کنترل webbrowser و توسط کد، encoding را تغییر دهم به UniCode تا کاربر مجبور نباشد به صورت دستی راست کلیک کند و ...

تشکر

[nokian95]

شما در سایت Planet-Source-Code.com این گزینه رو سرچ کنید
UTF-8
یک سورس وجود داره که من ازش سر در نیاوردم اما شاید بتونه کمکتون کنه

[hasanain]

فونت Richtextbox رو چک کن ببین رو Western نیست؟
Arabicش کن
این کارو با Save کردن اون سایت و انداختنش تو notepad هم میشه انجام داد نـــــــه غـــــــــلام؟؟

تشکر از جناب Persianlord که زحمت کشیدند. اما هم فونت RichTextBox روی Arabic است و هم Save کردن صفحه کار به جایی نبرد.

[hasanain]

خواهش میکنم راهنمایی کنید ؟؟؟؟؟

[roomezonline]

منم دقیقا دنبال همچین چیزی هستم

من محتویات یه فایل تکست که utf ذخیره شده رو روی هاست میخوام بخونم و بریزم توی یه تکست باکس

اما متن دریافتی اجق وجق هست

[ho3ein.3ven]

سلام
با این دو تابع می تونید این مشکل رو حل کنید.

Public Function UTF8_Encode(ByVal sStr As String)
Dim L As Long, lChar As Long, sUTF8 As String
For L& = 1 To Len(sStr)
lChar& = AscW(Mid(sStr, L&, 1))
If lChar& < 128 Then
sUTF8$ = sUTF8$ + Mid(sStr, L&, 1)
ElseIf ((lChar& > 127) And (lChar& < 2048)) Then
sUTF8$ = sUTF8$ + Chr(((lChar& \ 64) Or 192))
sUTF8$ = sUTF8$ + Chr(((lChar& And 63) Or 128))
Else
sUTF8$ = sUTF8$ + Chr(((lChar& \ 144) Or 234))
sUTF8$ = sUTF8$ + Chr((((lChar& \ 64) And 63) Or 128))
sUTF8$ = sUTF8$ + Chr(((lChar& And 63) Or 128))
End If
Next L&
UTF8_Encode = sUTF8$
End Function
'===============================Farsi nevisi
Public Function UTF8_Decode(ByVal sStr As String)
Dim L As Long, sUTF8 As String, iChar As Integer, iChar2 As Integer
sStr = Replace(sStr, "UŒ", UTF8_Encode("?"))
sStr = Replace(sStr, "U‰", UTF8_Encode("?"))
For L = 1 To Len(sStr)
iChar = Asc(Mid(sStr, L, 1))
If iChar > 127 Then
If Not iChar And 32 Then
iChar2 = Asc(Mid(sStr, L + 1, 1))
sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2)))
L = L + 1
Else
Dim iChar3 As Integer
iChar2 = Asc(Mid(sStr, L + 1, 1))
iChar3 = Asc(Mid(sStr, L + 2, 1))
'sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63))
L = L + 2
End If
Else
sUTF8 = sUTF8 & Chr$(iChar)
End If
Next L
UTF8_Decode = sUTF8
End Function
Public Function EncodeString(StrText As String) As String
On Error Resume Next
Dim I As Integer, bEnc As String
For I = 1 To Len(StrText)
bEnc = bEnc & "%" & Hex(Asc(Mid(StrText, I, 1)))
Next
EncodeString = bEnc
End Function