VB 6.0中Byte数组和String转换
来源:互联网 发布:python remove delete 编辑:程序博客网 时间:2024/05/16 17:59
在VB里,Byte数组和String可以互相赋值,利用这个特性处理字符串非常方便。
如果是处理大量文本,以下用法应该熟悉。
字符串与Byte数组互相赋值:
tBytes()=tString
tString=tBytes()
需要注意的是,在VB内部字符串是UniCode表示的,而Asc函数返回的是Ascii和GBK编码(也就是默认代码页的编码)。因此,Asc函数返回的编码值与上面的Byte数组返回的值可能是不同的。
从Ascii/GBK文本获得Unicode数组:
tBytes()=StrConv(tString,vbUnicode)
从Unicode文本获得Ascii/GBK数组:
tBytes()=StrConv(tString,vbFormUnicode)
从Ascii/GBK数组获得Unicode文本:
tString=StrConv(tBytes(),vbUnicode)
从Unicode数组获得Ascii/GBK文本:
tString=StrConv(tBytes(),vbFormUnicode)
快速读取文本文件:
'将文本文件整个读到Byte数组:
Dim tBytes() As Byte
tFN=FreeFile
Open pFileName For Binary As #tFN
tFileSize=LOF(#tFN)
ReDim tBytes(tFileSize-1)
Get #tFN,1,tBytes()
Close #tFN
tString=StrConv(tBytes(),vbUnicode) '从文件获得数组转换为带换行的多行文本字符串。
反之,如果将字符串文本写为二进制文件,则要:
Dim tBytes() As Byte
tBytes()=StrConv(tString,vbFormUnicode)
tFN=FreeFile
Open pFileName For Output As #tFN '清除文件内容
Close #tFN
Open pFileName For Binary As #tFN
Put #tFN,1,tBytes()
Close #tFN
另外,还可以用API函数CopyMemory将Byte数组转换为Integer数组,在利用查表法进行内码转换、简繁转换时,该操作尤为重要。因为,在VB当中,每个“字”的编码都是16位UniCode,用Integer数组表示最为直观。但Integer数组不能直接与String赋值,因此需要一个与Byte数组转换的过程
Public Function ByteArrayToString(bytArray() As Byte) As String
Dim sAns As String
Dim iPos As String
sAns = StrConv(bytArray, vbUnicode)
iPos = InStr(sAns, Chr(0))
If iPos > 0 Then sAns = Left(sAns, iPos - 1)
ByteArrayToString = sAns
End Function
- VB 6.0中Byte数组和String转换
- VB 字节数组和字符串的转换问题 (String<>Byte)
- byte数组和String转换
- C# 中字符串string和字节数组byte[]的转换
- java中byte数组和String字符串怎么相互转换?(string 转 byte[]和byte[] 转 string)
- c# string和byte数组相互转换
- string 和int 转换成byte数组
- C#中string和byte[]的转换
- c#中byte[]和string的转换
- c#中byte[]和string的转换
- c#中byte[]和string的转换
- C#中string和byte[]的转换
- c#中byte[]和string的转换
- C#中String和byte[]转换
- asp.net中string和byte[]转换
- Java中String和byte[]的转换
- java中string, byte和int转换
- 在VB中把字符串转换成Byte数组
- Qt在各种平台及IDE环境下的安装帖集合
- java学生管理信息系统 视频教程
- Linux下发送邮件
- 最棒的 10 款 jQuery 日历插件
- PHP数组的几种赋值方法
- VB 6.0中Byte数组和String转换
- Nucleus系统源码分析与学习
- APUE函数笔记十五: 高级进程间通信(部分)
- 深入理解操作系统 csapp.h的使用
- 计算机启动过程
- hello world 模块编译
- 分享Silverlight/WPF/Windows Phone/HTML5一周学习导读(3月26日-3月31日)
- PHP的foreach
- This application is currently offline