[已解决]【求助】字符串分段处理（解码）显示<在线等>

robinliubb · 发表于 2011-7-29 11:03

本帖最后由 robinliubb 于 2011-7-29 12:27 编辑

小弟要从串口接收一组数据，并将其按不同的规则处理并显示出来
每秒串口输出的数据如下
57 40 00 20 11 07 28 19 59 58 01 07 00 00 00 09 00 00 00 11 00 00 00 5A 00 00 00 C8 06
要求转化结果为

57 40-->W,@
00 20 -->丢弃
11 07 28 19 59 58-->11年7月28日19点59分58秒
01 -->01下面数据有效，00下面数据无效
07 00 00 00 09 00 00 00 11 00 00 00 5A 00 00 00 -->有效：7,9,17,90 无效：NUL
C8 06 -->丢弃

W@11年7月28日19点59分58秒7,9,17,90

现已经用Mscomm控件完成数据的接收，保存于字符串变量receiveData中，望指教接下去该如何操作。

以下为串口接到的数据
1hex

2

期望转化目标
从控件显示
期望.png

或者
在表格中显示
期望2.png

第一次发帖，有不到位的地方，还请各位多包涵

最佳答案

月排行榜 / 总排行榜

EXCEL-YQ

2011-7-29 15:27

已经搞定了，只不过是做的自定义函数

Public Function Comm(Rng As Range)
Dim Str As String, Field1 As String, Field2 As String, Field3 As String, Field4 As String, H1 As String, H2 As String, H3 As String, H4 As String
Str = Replace(Rng.Value, " ", "")
Field1 = Chr(Application.WorksheetFunction.Hex2Dec(Mid(Str, 1, 2))) & Chr(Application.WorksheetFunction.Hex2Dec(Mid(Str, 3, 2)))
Field2 = Mid(Str, 9, 2) & "年" & Mid(Str, 11, 2) & "月" & Mid(Str, 13, 2) & "日" & Mid(Str, 15, 2) & "点" & Mid(Str, 17, 2) & "分" & Mid(Str, 19, 2) & "秒"
Field3 = Mid(Str, 21, 2)
If Field3 <> "00" Then
H1 = Application.WorksheetFunction.Hex2Dec(Mid(Str, 29, 2) & Mid(Str, 27, 2) & Mid(Str, 25, 2) & Mid(Str, 23, 2))
H2 = Application.WorksheetFunction.Hex2Dec(Mid(Str, 37, 2) & Mid(Str, 35, 2) & Mid(Str, 33, 2) & Mid(Str, 31, 2))
H3 = Application.WorksheetFunction.Hex2Dec(Mid(Str, 45, 2) & Mid(Str, 43, 2) & Mid(Str, 41, 2) & Mid(Str, 39, 2))
H4 = Application.WorksheetFunction.Hex2Dec(Mid(Str, 53, 2) & Mid(Str, 51, 2) & Mid(Str, 49, 2) & Mid(Str, 47, 2))
Field4 = H1 & "," & H2 & "," & H3 & "," & H4
End If
Comm = Field1 & Field2 & Field4
End Function

复制代码

代码没有进行精简的。
附件： (, 下载次数: 12)

望天打卦 · 发表于 2011-7-29 11:27

回复 robinliubb 的帖子

这么高深的问题啊，一定有人回复的

QLZ0602 · 发表于 2011-7-29 11:34

最好传上附件

robinliubb · 发表于 2011-7-29 12:15

Comm.rar (11.08 KB, 下载次数: 8)

雪日骄阳 · 发表于 2011-7-29 13:46

难点在于没看懂你的处理规则

兰色幻想 · 发表于 2011-7-29 14:00

你先把数据导出到单元格中，我没有你那个串口控件，也看不到任何数据，对于你的规则还不太明白，根据什么转换的

robinliubb · 发表于 2011-7-29 14:13

回复兰色幻想的帖子

恩，我马上再做个附件
那个数据转化是根据我串口发送过来的数字仪表规定的
就是W@是Ascii码
日期不变还是Hex的
四字节一个的数据转成LSB，如08 01 00 00转为00 00 01 08再算成十进制为264

robinliubb · 发表于 2011-7-29 14:33

Comm.rar (11.76 KB, 下载次数: 5)

robinliubb · 发表于 2011-7-29 14:38

回复雪日骄阳的帖子

很抱歉写了那么多没写重点
receiveData中包含n多个单元的数据，可能不是整数个，中间用空格隔开
每个单元数据如下：
W@是Ascii码51 20 转化来的
接下来两个字节一个是空格，一个是NUL
然后是日期不变还是Hex的就是11年7月开始那六个字节
下面一个字节一般都是01，是校验位，如果是00，它下面的数据可能就有错误了
然后四字节一个的数据转成LSB，如08 01 00 00转为00 00 01 08再算成十进制为264
最后两个字节也是无效的

至此循环

雪日骄阳 · 发表于 2011-7-29 14:47

不必抱歉，要抱歉是耽误了你问题的解决速度

要利用问题的解决的话，问题描述得越清楚越好，小学都看得懂了，问题解决起来就超快。说真的，对你的问题还是七窍通了六窍。见谅

		自动登录	找回密码
密码			注册