tabnation

template saver

May 20th, 2021 (edited)
274
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.22 KB | None | 0 0
  1. ;tab nation may 2021 v1
  2. SetWorkingDir %A_ScriptDir%
  3.  
  4. ;===============================================
  5. ;Main GUI
  6. ;===============================================
  7.  
  8. f1::
  9. mainGUI:
  10.  
  11. List=
  12. loop, Files, % A_ScriptDir "\*.*"
  13. {
  14. SplitPath, A_LoopFileName,,,, FileName
  15. List .= FileName "|"
  16. }
  17. List := RTrim(List, "|")
  18. List := StrReplace(List, "|", "||",, 1) ; make first item default
  19. List := StrReplace(List, "Template Saver|")
  20. List := StrReplace(List, "Template Saver")
  21.  
  22. Gui, Destroy
  23. Gui, Add, GroupBox, x12 y9 w330 h50 , Pick Your Template
  24. Gui, Add, DropDownList, x22 y29 w200 h250 vTempPick, % List
  25. Gui, Add, Button, x232 y29 w100 h20 gCopy2Clip, Copy to Clipboard
  26. Gui, Add, GroupBox, x12 y59 w330 h50 , New / Edit Template
  27. Gui, Add, Button, x22 y79 w90 h20 gCreateNew, New
  28. Gui, Add, Button, x122 y79 w90 h20 gEditDelete, Edit / Delete
  29. Gui, Add, Text, x122 y109 w120 h20 , Press F1 to reopen GUI
  30. Gui, Show, x784 y451 h131 w357, Template Main
  31. Return
  32.  
  33. GuiClose:
  34. Gui, Destroy
  35. Return
  36.  
  37. Copy2Clip:
  38. Gui, submit, Nohide
  39. FileRead, TempPick, %TempPick%.txt
  40. Clipboard = %TempPick%
  41. Return
  42.  
  43. ;===============================================
  44. ;Create New Template
  45. ;===============================================
  46. CreateNew:
  47. Gui, Destroy
  48. Gui, Add, GroupBox, x12 y9 w450 h240 , Enter Template
  49. Gui, Add, Edit, x22 y29 w430 h210 vNewTemp, Hello _______ how was your day
  50. Gui, Add, GroupBox, x12 y249 w450 h50 , Name Your Template and Press Save
  51. Gui, Add, Edit, x22 y269 w270 h20 vNameTemp,
  52. Gui, Add, Button, x302 y269 w150 h20 gSaveTemp, Save
  53. Gui, Show, x704 y365 h318 w479, Create New
  54. Return
  55.  
  56. ;===============================================
  57. ;Save New Template
  58. ;===============================================
  59. SaveTemp:
  60. Gui, Submit
  61. FileAppend, %NewTemp%, %NameTemp%.txt
  62. goto mainGUI
  63. Return
  64.  
  65. ;===============================================
  66. ;Edit Delete Template
  67. ;===============================================
  68. EditDelete:
  69.  
  70. List=
  71. loop, Files, % A_ScriptDir "\*.*"
  72. {
  73. SplitPath, A_LoopFileName,,,, FileName
  74. List .= FileName "|"
  75. }
  76. List := RTrim(List, "|")
  77. List := StrReplace(List, "|", "||",, 1) ; make first item default
  78. List := StrReplace(List, "Template Saver|")
  79. List := StrReplace(List, "Template Saver")
  80.  
  81. Gui, Destroy
  82. Gui, Add, GroupBox, x12 y39 w450 h240 , Enter Template
  83. Gui, Add, Edit, x22 y59 w430 h210 vEditTemp,
  84. Gui, Add, DropDownList, x12 y9 w210 h250 vTempPick, % List
  85. Gui, Add, Button, x232 y9 w70 h20 gLoadTemp, Load
  86. Gui, Add, Button, x392 y9 w70 h20 gDeleteTemp, Delete
  87. Gui, Add, Button, x312 y9 w70 h20 gSaveEdit, Save
  88. Gui, Show, x670 y380 h294 w479, Edit / Delete Template
  89. Return
  90.  
  91. DeleteTemp:
  92. Gui, Submit
  93. FileDelete, %TempPick%.txt
  94. goto mainGUI
  95. Return
  96.  
  97. LoadTemp:
  98. Gui, Submit, nohide
  99. FileRead, EditTemp, %TempPick%.txt
  100. GuiControl,, EditTemp, %EditTemp%
  101. Return
  102.  
  103. SaveEdit:
  104. Gui, Submit
  105. FileDelete, %TempPick%.txt
  106. FileAppend, %EditTemp%, %TempPick%.txt
  107. goto mainGUI
  108. Return
  109.  
  110.  
  111. f2::
  112.  
  113. Loop, %A_ScriptDir%\*.txt{ ; insert dir of current folder see link below
  114. StringReplace, ItemInList, A_LoopFileName, .txt, , All
  115. Menu, MyMenu, Add, %ItemInList%, MenuHandler
  116. }
  117. Menu, MyMenu, Show
  118. Return
  119.  
  120. MenuHandler:
  121. FileRead, TempPick, %A_ThisMenuItem%.txt
  122. Clipboard = %TempPick%
  123. send ^v
  124. return
  125.  
  126.  
  127.  
Add Comment
Please, Sign In to add comment