VB:如何读出unicode编码的txt文件内容
2007-05-03 10:40
288 查看
其实,这个问题很简单 ,可偏偏很多人不知道,于是写了这个
先用2进制方式打开文件,读出数据到byte数组中,然后用copymemory去掉文件头(头两个字符分别是FF FE(16进制))得到一个新的byte数组,最后利用strconv函数即可,下面给出代码:
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)
Private Function ReadUniFile(ByVal sFile As String) As String
'没加错误处理,大家自己加吧
Dim a As Long
a = FileLen(sFile)
ReDim buff(a - 1) As Byte
ReDim buff1(a - 3) As Byte
Open sFile For Binary As #1
Get #1, , buff
Close #1
CopyMemory buff1(0), buff(2), a - 2
Dim s As String
s = StrConv(buff1, vbNarrow)
ReadUniFile = s
End Function
先用2进制方式打开文件,读出数据到byte数组中,然后用copymemory去掉文件头(头两个字符分别是FF FE(16进制))得到一个新的byte数组,最后利用strconv函数即可,下面给出代码:
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)
Private Function ReadUniFile(ByVal sFile As String) As String
'没加错误处理,大家自己加吧
Dim a As Long
a = FileLen(sFile)
ReDim buff(a - 1) As Byte
ReDim buff1(a - 3) As Byte
Open sFile For Binary As #1
Get #1, , buff
Close #1
CopyMemory buff1(0), buff(2), a - 2
Dim s As String
s = StrConv(buff1, vbNarrow)
ReadUniFile = s
End Function
相关文章推荐
- [VB.NET]如何把.TXT的文件内容传到DATAGRID里面
- c#如何读取txt文件内容
- 如何修改txt文本文件的内容
- 如何读取txt文件内容
- 如何把PDF文件内容转换成TXT
- VB中如何读取txt文件的数据
- Linux下如何查看一个文件,如temp.txt 内容的编码方式?
- 如何将txt文件中的内容用循环一行一行读出来啊?
- Adobe脚本之如何读取txt文件的文本内容
- java 如何将两个txt文件内容写入到一个txt文件中?
- Java如何读取数据文件,如txt文件或者.dat文件 中的内容
- 求助:C++中读取txt文件如何忽略特定符号后的内容?
- 如何用java读取一个txt 文件内的内容并把它赋值与String里?
- 请教Ado.Net按文本读取CSV/Txt文件时,如何禁止将内容转换成数字
- 如何在linux下查看内容过长文件(例如.历史日志)并导出为txt文件
- 如何去掉VB生成的txt文件中的黑块
- 请问如何从日志文件中读出其内容
- C# 如何在textbox里显示txt文件的内容
- C++ 如何将一个文件夹中的所有文件(.txt或者.log)内容整合到一个文件(.txt或者.log)当中
- JTextArea内容保存到txt文件上,如何实现换行