Jump to content

Read

Active Members
  • Posts

    112
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Read's Achievements

Adventurer

Adventurer (3/7)

0

Reputation

  1. http://www.amazon.com/dp/B00N5E579W/ref=wl_it_dp_o_pC_nS_ttl?_encoding=UTF8&colid=2R26DRFTGUUA&coliid=I3LSP96XZ0DQPK Script show up 7.99
  2. I tried different (Regular Expression pattern) and always my results is 0. Hard rock
  3. Work only <footer> code </footer> Not work and must work <footer> <div class="container"> <nav id="medic"> </footer> Thanks
  4. Must take javascript tags and delete all: <script type="text/javascript"> code </script> And FOOTER <footer> code </footer> This line can't used my script ???: = StringRegExpReplace($sFileContents, "(?is)(<script[^>]+javascript.*?/script>|<footer.+?/footer>)", "")
  5. I have .htm files and there is javascript. <script type="text/javascript"> moment().format('MMMM Do YYYY, h:mm:ss a'); moment().format('dddd'); moment().format("MMM Do YY"); moment().format('YYYY [escaped] YYYY'); moment().format(); //--></script> How to delete all javascipt code my .htm files? And footer! #include <File.au3> Local $aFileList = _FileListToArray(@ScriptDir, '*.htm', 1) If Not @error Then For $i = 1 To $aFileList[0] _found(@ScriptDir & '\' & $aFileList[$i]) Next EndIf Func _found($sFilePath) Local $hFileOpen = FileOpen($sFilePath, $FO_READ) Local $sFileRead = FileRead($hFileOpen) FileClose($hFileOpen) $hFileOpen = FileOpen($sFilePath, $FO_OVERWRITE) FileWrite($hFileOpen, StringRegExpReplace($sFileRead, '<footer>[^<>]+</footer>' ; ERROR Return FileClose($hFileOpen) EndFunc
  6. - Yes!
  7. Regedit recorder If I install new program then script must recording lines what entries from the registry - save in .txt Thanks
  8. Not good. Result: 1000 TEST 2500 Must have: 01000; (-- TEST --) G97M3S2500; And double click open "Program start and end". I trying to use GUICtrlCreateButton and work but I not use Button OK, I have coming left side 42 name. How to make the most logical program?
  9. Interesting. Not find a similar script
  10. someone?
  11. Thanks. New version Open program and I click "Program Start and End" and now must open new windows (code is down). Press OK and right side box coming text 01000 (-- TEST --) G97M3S2500; Program: #include <GUIConstantsEx.au3> GUICreate("CNC list", 614, 390) $btnGO = GUICtrlCreateButton("&GO", 10, 330, 75, 25) GUICtrlCreateButton("M list", 85, 330, 75, 25) GUICtrlSetFont(-1, 10, 700, -1, "MS Sans Serif") $List_1 = GUICtrlCreateList("", 10, 10, 150, 330) GUICtrlSetData($List_1, "Program Start and End|G1") $tbChosen = GUICtrlCreateEdit("", 175, 10, 420, 315) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $btnGO GUICtrlSetData($tbChosen, GUICtrlRead($List_1) & @CrLf, 1) EndSwitch WEnd New windows: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Insert: Program Start and End", 428, 205, 339, 527) $Group1 = GUICtrlCreateGroup("Parameters for 'Program Start and End'", 0, 16, 417, 145) $Label1 = GUICtrlCreateLabel("Program number [1000-6000 ]", 144, 40, 144, 17) $Input1 = GUICtrlCreateInput("", 16, 40, 121, 21) $Input2 = GUICtrlCreateInput("", 16, 72, 121, 21) $Input3 = GUICtrlCreateInput("", 16, 104, 121, 21) $Label2 = GUICtrlCreateLabel("Program description", 144, 80, 97, 17) $Label3 = GUICtrlCreateLabel("Max spindle speed", 144, 112, 92, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("OK", 336, 176, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  12. I have list left side and if I click GO then add GO right side box? How? #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> GUICreate("CNC list", 614, 390) GUICtrlCreateButton("&GO", 10, 330, 75, 25) GUICtrlCreateButton("M list", 85, 330, 75, 25) GUICtrlSetFont(-1, 10, 700, -1, "MS Sans Serif") $List_1 = GUICtrlCreateList("", 10, 10, 150, 330) GUICtrlCreateEdit("", 175, 10, 420, 315) GUICtrlSetData ( $List_1, "Go|G1|G2") GUISetState() GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  13. '<a href="http://www.autoitscript.com/forum/calender" class="example"></a>' & @CRLF & _ '<a class="p4 g5" href="xxx" class="bbc_url" title="External link" rel="nofollow external">http://www.">xxx</a>' Output is correct but if I have more and more "class" how then? <a class="p4 g5" href="http://www.">xxx</a> <a class="pe g5" href="http://www.">xxx</a> <a class="pw gh" href="http://www.">xxx</a> <a class="p4 g6" href="http://www.">xxx</a> <a class="p4 g3" href="http://www.">xxx</a>
  14. Yes but you have entered manually - class="example" and class="p4 g5". It does not include class="regex" or do make new line? FileWrite($hFileOpen, StringRegExpReplace($sFileRead, '<a (target="_blank" )?href="[^">]+', '<a \1href="#'))New line: FileWrite($hFileOpen, StringRegExpReplace($sFileRead, '<a (class="take name and read...or...")?href="[^">]+', '<a \1href="#')) English not good too.
  15. Not good I think. I know it's work like this but I have too many "class" <a (class="p4 g5" )?href="[^">]+', '<a 1href="#'))
×
×
  • Create New...