VB 读取 UTF-8 问题
发布网友
发布时间:2022-10-26 15:24
我来回答
共2个回答
热心网友
时间:2023-09-16 22:34
引用microsoft activex data object library
Dim s As Stream
Set s = New Stream
s.Open
s.Charset = "UTF-8"
s.Position = 0
s.LoadFromFile "C:\pppp.wap"
s.Position = 0
Text1 = s.ReadText
热心网友
时间:2023-09-16 22:34
引用microsoft activex data object library
Dim s As Stream
Set s = New Stream
s.Open
s.Charset = "UTF-8"
s.Position = 0
s.LoadFromFile "C:\pppp.wap"
s.Position = 0
Text1 = s.ReadText
热心网友
时间:2023-09-16 22:34
Private Sub Form_Load()
Dim objStream As New ADODB.Stream
Dim str As String
With objStream
.Type = adTypeText
.Mode = 3
.Mode = 3
.Open
.LoadFromFile "c:\test.txt"
.Position = 0
.Charset = "UTF-8"
str = .ReadText
.Close
End With
MsgBox str
End Sub
'引用microsoft activex data object library 2.5
安装VB6.0企业版
热心网友
时间:2023-09-16 22:34
Private Sub Form_Load()
Dim objStream As New ADODB.Stream
Dim str As String
With objStream
.Type = adTypeText
.Mode = 3
.Mode = 3
.Open
.LoadFromFile "c:\test.txt"
.Position = 0
.Charset = "UTF-8"
str = .ReadText
.Close
End With
MsgBox str
End Sub
'引用microsoft activex data object library 2.5
安装VB6.0企业版