2个回答
展开全部
Private Sub Command1_Click()
Dim lpString As String
Dim lpFileName As String
lpString = Text1.Text '你要输出的字符串
lpFileName = "D:\1.txt" '保存的路径
Open lpFileName For Output As #1
Print #1, StrConv(lpString, vbUnicode)
Close #1
End Sub
'如果是UTF-8不能那么简单操作 一般的Unicode可以
Dim lpString As String
Dim lpFileName As String
lpString = Text1.Text '你要输出的字符串
lpFileName = "D:\1.txt" '保存的路径
Open lpFileName For Output As #1
Print #1, StrConv(lpString, vbUnicode)
Close #1
End Sub
'如果是UTF-8不能那么简单操作 一般的Unicode可以
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询