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