p4yman
جمعه 12 مهر 1392, 23: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