VB超级模块函数:VB读写记事本-防止乱码支持UTF-8和GB2312编码

Public Function 写入记事本(ByVal txtpath As String, ByVal txt As String)On Error Resume NextOpen txtpath For Output As #1       '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）Print #1, txt    '写入Text1的Text内容Close #1     '关闭End Function'防止 记事本 乱码
Public Function 读取记事本UTF8(Path As String)
Dim 编码模式 As String
Dim arrBinary() As Byte
编码模式 = "UTF-8"
Open Path For Binary As #1
ReDim arrBinary(LOF(1) - 1)
Get #1, , arrBinary()
Close #1
读取记事本UTF8 = BytesToBstr(arrBinary, 编码模式)
End FunctionPublic Function 读取记事本(Path As String) '普通模式 GB2312
Dim 编码模式 As String
Dim arrBinary() As Byte
编码模式 = "GB2312"
Open Path For Binary As #1
ReDim arrBinary(LOF(1) - 1)
Get #1, , arrBinary()
Close #1
读取记事本 = BytesToBstr(arrBinary, 编码模式)
End FunctionPublic Function BytesToBstr(Binary, Unicode)
Dim objstream As Object
Set objstream = CreateObject("ADODB.Stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write Binary
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Unicode
BytesToBstr = objstream.ReadText
objstream.Close
End Function

VB超级模块函数:VB读写记事本-防止乱码支持UTF-8和GB2312编码相关推荐

VB6.0超级模块函数. GetProcessModuleHandleEx得到目标进程的模块地址
'参数1 进程窗口名.类名或者进程名,参数2 模块名 ,参数3 模块所在的路径关键字比如 C盘 WINDOWS 目录下的路径就填写 "WINDOWS" 即可 '这个函数一般不怎 ...
自己手写一个 VB 的 DateAdd 函数(VB/C 双语言版本)
可能有些朋友觉得这是多余的事情,既然 VB 有了 DateAdd 函数来进行日期运算,干嘛还要自己手写一个? 其实这一点也不多余,因为有些时候我们的开发环境不一定就在 VB 里,而那些个开发环境不一定 ...
VB6.0超级模块函数：GetWindowHwnd 获取窗口句柄
Function GetWindowHwnd(ByVal WindowClassVsWindowText As String) As Long '获窗口句柄可以是: 窗口名或者是窗口类名Dim ...
VB 创建快捷方式函数(可带参数)
调用示例: mShellLnk "计算器", "c:\windows\system32\calc.exe" Public Sub mShellLnk(ByVal ...
【VB】StrConv函数.
返回按指定类型转换的 Variant (String). 语法 StrConv(string, conversion, LCID) StrConv 函数的语法有下面的命名参数: 部分说明 strin ...
在VB中INI文件的读写、删除（对中文支持很好）
很多时候我们编一个程序不一定要用到注册表来保存设置(如果说一个程序没有设置就不算好程序了).INI是一个很好的选择.有人说,Savesetting是一个不错的选择,但是我了解到,不能永久的保存(起码在 ...
vb中SendMessage函数
Windows API(应用程序接口)是Windows系列软件为程序开发人员提供的火力强大的"武器库",在这个武器库中,有很多极具威力的武器,SendMessage就是其中之一,它 ...
Vb.net/VB 声明API函数实现父窗口功能
回想第一次敲机房收费.自己调用了api函数实现了父窗口及其子窗口最小化的功能.现在再次遇到,自己就在思考,能不能继续使用API函数呢?答案当然是Of Course! 事实上细致看两者并没有多大的差别. ...
VB中DateDiff 函数解释
VB中DateDiff 函数使用方法 DateDiff (interval, Date1 , Date2[,firstweekofyear[,firstweekofyear]]) 返回一个Varia ...

VB超级模块函数:VB读写记事本-防止乱码支持UTF-8和GB2312编码

VB超级模块函数:VB读写记事本-防止乱码支持UTF-8和GB2312编码相关推荐

最新文章

热门文章