Function change(str As String) As String
Dim i As Integer
Dim tmp As String '未处理的字符串
Dim rst As String '处理过的16进制字符串
Dim s_head As String
Dim s_tail As String
Dim i_head As Integer
Dim i_tail As Integer
tmp = ""
rst = ""
s_head = ""
s_tail = ""
i_head = InStr(str, "@(")
i_tail = InStr(str, ")")
If i_head <> 0 Then
If i_tail = 0 Then
MsgBox "打印固定数据格式不正确!"
Else
s_head = s_head & Mid(str, 1, i_head - 1)
s_tail = s_tail & Mid(str, i_tail + 1, Len(str))
tmp = tmp & Mid(str, i_head + 2, i_tail - 1)
For i = 1 To Len(tmp) Step 2
rst = rst & Chr(CInt("&H" & Mid(tmp, i, 2)))
Next i
'写入文件的字符串
change = s_head & rst & s_tail
End If
Else
change = str
End If
End Function提示rst = rst & Chr(CInt("&H" & Mid(tmp, i, 2)))类型不匹配,请问怎么回事?类型不都是string吗?
解决方案 »
- 有没有api可以通过进程号结束进程
- 请教一个关于三角形的问题。
- 关于求助MSFlexGrid控件使用 ,没能解决,请帮帮忙!!!
- 5:14就起来问问题了:)
- 关于代码执行速度的问题。
- 各位拉我一把
- 关于VB打包的问题,XP打包,2000上装不上,郁闷。
- 大家好,我有个问题,就是如何用热键呼出窗体,在游戏里显示出来!
- 关于SQL导入DBF库的问题
- 想在用VB6.0制作的软件调用tom365和skyme站内搜索引擎,请问各位大虾该如何实现
- 求助:access中如何通过VBA,创建一个查询,并把指定的SQL语句复制进这个查询
- SQL语句里,如何用一个开始时间一个结束时间为条件,查询一个时间段内的数据。请高手指教。
看看报错的时候Mid(tmp, i, 2)截取出来的是什么