Question

Unicode编码如何转ANSI

http://www.rocklv.net/free/free_goodys_unicode.php
手动可以将wə:d→转换成 "wə:d"(这个网页会自动改成UNICODE)
如何用VBA或VB或VBS 程序转呀?

Answer 1

下面的例子可以实现Unicode和Ansi之间的转换：　　　　　　　using　　　System．IO；　　　　　　　using　　　System．Text；　　　　　　　　　　　＆＃47；＆＃47；　　　convert　　　DBCS－932　　　encoded　　　file　　　to　　　unicode－file　　　　　　　Encoding　　　ecp932　　　＝　　　Encoding．GetEncoding（　　　932　　　）；　　　　　　　StreamReader　　　sr　　　＝　　　new　　　StreamReader（　　　＠＆quot；C：＆＃92；cp932．txt＆quot；，　　　ecp932，　　　false　　　）；　　　　　　　StreamWriter　　　sw　　　＝　　　new　　　StreamWriter（　　　＠＆quot；C：＆＃92；unicode．txt＆quot；，　　　false，　　　　　　　Encoding．Unicode　　　）；　　　　　　　sw．Write（　　　sr．ReadToEnd（）　　　）；　　　　　　　sw．Close（）；　　　　　　　sr．Close（）；　　　　　　　　　　　＆＃47；＆＃47；　　　convert　　　unicode－file　　　to　　　ANSI　　　text　　　file　　　　　　　Encoding　　　ecp1252　　　＝　　　Encoding．GetEncoding（　　　1252　　　）；　　　　　　　sr　　　＝　　　new　　　StreamReader（　　　＠＆quot；C：＆＃92；unicode．txt＆quot；　　　Encoding．Unicodes　　　false　　　）；　　　　　　　sw　　　＝　　　new　　　StreamWriter（　　　＠＆quot；C：＆＃92；cp1252．txt＆quot；，　　　false，　　　ecp1252　　　）；　　　　　　　sw．Write（　　　sr．ReadToEnd（）　　　）；　　　　　　　sw．Close（）；　　　　　　　sr．Close（）；　参考　msdnsupport．microsoft．com／kb／138813

追问

能用VB?
另外,wə:d 应该是UANCODE 16
转成的 w & # 6 0 1 ; : d (每个字符我用空格分害),这个是什么字符呀...是ANSI吗