神马品牌网小学教师职称工作总结:求助一个VB编辑数据的问题，高手进，谢谢
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 16:03:08
用VB打开一个16进制数据文件，字符数据显示在RichTextBox中，通过VB怎样能将这些数据按规律分段呢？例如发现字符BB，便开始截取字符BB到下一个BB之间的数据，显示出来，循环下去，直到回到第一个BB停止，谢谢！！！
一个16进制的数据文件，用VB打开后显示在RichTextBox中，如下：1: 1D 1D 1D E5 E5 D5 55 55 55 1D 1D 1D C6 C6 C6 FF
9: 55 1D 1D 1D C6 C6 D5 FF 0 36 20 18 11 54 45 BB
17: 0 36 20 18 11 54 45 BB 0 D5 20 18 13 7 45 30
25: 0 26 20 18 13 7 45 30 0 0 20 18 13 27 45 30
.......
把这些数据分段显示出来，例如从第一个D5到第2个D5截取：
D5 55 55 55 1D 1D 1D C6 C6 C6 FF 55 1D 1D 1D C6 C6 D5
循环下去，D5 FF 0 36 20 18 11 54 45 BB 0 36 20 18 11 54 45 BB 0 D5 （第2~3个D5间的数据）....
最后得到显示效果：
D5 55 55 55 1D 1D 1D C6 C6 C6 FF 55 1D 1D 1D C6 C6 D5
D5 FF 0 36 20 18 11 54 45 BB 0 36 20 18 11 54 45 BB 0 D5
....（显示在文本中或者另一个RichTextBox或别的控件中均可）
显示在RichTextBox中后，是不是可以把它看成是VB打开一个文本文件呢？要是那样的话，应该用编辑文本的码子操作应该能做到吧？思考中......请求支援，谢谢
一个16进制的数据文件，用VB打开后显示在RichTextBox中，如下：1: 1D 1D 1D E5 E5 D5 55 55 55 1D 1D 1D C6 C6 C6 FF
9: 55 1D 1D 1D C6 C6 D5 FF 0 36 20 18 11 54 45 BB
17: 0 36 20 18 11 54 45 BB 0 D5 20 18 13 7 45 30
25: 0 26 20 18 13 7 45 30 0 0 20 18 13 27 45 30
.......
把这些数据分段显示出来，例如从第一个D5到第2个D5截取：
D5 55 55 55 1D 1D 1D C6 C6 C6 FF 55 1D 1D 1D C6 C6 D5
循环下去，D5 FF 0 36 20 18 11 54 45 BB 0 36 20 18 11 54 45 BB 0 D5 （第2~3个D5间的数据）....
最后得到显示效果：
D5 55 55 55 1D 1D 1D C6 C6 C6 FF 55 1D 1D 1D C6 C6 D5
D5 FF 0 36 20 18 11 54 45 BB 0 36 20 18 11 54 45 BB 0 D5
....（显示在文本中或者另一个RichTextBox或别的控件中均可）
显示在RichTextBox中后，是不是可以把它看成是VB打开一个文本文件呢？要是那样的话，应该用编辑文本的码子操作应该能做到吧？思考中......请求支援，谢谢
能不能再详细描述你的问题呢？
读取字符到一个字符串变量s,然后用split函数,将分割后的数据存入sArray数组.最后再连接上分割符就行
伪代码如下:
Dim sArray As Variant
Dim i As Integer
s=richtextbox.text
sArray=Split(s,"D5")
for i=Lbound(sArray) to Ubound(sArray)
Debug.Print"D5" & sArray(i) & "D5"
next