急急急！VB:我把一个文本分成了五包，每包六百字节，最后一包不满怎么办？

VB中怎样把字节写入txt文本里~

你好！就如你那样写就可以完成啦！不过我发现你代码里少了关闭文件“Close #1”这样写吧：
Private Sub Command1_Click()
Dim aa As Byte
FileNum=FreeFile'使用FreeFile函数生成系统没有使用的文件号
aa = "&H9 & &H18 & &H10 & &H14 & &H3B & &H3B & &H11D & &H1C & &H1"
Open "c:\w.txt" For Output As #FileNum
Print #FileNum, aa
Close #FileNum
End Sub

Private Sub Command1_Click()
Dim b() As Byte
b = byt(77)
For i = 1 To 8
Text1.Text = b(i) & Text1.Text
Next i
End Sub
Private Function byt(asc As Integer) As Byte()
'这个函数的参数是要转换的字符的ascii码
'传出保存二进制各个位的数组
Dim b(8) As Byte
'循环由低位到高位得到二进制数，保存到数组
For i = 1 To 8
b(i) = asc Mod 2
asc = asc \ 2
Next i
byt = b
End Function

dim data as byte
do while not eof(#文件号)
get #1,,data
loop
data读入的就是8位数值

实际上你缺少一个数据结束的标志，这个标志太短自然不行，太长也浪费，一般设置成32位或者16位？呵呵，自己实验吧。
如果数据用于传输，我想这个判断标志应该是要有的，否则后患无穷！
因为你的大小限制就是600字节，所以有可能出现结束标志位置不够的情况。解决的办法就是，为结束标志多留出一些空间。
在数据显示的时候，我们要判断一下是否遇到结束标志，也就是相当于文件的Eof，遇到之后后面的数据就不要了。

在每一个包的开始设置一个包长部分，如果包大小为600个字节，你用开始的两个字节表示包中内容的实际长度就可以了，包格式类似于：

内容长度（两个字节）+内容（最大不超过600字节）

这样包的总长度最大为602字节。

---

急急急！VB:我把一个文本分成了五包，每包六百字节，最后一包不满怎么办？视频