Advertisement
kiwijunglist

Untitled

Aug 4th, 2013
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.16 KB | None | 0 0
  1. #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
  2. SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
  3. SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
  4. SetBatchLines -1
  5. ListLines Off
  6. #Hotstring SI ; Recommended for Hotstrings
  7. #SingleInstance Force ; Good for all of my scripts
  8. ;#Warn ; Recommended for catching common errors.
  9.  
  10. SplitPath, A_ScriptName,,,, ScriptName ;Remove extension from A_ScriptName
  11. FileEncoding, UTF-8 ;Should be; CP1252 = ANSI
  12.  
  13.  
  14. myList =
  15. (
  16. <A HREF="http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/ntcmds.mspx?mfr=true" ADD_DATE="1301066630" LAST_MODIFIED="1303541490">Microsoft Windows XP - Command-line reference A-Z</A>
  17. )
  18.  
  19. Loop, Parse, myList, `n, `r
  20. {
  21. RegExMatch( A_LoopField, "HREF=""(.[^""]*)""", MatchLink ) ;Extract Link
  22. RegExMatch( A_LoopField, ">(.[^<>]*)</A>", MatchName ) ;Extract Name
  23. ;MsgBox, %MatchLink% %MatchName%
  24. myFinal .= "`n" . MatchLink1 . "`n" . MatchName1
  25. ;MsgBox, % Match%N% Match%NP% MatchT%N%
  26. ;MsgBox, % Match%NP%
  27. }
  28. ;Sort, myFinal
  29.  
  30. Gui, add, edit,w600 r30 , %myFinal%
  31. Gui, show
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement