p4yman
شنبه 13 مهر 1392, 00:07 صبح
سلام دوستان
سورس کد زیر از سایتی که مشخص میکنیم rss دریافت میکنه اما به زبان اسکی اونو نشون میده
کاراکتر هاش utf-8 نسیت
میشه لطف کنید بگید چطور میتونم فارسی دریافت کنم یا تبدیل به فارسی بشه؟
تبدیل که فک نکنم بشه
چون تمامیش علامت سوال میاد فقط ممنون میشم کمک کنید
Private Sub Command1_Click()
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load ("http://site.com/rss.php")
List1.Clear
Me.Refresh
Set myItem = rss.getElementsByTagName("item")
For i = 0 To myItem.Length - 1
List1.AddItem myItem(i).getElementsByTagName("title").Item(0).firstChild.nodeValue
Next i
End Sub
سورس کد زیر از سایتی که مشخص میکنیم rss دریافت میکنه اما به زبان اسکی اونو نشون میده
کاراکتر هاش utf-8 نسیت
میشه لطف کنید بگید چطور میتونم فارسی دریافت کنم یا تبدیل به فارسی بشه؟
تبدیل که فک نکنم بشه
چون تمامیش علامت سوال میاد فقط ممنون میشم کمک کنید
Private Sub Command1_Click()
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load ("http://site.com/rss.php")
List1.Clear
Me.Refresh
Set myItem = rss.getElementsByTagName("item")
For i = 0 To myItem.Length - 1
List1.AddItem myItem(i).getElementsByTagName("title").Item(0).firstChild.nodeValue
Next i
End Sub