读取UTF-16 LE文件报错

rocklyman

编码ANSI的正常，UTF-16 LE的报错，哪位老师有空指导修改一下？

1. Sub test()
   
2. wk_pth = Application.GetOpenFilename("Text Files (*.sp), *.sp")
   
3. Open wk_pth For Input As #1
   
4. 
   
5. arr_temp = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
   
6. Close #1
   
7. 
   
8. End Sub

复制代码

新建文件夹.zip (20.54 KB, 下载次数: 4)

2024-1-15 15:00 上传

点击文件名下载附件

perfect131

用 fso读取 较快较稳

rocklyman

perfect131 发表于 2024-1-15 15:07
用 fso读取 较快较稳

可以帮忙修改一下代码吗

liulang0808

Sub test()
wk_pth = Application.GetOpenFilename("Text Files (*.sp), *.sp")


arr = Split(ReadUTF(wk_pth), vbNewLine)



End Sub

Function ReadUTF(ByVal FileName As String) As String
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile FileName
        .Charset = "UTF-16"
        .Position = 2
        ReadUTF = .ReadText
        .Close
    End With
End Function
看看是否可行的

rocklyman

liulang0808 发表于 2024-1-16 08:25
Sub test()
wk_pth = Application.GetOpenFilename("Text Files (*.sp), *.sp")

版主威武，可以运行