本帖最后由 wankoilz 于 2013-5-12 11:27 编辑
试试vbs吧,十万行还真不知道会等多久,你试试再回复。
假设你文本中的换行符是vbCrLf。只支持拖拽一个文件。
测试环境:Win7- Set fso=CreateObject("scripting.filesystemobject")
- content=fso.OpenTextFile(WScript.Arguments(0)).ReadAll()
- content=Replace(content,"%","")
- content=Replace(content,vbCrLf,"0d0a")
- Set xmldom=CreateObject("microsoft.xmldom")
- Set node=xmldom.createElement("bin-hex")
- node.datatype="bin.hex"
- node.text=content
-
- Set ado=CreateObject("adodb.stream")
- ado.Type=1
- ado.Mode=3
- ado.Open
- ado.Write node.nodeTypedValue
- path=GetPath(WScript.Arguments(0))
- filename=GetFileName(WScript.Arguments(0))
- If fso.FileExists(path&filename) Then fso.DeleteFile path&filename
- ado.SaveToFile path&filename
- Msgbox "over!"
-
- Function GetFileName(str)
- arr=Split(str,"\")
- GetFileName="GBK_"&arr(UBound(arr))
- End Function
-
- Function GetPath(str)
- arr=Split(str,"\")
- For i=0 To UBound(arr)-1
- GetPath=GetPath&arr(i)&"\"
- Next
- End Function
复制代码
|