vb 字符串转数组（如何将VB.NET字符串转换成字节数组）
本文目录
- 如何将VB.NET字符串转换成字节数组
- vb 中如何将string转化为byte[]数组
- VB中如何把字符串拆开赋给数组
- vb如何将字符串转换到字节数组
- vb 怎么将接收到的字符串转成数组
- vb 字符串转数组问题
- 如何将VB.NET 字符串转换成字节数组
- VB 如何将十六进制字符串转为同内容十六进制byte数组
- vb 怎么讲字符串转化为字符数组
如何将VB.NET字符串转换成字节数组
本文介绍了各种编码类型，然后讨论了将字符串转换成字节数组的方法。编码类型用二进制形式描述一个字符串变量有很多种方式。用来实现该功能的编码对象依赖于你选择的编码。下面是程序开发人员经常使用的编码类型：ASCII：将字符串中的每个字符使用7个比特编码。这种编码类型不能包含扩展的Uincode字符。Full Unicode（UTF-16）：将字符串中的每个字符使用16个比特编码。这种情况下对每个字符一个字节数组含有两个字节。UTF-7：对于普通的ASCII字符使用7比特编码，对于扩展字符使用多个7比特对编码。这种编码类型最常用于7比特协议中如mail等。UTF-8：对于普通的ASCII字符使用8比特编码，对于扩展字符使用多个8比特对编码。这种情况下对每个字符一个字节数组包含一个字节。
vb 中如何将string转化为byte[]数组
如果string包含的是二进制数据或者是ANSI编码格式的文本，直接赋值给byte数组变量即可（是的，就是这么简单）：
imagebytes = dr.Rows(0).Item("Content")
如果是Unicode编码格式的文本（这是VB内部默认的编码格式），则需要转换一下：
imagebytes = StrConv(dr.Rows(0).Item("Content"), vbFromUnicode)
原理很简单，字节数组在内存中的排列方式与字符串是完全一样的（一个字节就是一个字符），所以这两种数据类型其实是可以互换的，唯一要注意的就是编码问题，Unicode编码格式下，所有字符（包括半角的字母、数字、符号以及全角的汉字等）都是占用两个字节的，所以需要转换为原始的ANSI格式（半角字符占用一个字节，全角字符占用两个字节）。
VB中如何把字符串拆开赋给数组
split函数就能做到
首先先申请一个字串数组
比如你有一个字符串str，里面有“aaa,bbb,ccc”
然后要拆成aaa
bbb
ccc分到三个变量里
就这样：dim
a(0
to
2)
as
string
a=split(str,",")
于是你再去看a数组，就变成这样了:
a(0)="aaa"
a(1)="bbb"
a(2)="ccc"
vb如何将字符串转换到字节数组
Dim S As String, a() As Byte, S1 As String
S = "123456abcdef"
a = StrConv(S, vbFromUnicode) ’字符串转换为字节数组
S1 = StrConv(a, vbUnicode) ’字节数组转换为字符串
MsgBox S1
vb 怎么将接收到的字符串转成数组
1.
STR1=...
DIM B()AS BYTE
REDIM B(LENB(STR1)-1)
COPYMEMORY B(0),byval strptr(str1),lenb(str1)
因为我是手机，copymemory的定义请自行百度
3.可以用STRCONV
至于转换为数字，不知道你的要求 。一个LONG数字占4字节，如果你是说把4个数据作为一个数字返回，也可以用COPYMEMORY.另一种更直观(但更慢)的方法是 NUM=BYTE(0)*&H1000000+BYTE(1)*&H10000+BYTE(2)*&H100+BYTE(3)
vb 字符串转数组问题
Do While InStr(str1, " ")
str1 = Replace(str1, " ", " ")
Loop
大概是这个意思吧 就是把STR1这个字符串中所有 两个空格或者两个以上的空格 都变成一个空格
如何将VB.NET 字符串转换成字节数组
ToCharArray()
例如：str="asdfafafafaf"
str.toCharArray就是一个Char()数组了。
VB 如何将十六进制字符串转为同内容十六进制byte数组
首先，建议你用
空格
把所有要发送的
字符
分隔开来，如果你想发一个“FF920C8549023572........a807a”，你知道是第一个字节应该发"0F"和还是"FF"呢？“F
F9
20
C8...”这样就容易的多了。
以下是按
你的要求
写的
程序
，如果输入使用空格隔开，
注释
掉一句话即可。
Const
sHexDef
As
String
=
"0123456789ABCDEF"
Dim
sChr
As
String
Dim
iHex
As
Long
Dim
iLev
As
Long
’记录当前是低位还是高位，0位换字节
Dim
iVal
As
Long
Dim
i
As
Long
Dim
iIndex
As
Long
a
=
Text1.Text
iIndex
=
0
a
=
Trim(a)
If
Len(a)
Mod
2
》
0
Then
a
=
"0"
&
a
’连续输入内容，例如"FFADFAE"，需使用
这句话
，用以判断开头的“0F”问题；若使用“0F
FF
FA
03”之类的格式，需注释掉这行
a
=
a
&
"
"
For
i
=
1
To
Len(a)
sChr
=
VBA.Mid(a,
i,
1)
iHex
=
InStr(sHexDef,
sChr)
If
iLev
=
2
Or
iHex
=
0
Then
iLev
=
0
ReDim
Preserve
b(iIndex)
b(iIndex)
=
iVal
iVal
=
0
iIndex
=
iIndex
+
1
End
If
If
iHex
》
0
Then
iLev
=
iLev
+
1
iVal
=
iVal
*
16
+
(iHex
-
1)
End
If
Next
i
vb 怎么讲字符串转化为字符数组
直接将text中的每个字符循环取出
Dim mystr() As String
Dim i as integer
Redim mystr(len(TEXT1.TEXT))
for i=1 to len(TEXT1.TEXT)
mystr(i)=mid(TEXT1.TEXT,i,1)
next
更多文章：
form表单制作（为什么制作的form表单会在网页显示中多出一行）
2026年10月11日 09:10
teammate（teammate,company,partner）
2026年10月11日 06:10
javascript arraybuffer（javascript可以把base64编码转换成二进制代码吗求示例代码！）
2026年10月11日 04:00
text函数公式（excel中round和text函数的区别是什么）
2026年10月11日 03:50
2026年10月11日 02:40
google chrome打不开（chrome浏览器打不开怎么回事 浏览器打不开的处理方法）
2026年10月11日 02:00
websocket整合springboot（Springboot整合Websocket遇到的坑）
2026年10月11日 01:40
2026年10月11日 00:40
drawerlayout（android 怎样让drawerlayout设置的侧滑菜单的内容充满屏幕）
2026年10月10日 19:20
xor四位数怎么运算（单片机怎样用C语言实现4个数字间的异或）
2026年10月10日 17:50
