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