Question

在VB中将ANSI 转换为UTF-8

在VB中如何将ANSI的文本文档转换为UTF-8的？
给下源码，谢谢

Answer 1

把读取一起给你了

Private Sub Form_Load()
Text1.MultiLine = True
Dim x As String
Open App.Path & "\版本说明.txt" For Input As #1
Input #1, x
Text1.Text = Input(LOF(1), 1)
End Sub

"你好"改成上面写入UTF-8
==================================================
ADODB.Stream组建

Private Sub Command1_Click()
ToUtf8 "你好", "c:\ab.txt"
End Sub

Private Sub ToUtf8(ByVal s As String, ByVal FilePath As String)
Dim stmStr
Set stmStr = CreateObject("ADODB.Stream")
stmStr.Open
stmStr.Charset = "utf-8"
stmStr.WriteText s
stmStr.SaveToFile FilePath
stmStr.Close
Set stmStr = Nothing
End Sub

Answer 2

public class 输入排序 {
public static void main(String[] args) throws IOException{
BufferedReader in=new BufferedReader(new InputStreamReader(System.in));

String test;
System.out.print("请输入");
test=in.readLine();//让你输入字符串；
StringTokenizer stoken=new StringTokenizer(test," ");
int []num = new int[10];
while(stoken.hasMoreElements()){
for(int i=0;i<10;i++){
num[i]=Integer.valueOf(stoken.nextToken());