regex - Vbscript to Extract Data between two Keywords with RegExp -


i want extract block of data between 2 keywords :#start , :#end

so have file contains:

xxxxxxxxx

yyyyyyyyyyyyy ...........

:#start

extracting data block ...................
:#end

zzzzzzzzzzzzzzzzzzzzzzzzzzzzz

pppppppppppppppppppppppppppppppp

so how can in vbscript using regexp ?

ok , solved : explain little why want extract data :

so have batch file contains hta file extracted it, put hta code between :#start :#end

some code of batch file :

@echo off  :#start <html> <head> <title>password entry</title> <hta:application id="htaid" applicationname="password" border="thin" icon="wlrmdr.exe" borderstyle="normal" caption="yes" contextmenu="no" maximizebutton="no" minimizebutton="yes" navigable="yes" showintaskbar="yes" singleinstance="yes" sysmenu="yes" scroll="no"  showintaskbar="yes"    selection="no" minimizebutton="no"  > </head> <meta http-equiv="msthemecompatible" content="yes">  <body topmargin="1" leftmargin="1"><center><div><span id="onscr"></span></div></center></body> <script language="vbscript"> '--------------------------------------------------------------------------------------- sub window_onload     centerwindow 250,150     call passwordform()     call textfocus() end sub '--------------------------------------------------------------------------------------- sub centerwindow(x,y)     dim ileft,itop     window.resizeto x,y     ileft = window.screen.availwidth/2 - x/2     itop = window.screen.availheight/2 - y/2     window.moveto ileft,itop end sub '---------------------------------------------------------------------------------------- sub savebatch()     set fs=createobject("scripting.filesystemobject")     strfile=fs.getabsolutepathname(fs.buildpath(fs.getspecialfolder(2), "userin.bat"))     set ts=fs.opentextfile(strfile,2,true)     if passwordarea.value <> ""         ts.writeline "set password="& passwordarea.value         ts.close         self.close 'to close hta after saving password variable userin.bat     else         msgbox "the password entry empty ! "& vbcrlf & "please type again passowrd",vbexclamation,"the password entry"         location.reload(true) 'to reload hta again     end if end sub '---------------------------------------------------------------------------------------- sub passwordform()     self.document.title = "my password enrty"     self.document.bgcolor = "#bbbfff"     onscr.innerhtml="<center><font color=""#ffffff"" size=""+1"" face=""verdana,arial,helvetica,sans-serif"">password entry</font<br>"_     &"<input type=""password"" name=""passwordarea"" size=""20"" onkeyup=""textfocus""><p>"_     &"<input type=""submit"" style=""height:25;width:110"" value=""ok"" onclick=""savebatch"">" end sub '---------------------------------------------------------------------------------------- sub textfocus     passwordarea.focus  end sub '---------------------------------------------------------------------------------------- </script> </body> </html> :#end ::*********************************************************************************************** :myvbs ::'**********************************************************************************************

the vbs file :

 set fso = createobject("scripting.filesystemobject")  set f=fso.opentextfile("htabatchvbscript.bat",1)  a=f.readall  set r=new regexp  r.global = true  r.multiline = true  r.ignorecase = true  r.pattern = "(?:^|(?:\r\n))(?::#start\r\n)([\s\s]*?)(?:\r\n)(?::#end)"  set matches = r.execute(a)  if matches.count > 0 data = matches(0).submatches(0)  msgbox data  writefiletext "test.hta",data  f.close '********************************************************************************************** function writefiletext(sfile,data)      dim objfso,ots,stext      set objfso = createobject("scripting.filesystemobject")      set ots = objfso.createtextfile(sfile,2)      ots.writeline data      ots.close      set ots = nothing      set objfso = nothing  end function

i have finished writing batch generate hta box hide password in commandline , want share :

@echo off title generate hta box hide password in commandline copyright hackoo 2014 mode con cols=80 lines=5 & color 9b set myvbsfile=%tmp%\%~n0.vbs set myhtafile=%tmp%\%~n0.hta call :createmyvbs cscript.exe //nologo %myvbsfile% start /wait mshta.exe "%myhtafile%" del "%myvbsfile%" & del "%myhtafile%" /f "tokens=*" %%i in (%tmp%\userin) set "mypassword=%%i" echo password : %mypassword% del %tmp%\userin pause  :#start <html> <head> <title>password entry</title> <hta:application id="htaid" applicationname="password" border="thin" icon="wlrmdr.exe" borderstyle="normal" caption="yes" contextmenu="no" maximizebutton="no" minimizebutton="yes" navigable="yes" showintaskbar="yes" singleinstance="yes" sysmenu="yes" scroll="no"  showintaskbar="yes"    selection="no" minimizebutton="no"  > </head> <meta http-equiv="msthemecompatible" content="yes">  <body topmargin="1" leftmargin="1"><center><div><span id="onscr"></span></div></center></body> <script language="vbscript"> '--------------------------------------------------------------------------------------- sub window_onload     centerwindow 250,150     call passwordform()     call textfocus() end sub '--------------------------------------------------------------------------------------- sub centerwindow(x,y)     dim ileft,itop     window.resizeto x,y     ileft = window.screen.availwidth/2 - x/2     itop = window.screen.availheight/2 - y/2     window.moveto ileft,itop end sub '---------------------------------------------------------------------------------------- sub savebatch()     set fs=createobject("scripting.filesystemobject")     strfile=fs.getabsolutepathname(fs.buildpath(fs.getspecialfolder(2),"userin"))     set ts=fs.opentextfile(strfile,2,true)     if passwordarea.value <> ""         ts.writeline passwordarea.value         ts.close         self.close 'to close hta after saving password variable userin.bat     else         msgbox "the password entry empty ! "& vbcrlf & "please type again passowrd",vbexclamation,"the password entry"         location.reload(true) 'to reload hta again     end if end sub '---------------------------------------------------------------------------------------- sub passwordform()     self.document.title = "my password enrty"     self.document.bgcolor = "lightblue"     onscr.innerhtml="<center><font color=""#ffffff"" size=""+1"" face=""verdana,arial,helvetica,sans-serif"">password entry</font<br>"_     &"<input type=""password"" name=""passwordarea"" size=""20"" onkeyup=""textfocus""><p>"_     &"<input type=""submit"" style=""height:25;width:110"" value=""ok"" onclick=""savebatch"">" end sub '---------------------------------------------------------------------------------------- sub textfocus     passwordarea.focus  end sub '---------------------------------------------------------------------------------------- </script> </body> </html> :#end ::*********************************************************************************************** :createmyvbs ::'********************************************************************************************** ( echo. set fso = createobject^("scripting.filesystemobject"^) echo. set f=fso.opentextfile^("%~f0",1^) echo. a=f.readall echo. set r=new regexp echo. r.pattern = "(?:^|(?:\r\n))(?::#start\r\n)([\s\s]*?)(?:\r\n)(?::#end)" echo. set matches = r.execute^(a^) echo. if matches.count ^> 0 data = matches^(0^).submatches^(0^) echo. writefiletext "%myhtafile%",data echo. f.close ::'********************************************************************************************** echo.  echo. function writefiletext^(sfile,data^) echo.     dim objfso,ots,stext echo.     set objfso = createobject^("scripting.filesystemobject"^) echo.     set ots = objfso.createtextfile^(sfile,2^) echo.     ots.writeline data echo.     ots.close echo.     set ots = nothing echo.     set objfso = nothing echo. end function  ) > %myvbsfile% ::'***********************************************************************************************

Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv...
Read more

python - Django-cities exits with "killed" -

i trying install django-cities on server 500mb ram. whenever run: manage.py cities the system exits saying killed. trying run: manage.py cities --import=country --force worked, guessing matter of running out of memory. to bypass, tried refer package local copy of cities' data file. still didn't work. any ideas on how can migrate data without having increase memory on server? based on suggestion comments, solved setting temporary swap file. if unfamiliar it, can follow these steps: set swap file touch /var/swap.img chmod 600 /var/swap.img set swap file size cd /var dd if=/dev/zero of=/var/swap.img bs=1024k count=1000 this create 1gb swap file. prepare disk image mkswap /var/swap.img activate swap memory swapon /var/swap.img once done, can turn off swap image: swapoff /var/swap.img more information on virtual memory , swap files can found here: https://www.digitalocean.com/community/tutorials/how-to-configure-virtual-me...
Read more

python - How to get a widget position inside it's layout in Kivy? -

i have gridlayout , added image widgets on after adding of images want draw rectangle in each image using canvas couldn't because don't know exact image widgets positions on gridlayout. code: http://paste.ofcode.org/3bdp9yhjrcrzmsztbu9hqp4 http://paste.ofcode.org/3az3gx4fxzr9dlhe2ami97c in last line of python code : rectangle(pos = (child.x - 2.4, child.y + 467), size = (70, 70)) how draw rectangle in child(my method not good^), also why gridlayout not coming in center after setting it's pos_hint = {"center_x" : .5}? if understand question right, try use such methods to_local() , to_parent() , to_widget() , to_window() . try substract position of gridlayout widgets' positions.
Read more