VB 读取UTF-8编码文件函数

参数：Path 文件路径
Unicode 文件编码
Public Function File_get_contents(Path As String, Optional Unicode = "GB2312")

Dim arrBinary() As Byte

Open Path For Binary As #1
ReDim arrBinary(LOF(1) - 1)
Get #1, , arrBinary()
Close #1

File_get_contents = BytesToBstr(arrBinary, Unicode)

End Function

Public Function BytesToBstr(Binary, Unicode)
Dim objstream As Object
Set objstream = CreateObject("ADODB.Stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write Binaryc
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Unicode
BytesToBstr = objstream.ReadText
objstream.Close
End Function

'读取UTF-8编码文件测试
Private Sub Form_Load()
Text1.Text = File_get_contents("c:\1.txt", "UTF-8")
End Sub

摘自：网络整理

★VB部分相关文章推荐：★

☆VB 读写TXT文本文件函数

☆VB 提取TextBox 文本框中指定一行字符串

☆VB 使用SendMessage枚举文件与目录

☆VB 二进制数组与十六进制字符串相互转换

☆VB 二进制数据读写实例

☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

☆VB 实现UTF-8 与GB2312互转

☆VB 设置ListView中指定一行的背景颜色

☆VB SendMessage向其他程序窗口发送字符串消息实例

☆VB Listview导出到CSV文件函数

☆vb卸载所有窗体

☆VB中Null, Empty, Nothing, and vbNullString的区别

☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)

☆获取对象的接口信息(方法/属性/事件)(VB6代码)

☆[VB]SaveSetting 语句和 DeleteSetting 语句

☆VB APP对象属性一览表 + 灵活使用VB的APP对象

☆[vb]SendMessageA函数

☆使用VB绘制抛物线动画曲线

☆关于vb中的容器

☆[vb]利用WScript.Shell对象隐藏cmd命令行运行

☆浅析VB For Each.Next语句

☆VB中窗体模块、标准模块、类模块的区别

☆引用 VB类模块

☆VB中什么是类，类模块有什么作用

☆VB SendKeys 语句

☆VB 全局热键

☆用VB轻松调用其他程序

☆vb读取txt文件到textbox

☆如何去优化你的VB程序3

☆如何去优化你的VB程序2

☆如何去优化你的VB程序1

☆[VB]在状态栏中显示帮助信息

☆[VB]把屏幕保存为图像

☆Mp3Play.ocx控件让音乐之声响起来

VB 读取UTF-8编码文件函数相关推荐

VB Listview导出到CSV文件函数
示例:Call ListviewToCSV(Listview1,"C:\123.csv") 最后一个参数Encabezado决定是是否导出表头.默认是导出的. 函数代码如下: Pu ...
request.querystring php,ASP_ASP读取Request.QueryString编码的函数代码，1. 支持参数纯汉字 ?a=深山老熊 - phpStudy...
ASP读取Request.QueryString编码的函数代码 1. 支持参数纯汉字 ?a=深山老熊 2. 支持参数gb2312 Urlencode编码: ?a=%C9%EE%C9%BD%C0%CF% ...
vb读取文件的模式和方法
名词解释: 记录:计算机处理数据的基本单位,由若干个相互关联的数据项组成.相当于表格中的一行. 文件:记录的集合,相当于一张表. 文件类型:顺序文件.随机文件.二进制文件. 访问模式:计算机访问文件的 ...
python内置的读取文件函数_Python函数篇（3）-内置函数、文件处理（已更新）
1.内置函数上一篇文章中,我重点写了reduce.map.filter3个内置函数,在本篇章节中,会补充其他的一些常规内置函数,并重点写max,min函数,其他没有说明的函数,会在后面写到类和面向对 ...
VB 读取资源文件里面的字符串
Private Sub Form_Load() Dim TempStr() As Byte TempStr = LoadResData(101, 6) Text1.Text = TempStr End ...
python 读取文件名指定编码_Python 文件读写与编码解读
一.Python 读取文件使用open函数 python open() 函数用于打开一个文件,创建一个 file 对象,相关的方法才可以调用它进行读写. open(name[,mode[,buffer ...
编码引出的问题_FileReader读取GBK格式的文件
编码引出的问题在IDEA中,使用FileReader 读取项目中的文本文件.由于IDEA的设置,都是默认的UTF-8编码,所以没有任何问题.但是,当读取Windows系统中创建的文本文件时,由于Wi ...
php直接读取csv文件,php实现的读取CSV文件函数示例
本文实例讲述了php实现的读取CSV文件函数.分享给大家供大家参考,具体如下: function read_csv($cvs) { $shuang = false; $str = file_get_c ...
php 文件保存函数,php 写入和读取文件函数
//读取文件函数 function readfromfile($file_name) { if (file_exists($file_name)) { $filenum=fopen($file_nam ...

VB 读取UTF-8编码文件函数

VB 读取UTF-8编码文件函数相关推荐

最新文章

热门文章