回复 33楼 lianyicq
现在我把代码又修正了一下,红色字体的代码也可以执行了,而且id值也是正确的,即id=19
但是后面的处理程序没有正常工作,即下面红色字体处,该怎样才能把刚收到的全部数据转换成字符串进行处理?
现在的代码输出的tmp值为空。
Select Case id
Case Is = 19
'当id为19时,表示接收的为设定信息
'显示信息
tmp = Mid(StrConv(1, vbUnicode), 6000, 10000) '将全部查询数据转换为字符串,并截取中间部分
text7.text = tmp
S3 = Split(tmp, "ST", , vbBinaryCompare)
'字符串分解,区分大小写
'Text4.Text = Trim(s3)
For i = 1 To UBound(S3)
s1 = Split(Split(S3(i), vbCrLf)(0), ",")(1)
'取通道标记
s1 = Trim(s1)
Text2 = Text2 + s1 + vbCrLf
Form4.CHNAME(j - 1) = Trim(s1)
Next i
End Select
[
本帖最后由 hcyang1422 于 2015-5-6 14:56 编辑 ]