1 建议操作数据库2 Private Sub Command1_Click() Dim mystr As String gettext "c:\123.txt", mystr End SubSub gettext(ByVal filename As String, Optional ByRef result As String) Dim mybyte() As Byte Open filename For Binary As #1 ReDim mybyte(LOF(1) - 1) Get #1, , mybyte Close #1 result = StrConv(mybyte, vbUnicode) Erase mybyte End Sub
Private Sub Command1_Click()
Dim mystr As String
gettext "c:\123.txt", mystr
End SubSub gettext(ByVal filename As String, Optional ByRef result As String)
Dim mybyte() As Byte
Open filename For Binary As #1
ReDim mybyte(LOF(1) - 1)
Get #1, , mybyte
Close #1
result = StrConv(mybyte, vbUnicode)
Erase mybyte
End Sub