如何输入二进制数组vb
2025-05-25 23:02:35
梦想成真
已认证
已认证梦想成真为您分享以下优质知识
在VB中输入二进制数组的方法主要有以下两种方式，具体取决于数据来源：
一、从文件读取二进制数据
打开文件并读取二进制数据
使用`Open`语句以二进制模式打开文件，通过`LOF`函数获取文件长度，动态分配数组并逐字节读取数据。
```vb
Dim arrBinary() As Byte
Open "C:123.exe" For Binary As 1
ReDim arrBinary(LOF(1) - 1)
Get 1, arrBinary()
Close 1
```
写入二进制数据到文件
同样以二进制模式打开目标文件，使用`Put`语句将数组数据写入。
```vb
Open "C:456.exe" For Binary As 1
Put 1, arrBinary
Close 1
```
二、从文本文件解析二维二进制数据
逐行读取文本文件
使用`Line Input`按行读取文本文件，通过`Split`函数按分隔符（如制表符）分割每行数据。
```vb
Dim strLine As String
Dim strNums() As String
Dim p() As Integer
For i = 0 To UBound(strNums) - 1
strLine = Input$(LOF(1), 1)
strNums = Split(strLine, "t")
For j = 0 To UBound(strNums) - 1
p(i, j) = CInt(strNums(j))
Next j
Next i
Close 1
```
注意事项
- 确保数组维度与文本文件格式匹配，避免越界错误。
- 可通过`UBound`函数动态获取数组最大索引。
以上方法适用于不同场景，文件操作需注意路径有效性及权限问题。
