VB 实现UTF-8 与GB2312互转
模块代码如下:
'* ************************************** *
'* 模块名称:modCharset.bas
'* 模块功能:GB2312与UTF8相互转换函数
'* 作者:lyserver
'* ************************************** *
Option Explicit
'- ------------------------------------------- -
' 函数说明:GB2312转换为UTF8
'- ------------------------------------------- -
Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant
Dim adoStream As Object
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Type = 2 'adTypeText
adoStream.Open
adoStream.WriteText strIn
adoStream.Position = 0
adoStream.Type = 1 'adTypeBinary
GB2312ToUTF8 = adoStream.Read()
adoStream.Close
If ReturnValueType = vbString Then GB2312ToUTF8 = Mid$(GB2312ToUTF8, 1)
End Function
'- ------------------------------------------- -
' 函数说明:UTF8转换为GB2312
'- ------------------------------------------- -
Public Function UTF8ToGB2312(ByVal varIn As Variant) As String
Dim bytesData() As Byte
Dim adoStream As Object
bytesData = varIn
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Type = 1 'adTypeBinary
adoStream.Open
adoStream.Write bytesData
adoStream.Position = 0
adoStream.Type = 2 'adTypeText
UTF8ToGB2312 = adoStream.ReadText()
adoStream.Close
End Function
★VB部分相关文章推荐:★
☆VB 读写TXT文本文件函数
☆VB 提取TextBox 文本框中指定一行字符串
☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转
☆VB SendMessage向其他程序窗口发送字符串消息实例
☆VB中Null, Empty, Nothing, and vbNullString的区别
☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)
☆[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 与GB2312互转相关推荐
- java ucs2转utf8_Windows下Unicode(UCS2),UTF8,GBK(GB2312)互转
Windows下提供了两个编码转换函数:WideCharToMultiByte和MultiByteToWideChar. 用它们可实现Unicode(UCS2),UTF8,GBK(GB2312)互转. ...
- ASP字符转换:UTF-8与GB2312互转
UTF-8转GB2312函数 <% '用途:將UTF-8編碼漢字轉換為GB2312碼,兼容英文和數字 '版權:雖說是原創,其實也參考了別人的部分算法 '用法:Response.write UTF ...
- 网页中文乱码--UTF-8和GB2312互转
一.如果你想把utf-8转为GB2312 1.用记事本打开源码,把换成:如果是JS不需要加这句,如果是网页最好加上这句和你页面对应的编码. 2.用记事本打开源码,另存为,编码 哪里选择 ANSI 即可 ...
- Big5 = GBK GBK = Big5 GB2312 = GBK GBK = GB2312 互转
本文将介绍四个转换函数分别实现如下的转换: Big5 => GBK GBK => Big5 GB2312 => GBK GBK => GB2312 有关 GB2312 =〉BI ...
- php dreamweaver转编码,用DW软件批量实现html编码转换的详细步骤 另附utf-8与gb2312互转软件小工具...
两种方法 ,一种是使用Dreamweave软件,另外附一个批量转换的小软件. HTML转换不能直接通过记事本打开后手动修改代码里的字母就认为完成编码转换修改,这样直接修改后果很容易造成修改后的网页在浏 ...
- VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转
模块包含了下面的各种转换: 二进制转十进制 二进制转化为八进制 二进制转化为十六进制 八进制转化为十进制 八进制转化为二进制 八进制转化为十六进制 十进制转二进制 十进制转化为八进制 十进制转化为十六 ...
- VB 读写TXT文本文件函数
以下两个函数分别读取TXT文本文件与写入文件 Private Function GetTXT(Path As String) '读取文本 Open Path For Input As #1 ...
- VB 判断是否文本文件
代码如下: Option Explicit Public Function IsTextFile(Bytes() As Byte) As Boolean Dim i As Long, AscN As ...
- VB 按指定编码格式写入文本文件
代码如下: 'VB 按指定编码格式写入文本文件,默认GB2312编码. Private Sub SaveFile(FilePath As String, strText As String, Opt ...
最新文章
- 将标签one-hot化的方法
- 月薪5K的运维小白如何成为月薪5W的高级架构师?
- x86 CPU内存屏障保证有序性
- [BZOJ2502]清理雪道解题报告|带下界的最小流
- C语言常用字符串操作函数大全详解(strstr,strtok,strrchr,strcat,strcmp,strcpy,strerror,strspn,strchr等)
- deb php7 fileinfo,linux安装php7.2扩展fileinfo
- 如何让css与js分离
- 【LeetCode笔记】143. 重排链表(Java、链表、栈、快慢指针)
- Java HashSet和LinkedHashSet的用法
- Atitit..文件上传组件选型and最佳实践总结(3)----断点续传控件的实现
- 如何使用UMAP分析100维数据,惊艳令人叹为观止
- 精通开关电源设计第三版pdf_设计类电子书合集
- 百度之星1000——A+B问题
- Unity SRP初识之URP
- 【OpenCV】 ⚠️实战⚠️ 女子深夜久久不能入眠,300行写出全能扫描王! ☢️建议手收藏☢️
- 用计算机制作多媒体作品使用的素材都必须,多媒体技术(选择题).doc
- matlab失明的小猫,如何正确判断猫咪眼睛是否失明
- android 日志打印内容完全相同,Log的chatty机制,identical 391 lines
- VS生成的解决方案exe文件在其他电脑显示缺失各种dll文件解决办法
- 关于相对论的一个猜想——二维空间理论
热门文章
- 华为突遭 Google 釜底抽薪,国产自研操作系统生态恐不可承其重!
- Mozilla 重磅推出物联网平台 WebThings!| 极客头条
- 微信推视频红包;百度春晚红包互动 137 亿次;谷歌用皮影庆猪年 | 极客头条...
- java文件迁移工具,Java的迁移
- public 返回一数组_数组:滑动窗口拯救了你
- 小甲鱼python第六讲_小甲鱼Python第十七讲课后习题(示例代码)
- python实现食品推荐_Python分析亚马逊赞不绝口食物评论
- css盒模型只能应用于html,iframe,css样式表,盒模型的使用方法-2019年9月3日
- java连接mysql数据库时出现乱码_java连接mysql数据库中文乱码问题
- mc云服务器配置要求_云服务器 IPV6的配置