VBS11

dim fso ,file ,strChar,str,strSplit
set fso=createobject("scripting.filesystemobject")
Set Sh = CreateObject("WScript.Shell")
set file=fso.opentextfile("FileName.txt",1,true)




' 11do


do while file.atendofstream<>true '22


strChar=file.read(1)
if(strChar="<")then
str=""


elseif(strChar=">") then
'msgbox str
Sh.Run "1.bat "&str&"",0


set WriteFile=fso.opentextfile("result.txt",8,true)
 WriteFile.writeline str&"_" ' WriteFile.write str
WriteFile.close


else 
str=str&strChar&""
end if


' 11 loop until file.atendofstream


loop '22


file.close