用记事本打开是正常的,另存为时显示是Unicode编码,用vb打开,line input读取时变成乱码,那位大侠帮我啊。
解决方案 »
- SQL简单问题(送20分)
- [版务]任命ratcn为VB非技术小版主
- 如何让自己的progressbar做的进度与规定的时间一致?
- Access中的一些怪事?(急...)
- 这句SQL语句有什么错误吗?
- 如何做!!!!!高手请进!!给分!
- winsock控件用tcp/ip协议时,客户端可以指定使用那个ip嘛?用bind方法不行。
- 急需WINDOWS98内“写字板”的源代码?谢谢!
- 我用Microsoft DBGrid控件,可是怎么设置都不能删除记录,我该怎么办?
- 有关DBGRID控件中光标的定位问题!!!
- 自定义控件 - 怎样在 IDE 中调用原来的属性页以及暴露象 ComboBox 的 Style 属性?
- 这个数据表该怎么建立?
Dim filename As String
Dim l As Long
Dim bytearr() As Byte
filename = "c:\mc\123.txt"
l = FileLen(filename)
ReDim bytearr(l - 1)
Open filename For Binary As #1
Get #1, , bytearr
Close
Dim s As String
s = StrConv(bytearr, vbUnicode) '关键
MsgBox s
End Sub
Private Sub showtxt()
Dim ae As New ASCIIEncoding()
Dim str As String
Dim str1 As String
Dim bytes(1000) As Byte
Dim node As TreeNode
node = Me.TreeView1.SelectedNode
str = getpath(node)
fs = New FileStream(str, FileMode.Open)
fs.BeginRead(bytes, 0, 1000, AddressOf endread, New Object())
str1 = ae.GetString(bytes)
Me.TextBox2.Text = str1
If Err.Number <> 0 Then
MsgBox("打开文件失败!")
Else
MsgBox("打开文件成功!")
End If
End Sub
Private Sub endread(ByVal l As IAsyncResult)
fs.EndRead(l)
fs.Close()
End Sub