VBnet操作文本文件的问题
2024-07-21 02:20:55
供稿：网友
.net里面的streamreader读取文本文件默认使用utf-8的编码，因此，如果你写一个最简单的使用streamreader.readtoend的方法读出一个文本文件放入文本框中，八成出现的是乱码。因为在中文系统上，纯文本文件默认的保存编码是ascii。
但是使用的时候也不能全部都按照ascii来读，因为你也无法保证系统上是否会读到unicode的文件。因此，需要一个侦测文件编码类型并且能够按照相应类型来读取的方法。
找了一个小时，终于找到了。
如果文件是有特定编码格式的，这个编码会记录在文件的头四个字节里。因此，读出这四个字节，检查是否是unicode就可以了。如果这四个字节并没有特定的意义，你就只能猜测一个了，一般情况下，就default就比较合适了。
public function loadfile(byval filename as string) as string
dim enc as encoding
dim file as filestream = new filestream(filename, filemode.open, fileaccess.read, fileshare.read)
if file.canseek then
dim bom(3) as byte
file.read(bom, 0, 4)
if ((bom(0) = &hef and bom(1) = &hbb and bom(2) = &hbf) or (bom(0) = &hff and bom(1) = &hfe) or (bom(0) = &hfe and bom(1) = &hff) or (bom(0) = 0 and bom(1) = 0 and bom(2) = &hfe and bom(3) = &hff)) then
enc = encoding.unicode
else
enc = encoding.default
end if
file.seek(0, seekorigin.begin)
else
enc = encoding.default
end if
dim filebyte(file.length) as byte
file.read(filebyte, 0, file.length)
'转成系统对应的编码字符
dim myencoder as encoding = enc
file.close()
file = nothing
return new string(myencoder.getchars(filebyte))
end function
