吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 2929|回复: 0
收起左侧

[其他转载] vbs打乱文件内容 包括txt、xml等 不可恢复的

[复制链接]
kllay 发表于 2015-3-20 13:12
ption explicit
dim fso,fread,str,strarry,linestr,fread1,linestrs,wj
wj=inputbox("Please enter the file name","File with the script in the same directory","text.txt")
set fso=createobject("scripting.filesystemobject")
set fread=fso.opentextfile(wj,1)
str=fread.readall
fread.close
if str="" then
   wscript.echo "file have not any content"
   wscript.quit
end if
strarry=split(str)
set fread1=fso.opentextfile(wj,2)
for each linestr in strarry
linestr=StrReverse(linestr)
   linestrs=right(linestr,5)+linestr&" "&"."+right(linestr,1)+"#"+linestrs+left(linestr,5)&chr(13)&chr(10)
   linestr=StrReverse(linestr)
next
fread1.write linestrs
fread1.close
set fso=nothing

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-15 04:09

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表