ASCII转十六进制小工具
来源:互联网 发布:2016淘宝打造爆款步骤 编辑:程序博客网 时间:2024/05/16 16:11
今天要做一个性能测试,开发人员直接从日志中截取了一大堆的十六进制报文给我,但是因为是asc码的,没法直接使用,还得先转换成16进制报文才行。
baidu一下,净是c的,以前倒是用c++ builder写过一个,也有c的,但是早就不知道扔到哪里去了,而且要环境,现在深深感觉到vbs还是好用呀,文本编辑器就可以了。写了两个,一个是直接进行文件转换,另一个就转换一个字符串,用得上的同学可以留着,用不上的同学散了吧。
文件转换的代码:
dim strInFile,strOutFile,strLine
Dim dt1, dt2
dt1 = Now
strInFile="mes1.txt"
strOutFile=getNow() & ".dat"
strall=""
Set fs=createobject("scripting.filesystemobject")
Set f=fs.opentextfile(strInFile,1,true)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim stream, xmldom, node
Set xmldom = CreateObject("Microsoft.XMLDOM")
Set node = xmldom.CreateElement("binary")
node.DataType = "bin.hex"
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
Do Until f.AtEndOfStream
strLine=f.ReadLine
node.Text = strLine & vbcrlf
stream.write node.NodeTypedValue
Loop
f.close
Set f=nothing
Set fs=nothing
stream.saveToFile strOutFile, adSaveCreateOverWrite
stream.Close
Set stream = Nothing
Set node = Nothing
Set xmldom = Nothing
dt2 = Now
MsgBox "执行完成,总共用时:" & DateDiff("s", dt1, dt2) & "秒"
Function getNow()
Dim d
Dim sRet
d=Now()
sRet=Year(d) & Right("00" & Month(d),2) & Right("00" & Day(d),2) & Right("00" & Hour(d),2) & Right("00" & Minute(d),2) & Right("00" & Second(d),2)
getNow=sRet
End Function
单行转换的代码:
'写二进制文件
Call WriteBinary("001.dat","2A485132303031383932333737333639362C41443126413131343635333232333338333433313134303733333634363030313932313031313426423032303030303030303026433030313A35353E3826463030303023")
MsgBox "done"
Sub WriteBinary(FileName, Buf)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim stream, xmldom, node
Set xmldom = CreateObject("Microsoft.XMLDOM")
Set node = xmldom.CreateElement("binary")
node.DataType = "bin.hex"
node.Text=Buf
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.write node.NodeTypedValue
stream.saveToFile FileName, adSaveCreateOverWrite
stream.Close
Set stream = Nothing
Set node = Nothing
Set xmldom = Nothing
End Sub
- ASCII转十六进制小工具
- 图片转十六进制数组保存的小工具
- C#写的浮点或汉字转十六进制小工具
- Android百分制透明度转十六进制的C#windows小工具
- 前端小工具 【转】
- 分享自己写的一个小工具RGB转十六进制(高手勿喷)
- 十六进制转ascii 码
- 十六进制字符串转ascii
- ASCII转十六进制
- 小工具:把十进制RGB颜色转换成十六进制
- 中文转换Ascii和Unicode编码小工具-代码
- ascii码表经常用到,方便自己的小工具
- QuickTest Plus 小工具 (转)
- 在线转二维码小工具
- 小工具
- 小工具
- 小工具
- 小工具
- bitmap一些属性
- Linux 标准目录结构
- ArcGIS for IOS 判断点是否在地图绘制的区域内(个人)
- 如何指定文件编码写文件
- [算法]快速指数模
- ASCII转十六进制小工具
- pushViewController/presentModalViewController/addSubView区别及使用方法
- 谷歌是否让我们变得愚蠢?
- 固定资产的四种折旧方式
- ViewPager onPageChangeListener总结
- HDU1232(解题报告)
- .l文件转.c文件
- 黑马程序员------面向对象
- JQuery dataTables应用