/Releases/0.5/texter.ahk

https://github.com/darnyte/texter · AutoHotKey · 1374 lines · 1217 code · 84 blank · 73 comment · 85 complexity · 6dbb25a9badd4e4c973e7226caf824a2 MD5 · raw file 

    

  1. ; Texter

    2. 

  2. ; Author:         Adam Pash <adam@lifehacker.com>

    3. 

  3. ; Gratefully adapted several ideas from AutoClip by Skrommel:

    4. 

  4. ;		http://www.donationcoder.com/Software/Skrommel/index.html#AutoClip

    5. 

  5. ; Huge thanks to Dustin Luck for his contributions

    6. 

  6. ; Script Function:

    7. 

  7. ;	Designed to implement simple, on-the-fly creation and managment 

    8. 

  8. ;	of auto-replacing hotstrings for repetitive text

    9. 

  9. ;	http://lifehacker.com/software//lifehacker-code-texter-windows-238306.php

    10. 

  10. SetWorkingDir %A_ScriptDir%

    11. 

  11. #SingleInstance,Force 

    12. 

  12. #NoEnv

    13. 

  13. StringCaseSense On

    14. 

  14. AutoTrim,off

    15. 

  15. SetKeyDelay,-1

    16. 

  16. SetWinDelay,0 

    17. 

  17. Gosub,UpdateCheck

    18. 

  18. Gosub,ASSIGNVARS

    19. 

  19. Gosub,READINI

    20. 

  20. EnableTriggers(true)

    21. 

  21. Gosub,RESOURCES

    22. 

  22. Gosub,TRAYMENU

    23. 

  23. Gosub,BuildActive

    24. 

  24. ;Gosub,AUTOCLOSE

    25. 

  25. 

    26. 

  26. FileRead, EnterKeys, %EnterCSV%

    27. 

  27. FileRead, TabKeys, %TabCSV%

    28. 

  28. FileRead, SpaceKeys, %SpaceCSV%

    29. 

  29. ;Gosub,GetFileList

    30. 

  30. Goto Start

    31. 

  31. 

    32. 

  32. START:

    33. 

  33. EnableTriggers(true)

    34. 

  34. hotkey = 

    35. 

  35. executed = false

    36. 

  36. Input,input,V L99,{SC77}

    37. 

  37. input:=hexify(input)

    38. 

  38. IfInString,ActiveList,%input%|

    39. 

  39. { ;input matches a hotstring -- see if hotkey matches a trigger for hotstring

    40. 

  40. 	if hotkey in %ignore%

    41. 

  41. 	{

    42. 

  42. 		StringTrimLeft,Bank,hotkey,1

    43. 

  43. 		StringTrimRight,Bank,Bank,1

    44. 

  44. 		Bank = %Bank%Keys

    45. 

  45. 		Bank := %Bank%

    46. 

  46. 		if input in %Bank%

    47. 

  47. 		{

    48. 

  48. 			GoSub, EXECUTE

    49. 

  49. 			executed = true

    50. 

  50. 		}

    51. 

  51. 	}

    52. 

  52. }

    53. 

  53. if executed = false

    54. 

  54. {

    55. 

  55. 	SendInput,%hotkey%

    56. 

  56. }

    57. 

  57. Goto,START

    58. 

  58. return

    59. 

  59. 

    60. 

  60. EXECUTE:

    61. 

  61. WinGetActiveTitle,thisWindow ; this variable ensures that the active Window is receiving the text, activated before send

    62. 

  62. ;; below added b/c SendMode Play appears not to be supported in Vista 

    63. 

  63. EnableTriggers(false)

    64. 

  64. if (A_OSVersion = "WIN_VISTA") or (Synergy = 1) ;;; need to implement this in the preferences - should work, though

    65. 

  65. 	SendMode Input

    66. 

  66. else

    67. 

  67. 	SendMode Play   ; Set an option in Preferences to enable for use with Synergy - Use SendMode Input to work with Synergy

    68. 

  68. if (ExSound = 1)

    69. 

  69. 	SoundPlay, %ReplaceWAV%

    70. 

  70. ReturnTo := 0

    71. 

  71. hexInput:=Dehexify(input)

    72. 

  72. StringLen,BSlength,hexInput

    73. 

  73. Send, {BS %BSlength%}

    74. 

  74. FileRead, ReplacementText, %A_ScriptDir%\Active\replacements\%input%.txt

    75. 

  75. StringLen,ClipLength,ReplacementText

    76. 

  76. 

    77. 

  77. IfInString,ReplacementText,::scr::

    78. 

  78. {

    79. 

  79. 	;To fix double spacing issue, replace `r`n (return + new line) as AHK sends a new line for each character

    80. 

  80. 	StringReplace,ReplacementText,ReplacementText,`r`n,`n, All

    81. 

  81. 	StringReplace,ReplacementText,ReplacementText,::scr::,,

    82. 

  82. 	IfInString,ReplacementText,`%p

    83. 

  83. 	{

    84. 

  84. 		textPrompt(ReplacementText)

    85. 

  85. 	}

    86. 

  86. 	IfInString,ReplacementText,`%s

    87. 

  87. 	{

    88. 

  88. 		StringReplace, ReplacementText, ReplacementText,`%s(, ˘, All

    89. 

  89. 		Loop,Parse,ReplacementText,˘

    90. 

  90. 		{

    91. 

  91. 			if (A_Index != 1)

    92. 

  92. 			{

    93. 

  93. 				StringGetPos,len,A_LoopField,)

    94. 

  94. 				StringTrimRight,sleepTime,A_LoopField,%len%

    95. 

  95. 				StringMid,thisScript,A_LoopField,(len + 2),

    96. 

  96. 				Sleep,%sleepTime%

    97. 

  97. 				;WinActivate,%thisWindow%  The assumption must be made that in script mode

    98. 

  98. 				; the user can intend to enter text in other windows

    99. 

  99. 				SendInput,%thisScript%

    100. 

  100. 			}

    101. 

  101. 			else

    102. 

  102. 			{

    103. 

  103. 				;WinActivate,%thisWindow%  The assumption must be made that in script mode

    104. 

  104. 				; the user can intend to enter text in other windows

    105. 

  105. 				SendInput,%A_LoopField%

    106. 

  106. 			}

    107. 

  107. 		}

    108. 

  108. 	}

    109. 

  109. 	else

    110. 

  110. 		SendInput,%ReplacementText%

    111. 

  111. 	return

    112. 

  112. }

    113. 

  113. else

    114. 

  114. {

    115. 

  115. 	;To fix double spacing issue, replace `r`n (return + new line) as AHK sends a new line for each character

    116. 

  116. 	;(but only in compatibility mode)

    117. 

  117. 	if MODE = 0

    118. 

  118. 	{

    119. 

  119. 		StringReplace,ReplacementText,ReplacementText,`r`n,`n, All

    120. 

  120. 	}

    121. 

  121. 	IfInString,ReplacementText,`%c

    122. 

  122. 	{

    123. 

  123. 		StringReplace, ReplacementText, ReplacementText, `%c, %Clipboard%, All

    124. 

  124. 	}

    125. 

  125. 	IfInString,ReplacementText,`%t

    126. 

  126. 	{

    127. 

  127. 		FormatTime, CurrTime, , Time

    128. 

  128. 		StringReplace, ReplacementText, ReplacementText, `%t, %CurrTime%, All

    129. 

  129. 	}

    130. 

  130. 	IfInString,ReplacementText,`%ds

    131. 

  131. 	{

    132. 

  132. 		FormatTime, SDate, , ShortDate

    133. 

  133. 		StringReplace, ReplacementText, ReplacementText, `%ds, %SDate%, All

    134. 

  134. 	}

    135. 

  135. 	IfInString,ReplacementText,`%dl

    136. 

  136. 	{

    137. 

  137. 		FormatTime, LDate, , LongDate

    138. 

  138. 		StringReplace, ReplacementText, ReplacementText, `%dl, %LDate%, All

    139. 

  139. 	}

    140. 

  140. 	IfInString,ReplacementText,`%p

    141. 

  141. 	{

    142. 

  142. 		textPrompt(ReplacementText)

    143. 

  143. 	}

    144. 

  144. 	IfInString,ReplacementText,`%|

    145. 

  145. 	{

    146. 

  146. 		;in clipboard mode, CursorPoint & ClipLength need to be calculated after replacing `r`n

    147. 

  147. 		if MODE = 0

    148. 

  148. 		{

    149. 

  149. 			MeasurementText := ReplacementText

    150. 

  150. 		}

    151. 

  151. 		else

    152. 

  152. 		{

    153. 

  153. 			StringReplace,MeasurementText,ReplacementText,`r`n,`n, All

    154. 

  154. 		}

    155. 

  155. 		StringGetPos,CursorPoint,MeasurementText,`%|

    156. 

  156. 		StringReplace, ReplacementText, ReplacementText, `%|,, All

    157. 

  157. 		StringReplace, MeasurementText, MeasurementText, `%|,, All

    158. 

  158. 		StringLen,ClipLength,MeasurementText

    159. 

  159. 		ReturnTo := ClipLength - CursorPoint

    160. 

  160. 	}

    161. 

  161. 

    162. 

  162. 	if MODE = 0

    163. 

  163. 	{

    164. 

  164. 		if ReturnTo > 0

    165. 

  165. 		{

    166. 

  166. 			if ReplacementText contains !,#,^,+,{

    167. 

  167. 			{

    168. 

  168. 				WinActivate,%thisWindow%

    169. 

  169. 				SendRaw, %ReplacementText%

    170. 

  170. 				Send,{Left %ReturnTo%}

    171. 

  171. 			}

    172. 

  172. 			else

    173. 

  173. 			{

    174. 

  174. 				WinActivate,%thisWindow%

    175. 

  175. 				Send,%ReplacementText%{Left %ReturnTo%}

    176. 

  176. 			}

    177. 

  177. 		}

    178. 

  178. 		else

    179. 

  179. 		{

    180. 

  180. 			WinActivate,%thisWindow%

    181. 

  181. 			SendRaw,%ReplacementText%

    182. 

  182. 		}

    183. 

  183. 	}

    184. 

  184. 	else

    185. 

  185. 	{

    186. 

  186. 		oldClip = %Clipboard%

    187. 

  187. 		Clipboard = %ReplacementText%

    188. 

  188. 		if ReturnTo > 0

    189. 

  189. 		{

    190. 

  190. 			WinActivate,%thisWindow%

    191. 

  191. 			Send,^v{Left %ReturnTo%}

    192. 

  192. 		}

    193. 

  193. 		else

    194. 

  194. 		{

    195. 

  195. 			WinActivate,%thisWindow%

    196. 

  196. 			Send,^v

    197. 

  197. 		}

    198. 

  198. 		Clipboard = %oldClip%

    199. 

  199. 	}

    200. 

  200. ;	if ReturnTo > 0

    201. 

  201. ;		Send, {Left %ReturnTo%}

    202. 

  202. 

    203. 

  203. }

    204. 

  204. SendMode Event

    205. 

  205. IniRead,expanded,texter.ini,Stats,Expanded

    206. 

  206. IniRead,chars_saved,texter.ini,Stats,Characters

    207. 

  207. expanded += 1

    208. 

  208. chars_saved += ClipLength

    209. 

  209. IniWrite,%expanded%,texter.ini,Stats,Expanded

    210. 

  210. IniWrite,%chars_saved%,texter.ini,Stats,Characters

    211. 

  211. Return

    212. 

  212. 

    213. 

  213. HOTKEYS: 

    214. 

  214. StringTrimLeft,hotkey,A_ThisHotkey,1 

    215. 

  215. StringLen,hotkeyl,hotkey 

    216. 

  216. If hotkeyl>1 

    217. 

  217.   hotkey=`{%hotkey%`} 

    218. 

  218. Send,{SC77}

    219. 

  219. Return 

    220. 

  220. 

    221. 

  221. ASSIGNVARS:

    222. 

  222. Version = 0.5

    223. 

  223. EnterCSV = %A_ScriptDir%\Active\bank\enter.csv

    224. 

  224. TabCSV = %A_ScriptDir%\Active\bank\tab.csv

    225. 

  225. SpaceCSV = %A_ScriptDir%\Active\bank\space.csv

    226. 

  226. ReplaceWAV = %A_ScriptDir%\resources\replace.wav

    227. 

  227. TexterPNG = %A_ScriptDir%\resources\texter.png

    228. 

  228. TexterICO = %A_ScriptDir%\resources\texter.ico

    229. 

  229. StyleCSS = %A_ScriptDir%\resources\style.css

    230. 

  230. return

    231. 

  231. 

    232. 

  232. READINI:

    233. 

  233. IfNotExist bank

    234. 

  234. 	FileCreateDir, bank

    235. 

  235. IfNotExist replacements

    236. 

  236. 	FileCreateDir, replacements

    237. 

  237. else

    238. 

  238. {

    239. 

  239. 	IniRead,hexified,texter.ini,Settings,Hexified

    240. 

  240. 	if hexified = ERROR

    241. 

  241. 		Gosub,HexAll

    242. 

  242. }

    243. 

  243. IfNotExist resources

    244. 

  244. 	FileCreateDir, resources

    245. 

  245. IfNotExist bundles

    246. 

  246. 	FileCreateDir, bundles

    247. 

  247. IfNotExist Active

    248. 

  248. {

    249. 

  249. 	FileCreateDir, Active

    250. 

  250. 	FileCreateDir, Active\replacements

    251. 

  251. 	FileCreateDir, Active\bank

    252. 

  252. }

    253. 

  253. IniWrite,%Version%,texter.ini,Preferences,Version

    254. 

  254. cancel := GetValFromIni("Cancel","Keys","{Escape}") ;keys to stop completion, remember {} 

    255. 

  255. ignore := GetValFromIni("Ignore","Keys","{Tab}`,{Enter}`,{Space}") ;keys not to send after completion 

    256. 

  256. IniWrite,{Escape}`,{Tab}`,{Enter}`,{Space}`,{Left}`,{Right}`,{Up}`,{Down},texter.ini,Autocomplete,Keys

    257. 

  257. keys := GetValFromIni("Autocomplete","Keys","{Escape}`,{Tab}`,{Enter}`,{Space}`,{Left}`,{Right}`,{Esc}`,{Up}`,{Down}")

    258. 

  258. otfhotkey := GetValFromIni("Hotkey","OntheFly","^+H")

    259. 

  259. managehotkey := GetValFromIni("Hotkey","Management","^+M")

    260. 

  260. MODE := GetValFromIni("Settings","Mode",0)

    261. 

  261. EnterBox := GetValFromIni("Triggers","Enter",0)

    262. 

  262. TabBox := GetValFromIni("Triggers","Tab",0)

    263. 

  263. SpaceBox := GetValFromIni("Triggers","Space",0)

    264. 

  264. ExSound := GetValFromIni("Preferences","ExSound",1)

    265. 

  265. Synergy := GetValFromIni("Preferences","Synergy",0)

    266. 

  266. 

    267. 

  267. ;; Enable hotkeys for creating new keys and managing replacements

    268. 

  268. if otfhotkey <>

    269. 

  269. {

    270. 

  270. 	Hotkey,IfWinNotActive,Texter Preferences

    271. 

  271. 	Hotkey,%otfhotkey%,NEWKEY	

    272. 

  272. 	Hotkey,IfWinActive

    273. 

  273. }

    274. 

  274. if managehotkey <>

    275. 

  275. {

    276. 

  276. 	Hotkey,IfWinNotActive,Texter Preferences

    277. 

  277. 	Hotkey,%managehotkey%,MANAGE

    278. 

  278. 	Hotkey,IfWinActive

    279. 

  279. }

    280. 

  280. 

    281. 

  281. 

    282. 

  282. ;; This section is intended to exit the input in the Start thread whenever the mouse is clicked or 

    283. 

  283. ;; the user Alt-Tabs to another window so that Texter is prepared

    284. 

  284. ~LButton::Send,{SC77}

    285. 

  285. $!Tab::

    286. 

  286. {

    287. 

  287. 	GetKeyState,capsL,Capslock,T

    288. 

  288. 	SetCapsLockState,Off

    289. 

  289. 	pressed = 0

    290. 

  290. 	Loop {

    291. 

  291. 		Sleep,10

    292. 

  292. 		GetKeyState,altKey,Alt,P

    293. 

  293. 		GetKeyState,tabKey,Tab,P

    294. 

  294. 		if (altKey = "D") and (tabKey = "D")

    295. 

  295. 		{

    296. 

  296. 			if pressed = 0

    297. 

  297. 			{

    298. 

  298. 				pressed = 1

    299. 

  299. 				Send,{Alt down}{Tab}

    300. 

  300. 				continue

    301. 

  301. 			}

    302. 

  302. 			else

    303. 

  303. 			{

    304. 

  304. 				continue

    305. 

  305. 			}

    306. 

  306. 		}

    307. 

  307. 		else if (altKey = "D")

    308. 

  308. 		{

    309. 

  309. 			pressed = 0

    310. 

  310. 			continue

    311. 

  311. 		}

    312. 

  312. 		else

    313. 

  313. 		{

    314. 

  314. 			Send,{Alt up}

    315. 

  315. 			break

    316. 

  316. 		}

    317. 

  317. 	}

    318. 

  318. 	Send,{SC77}

    319. 

  319. 	if (capsL = "D")

    320. 

  320. 		SetCapsLockState,On

    321. 

  321. }

    322. 

  322. 

    323. 

  323. $!+Tab::

    324. 

  324. {

    325. 

  325. 	GetKeyState,capsL,Capslock,T

    326. 

  326. 	SetCapsLockState,Off

    327. 

  327. 	pressed = 0

    328. 

  328. 	Loop {

    329. 

  329. 		Sleep,10

    330. 

  330. 		GetKeyState,altKey,Alt,P

    331. 

  331. 		GetKeyState,tabKey,Tab,P

    332. 

  332. 		GetKeyState,shiftKey,Shift,P

    333. 

  333. 		if (altKey = "D") and (tabKey = "D") and (shiftKey = "D")

    334. 

  334. 		{

    335. 

  335. 			if pressed = 0

    336. 

  336. 			{

    337. 

  337. 				pressed = 1

    338. 

  338. 				Send,{Alt down}{Shift down}{Tab}

    339. 

  339. 				;Send,{Shift up}

    340. 

  340. 				continue

    341. 

  341. 			}

    342. 

  342. 			else

    343. 

  343. 			{

    344. 

  344. 				continue

    345. 

  345. 			}

    346. 

  346. 		}

    347. 

  347. 		else if (altKey = "D") and (shiftKey != "D")

    348. 

  348. 		{

    349. 

  349. 			pressed = 0

    350. 

  350. 			Send,{Shift up}

    351. 

  351. 			break

    352. 

  352. 		}

    353. 

  353. 		else if (altKey = "D") and (shiftKey = "D")

    354. 

  354. 		{

    355. 

  355. 			pressed = 0

    356. 

  356. 			continue

    357. 

  357. 		}

    358. 

  358. 		else

    359. 

  359. 		{

    360. 

  360. 			Send,{Alt up}{Shift up}

    361. 

  361. 			break

    362. 

  362. 		}

    363. 

  363. 	}

    364. 

  364. ;	Send,{SC77}

    365. 

  365. 	if (capsL = "D")

    366. 

  366. 		SetCapsLockState,On

    367. 

  367. }

    368. 

  368. Return

    369. 

  369. 

    370. 

  370. 

    371. 

  371. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Implementation and GUI for on-the-fly creation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    372. 

  372. NEWKEY:

    373. 

  373. if A_GuiControl = + ;;;; MAYBE CHANGE THIS TO IfWinExist,Texter Management

    374. 

  374. 	GuiControlGet,CurrentBundle,,BundleTabs

    375. 

  375. else

    376. 

  376. 	CurrentBundle =

    377. 

  377. if (CurrentBundle != "") and (CurrentBundle != "Default")

    378. 

  378. 	AddToDir = Bundles\%CurrentBundle%\

    379. 

  379. else

    380. 

  380. 	AddToDir = 

    381. 

  381. Gui,1: Destroy

    382. 

  382. IniRead,EnterBox,texter.ini,Triggers,Enter

    383. 

  383. IniRead,TabBox,texter.ini,Triggers,Tab

    384. 

  384. IniRead,SpaceBox,texter.ini,Triggers,Space

    385. 

  385. Gui,1: font, s12, Arial  

    386. 

  386. Gui,1: +owner2 +AlwaysOnTop -SysMenu +ToolWindow  ;suppresses taskbar button, always on top, removes minimize/close

    387. 

  387. Gui,1: Add, Text,x10 y20, Hotstring:

    388. 

  388. Gui,1: Add, Edit, x13 y45 r1 W65 vRString,

    389. 

  389. Gui,1: Add, Edit, x100 y45 r4 W395 vFullText, Enter your replacement text here...

    390. 

  390. Gui,1: Add, Text,x115,Trigger:

    391. 

  391. Gui,1: Add, Checkbox, vEnterCbox yp x175 Checked%EnterBox%, Enter

    392. 

  392. Gui,1: Add, Checkbox, vTabCbox yp x242 Checked%TabBox%, Tab

    393. 

  393. Gui,1: Add, Checkbox, vSpaceCbox yp x305 Checked%SpaceBox%, Space

    394. 

  394. Gui,1: font, s8, Arial 

    395. 

  395. Gui,1: Add, Button,w80 x320 default,&OK

    396. 

  396. Gui,1: Add, Button,w80 xp+90 GButtonCancel,&Cancel

    397. 

  397. Gui,1: font, s12, Arial  

    398. 

  398. Gui,1: Add,DropDownList,x100 y15 vTextOrScript, Text||Script

    399. 

  399. Gui,1: Add,Picture,x0 y105,%TexterPNG%

    400. 

  400. Gui 2:+Disabled

    401. 

  401. Gui,1: Show, W500 H200,Add new hotstring...

    402. 

  402. return

    403. 

  403. 

    404. 

  404. GuiEscape:

    405. 

  405. ButtonCancel:

    406. 

  406. Gui 2:-Disabled

    407. 

  407. Gui,1: Destroy

    408. 

  408. return

    409. 

  409. 

    410. 

  410. ButtonOK:

    411. 

  411. Gui,1: Submit, NoHide

    412. 

  412. Gui 1:+OwnDialogs

    413. 

  413. hexRString:=hexify(RString)

    414. 

  414. IfExist, %A_ScriptDir%\%AddToDir%replacements\%hexRString%.txt

    415. 

  415. {

    416. 

  416. 	MsgBox,262144,Hotstring already exists, A replacement with the text %RString% already exists.  Would you like to try again?

    417. 

  417. 	return

    418. 

  418. }

    419. 

  419. IsScript := (TextOrScript == "Script")

    420. 

  420. 

    421. 

  421. if SaveHotstring(RString, FullText, IsScript, AddToDir, SpaceCbox, TabCbox, EnterCbox)

    422. 

  422. {

    423. 

  423. 	Gui 2:-Disabled

    424. 

  424. 	Gui,1: Submit

    425. 

  425. }

    426. 

  426. Gosub,GetFileList

    427. 

  427. return

    428. 

  428. 

    429. 

  429. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; End Implementation and GUI for on-the-fly creation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    430. 

  430. 

    431. 

  431. 

    432. 

  432. 

    433. 

  433. TRAYMENU:

    434. 

  434. Menu,TRAY,NoStandard 

    435. 

  435. Menu,TRAY,DeleteAll 

    436. 

  436. Menu,TRAY,Add,&Manage hotstrings,MANAGE

    437. 

  437. Menu,TRAY,Add,&Create new hotstring,NEWKEY

    438. 

  438. Menu,TRAY,Add

    439. 

  439. Menu,TRAY,Add,P&references...,PREFERENCES

    440. 

  440. Menu,TRAY,Add,&Import bundle,IMPORT

    441. 

  441. Menu,TRAY,Add,&Help,HELP

    442. 

  442. Menu,TRAY,Add

    443. 

  443. Menu,TRAY,Add,&About...,ABOUT

    444. 

  444. Menu,TRAY,Add,&Disable,DISABLE

    445. 

  445. if disable = 1

    446. 

  446. 	Menu,Tray,Check,&Disable

    447. 

  447. Menu,TRAY,Add,E&xit,EXIT

    448. 

  448. Menu,TRAY,Default,&Manage hotstrings

    449. 

  449. Menu,Tray,Tip,Texter

    450. 

  450. Menu,TRAY,Icon,resources\texter.ico

    451. 

  451. Return

    452. 

  452. 

    453. 

  453. ABOUT:

    454. 

  454. Gui,4: Destroy

    455. 

  455. Gui,4: +owner2

    456. 

  456. Gui,4: Add,Picture,x200 y0,%TexterPNG%

    457. 

  457. Gui,4: font, s36, Courier New

    458. 

  458. Gui,4: Add, Text,x10 y35,Texter

    459. 

  459. Gui,4: font, s8, Courier New

    460. 

  460. Gui,4: Add, Text,x171 y77,%Version%

    461. 

  461. Gui,4: font, s9, Arial 

    462. 

  462. Gui,4: Add,Text,x10 y110 Center,Texter is a text replacement utility designed to save`nyou countless keystrokes on repetitive text entry by`nreplacing user-defined abbreviations (or hotstrings)`nwith your frequently-used text snippets.`n`nTexter is written by Adam Pash and distributed`nby Lifehacker under the GNU Public License.`nFor details on how to use Texter, check out the

    463. 

  463. Gui,4:Font,underline bold

    464. 

  464. Gui,4:Add,Text,cBlue gHomepage Center x110 y230,Texter homepage

    465. 

  465. Gui,4: Color,F8FAF0

    466. 

  466. Gui 2:+Disabled

    467. 

  467. Gui,4: Show,auto,About Texter

    468. 

  468. Return

    469. 

  469. 

    470. 

  470. DISABLE:

    471. 

  471. IniRead,disable,texter.ini,Settings,Disable

    472. 

  472. if disable = 0

    473. 

  473. {

    474. 

  474. 	IniWrite,1,texter.ini,Settings,Disable

    475. 

  475. 	EnableTriggers(false)

    476. 

  476. 	Menu,Tray,Check,&Disable

    477. 

  477. }

    478. 

  478. else

    479. 

  479. {

    480. 

  480. 	IniWrite,0,texter.ini,Settings,Disable

    481. 

  481. 	EnableTriggers(true)

    482. 

  482. 	Menu,Tray,Uncheck,&Disable

    483. 

  483. }

    484. 

  484. return

    485. 

  485. 

    486. 

  486. Homepage:

    487. 

  487. Run http://lifehacker.com/software//lifehacker-code-texter-windows-238306.php

    488. 

  488. return

    489. 

  489. 

    490. 

  490. BasicUse:

    491. 

  491. Run http://lifehacker.com/software//lifehacker-code-texter-windows-238306.php#basic

    492. 

  492. return

    493. 

  493. 

    494. 

  494. Scripting:

    495. 

  495. Run http://lifehacker.com/software//lifehacker-code-texter-windows-238306.php#advanced

    496. 

  496. return

    497. 

  497. 

    498. 

  498. 4GuiClose:

    499. 

  499. 4GuiEscape:

    500. 

  500. DismissAbout:

    501. 

  501. Gui 2:-Disabled

    502. 

  502. Gui,4: Destroy

    503. 

  503. return

    504. 

  504. 

    505. 

  505. HELP:

    506. 

  506. Gui,5: Destroy

    507. 

  507. Gui,5: Add,Picture,x200 y5,%TexterPNG%

    508. 

  508. Gui,5: font, s36, Courier New

    509. 

  509. Gui,5: Add, Text,x20 y40,Texter

    510. 

  510. Gui,5: font, s9, Arial 

    511. 

  511. Gui,5: Add,Text,x19 y285 w300 center,All of Texter's documentation can be found online at the

    512. 

  512. Gui,5:Font,underline bold

    513. 

  513. Gui,5:Add,Text,cBlue gHomepage Center x125 y305,Texter homepage

    514. 

  514. Gui,5: font, s9 norm, Arial 

    515. 

  515. Gui,5: Add,Text,x10 y100 w300,For help by topic, click on one of the following:

    516. 

  516. Gui,5:Font,underline bold

    517. 

  517. Gui,5:Add,Text,x30 y120 cBlue gBasicUse,Basic Use: 

    518. 

  518. Gui,5:Font,norm

    519. 

  519. Gui,5:Add,Text,x50 y140 w280, Covers how to create basic text replacement hotstrings.

    520. 

  520. Gui,5:Font,underline bold

    521. 

  521. Gui,5:Add,Text,x30 y180 cBlue gScripting,Sending advanced keystrokes: 

    522. 

  522. Gui,5:Font,norm

    523. 

  523. Gui,5:Add,Text,x50 y200 w280, Texter is capable of sending advanced keystrokes, like keyboard combinations.  This section lists all of the special characters used in script creation, and offers a few examples of how you might use scripts.

    524. 

  524. Gui,5: Color,F8FAF0

    525. 

  525. Gui,5: Show,auto,Texter Help

    526. 

  526. Return

    527. 

  527. 

    528. 

  528. 5GuiEscape:

    529. 

  529. DismissHelp:

    530. 

  530. Gui,5: Destroy

    531. 

  531. return

    532. 

  532. 

    533. 

  533. GetFileList:

    534. 

  534. FileList =

    535. 

  535. Loop, %A_ScriptDir%\replacements\*.txt

    536. 

  536. {

    537. 

  537. 	thisFile:=Dehexify(A_LoopFileName)

    538. 

  538. 	FileList = %FileList%%thisFile%|

    539. 

  539. }

    540. 

  540. StringReplace, FileList, FileList, .txt,,All

    541. 

  541. return

    542. 

  542. 

    543. 

  543. PREFERENCES:

    544. 

  544. Gui,3: Destroy

    545. 

  545. Gui,3: +owner2

    546. 

  546. Gui,3: Add, Tab,x5 y5 w306 h230,General|Print|Stats ;|Import|Export Add these later

    547. 

  547. Gui,3: Add,Button,x150 y240 w75 GSETTINGSOK Default,&OK

    548. 

  548. IniRead,otfhotkey,texter.ini,Hotkey,OntheFly

    549. 

  549. Gui,3: Add,Text,x10 y40,On-the-Fly shortcut:

    550. 

  550. Gui,3: Add,Hotkey,xp+10 yp+20 w100 vsotfhotkey, %otfhotkey%

    551. 

  551. Gui,3: Add,Text,x150 y40,Hotstring Management shortcut:

    552. 

  552. Gui,3: Add,Hotkey,xp+10 yp+20 w100 vsmanagehotkey, %managehotkey%

    553. 

  553. ;code optimization -- use mode value to set in initial radio values

    554. 

  554. CompatMode := NOT MODE

    555. 

  555. Gui,3: Add,Radio,x10 y100 vModeGroup Checked%CompatMode%,Compatibility mode (Default)

    556. 

  556. Gui,3: Add,Radio,Checked%MODE%,Clipboard mode (Faster, but less compatible)

    557. 

  557. OnStartup := GetValFromIni(Settings, Startup, false)

    558. 

  558. Gui,3: Add,Checkbox, vStartup x20 yp+30 Checked%OnStartup%,Run Texter at start up

    559. 

  559. IniRead,Update,texter.ini,Preferences,UpdateCheck

    560. 

  560. Gui,3: Add,Checkbox, vUpdate x20 yp+20 Checked%Update%,Check for updates at launch?

    561. 

  561. IniRead,ExSound,texter.ini,Preferences,ExSound

    562. 

  562. Gui,3: Add,Checkbox, vExSound x20 yp+20 gToggle Checked%ExSound%,Play sound when replacement triggered?

    563. 

  563. IniRead,Synergy,texter.ini,Preferences,Synergy

    564. 

  564. Gui,3: Add,Checkbox, vSynergy x20 yp+20 gToggle Checked%Synergy%,Make Texter compatible across computers with Synergy?

    565. 

  565. ;Gui,3: Add,Button,x150 y200 w75 GSETTINGSOK Default,&OK

    566. 

  566. Gui,3: Add,Button,x230 y240 w75 GSETTINGSCANCEL,&Cancel

    567. 

  567. Gui,3: Tab,2

    568. 

  568. Gui,3: Add,Button,w150 h150 gPrintableList,Create Printable Texter Cheatsheet

    569. 

  569. Gui,3: Add,Text,xp+160 y50 w125 Wrap,Click the big button to export a printable cheatsheet of all your Texter hotstrings, replacements, and triggers.

    570. 

  570. Gui,3: Tab,3

    571. 

  571. Gui,3: Add,Text,x10 y40,Your Texter stats:

    572. 

  572. IniRead,expanded,texter.ini,Stats,Expanded

    573. 

  573. Gui,3: Add,Text,x25 y60,Snippets expanded:   %expanded% 

    574. 

  574. IniRead,chars_saved,texter.ini,Stats,Characters

    575. 

  575. Gui,3: Add,Text,x25 y80,Characters saved:     %chars_saved%

    576. 

  576. SetFormat,FLOAT,0.2

    577. 

  577. time_saved := chars_saved/24000

    578. 

  578. Gui,3: Add,Text,x25 y100,Hours saved:             %time_saved% (assuming 400 chars/minute)

    579. 

  579. ;Gui,3: Add,Button,x150 y200 w75 GSETTINGSOK Default,&OK

    580. 

  580. ;Gui,3: Add,Button,x230 y200 w75 GSETTINGSCANCEL,&Cancel

    581. 

  581. Gui 2:+Disabled

    582. 

  582. Gui,3: Show,AutoSize,Texter Preferences

    583. 

  583. Return

    584. 

  584. 

    585. 

  585. SETTINGSOK:

    586. 

  586. Gui,3: Submit, NoHide

    587. 

  587. If (sotfhotkey != otfhotkey)

    588. 

  588. {

    589. 

  589. 	otfhotkey:=sotfhotkey

    590. 

  590. 	If otfhotkey<>

    591. 

  591. 	{

    592. 

  592. 	  Hotkey,IfWinNotActive,Texter Preferences

    593. 

  593. 	  Hotkey,%otfhotkey%,Newkey

    594. 

  594. 	  HotKey,%otfhotkey%,On

    595. 

  595. 	  Hotkey,IfWinActive

    596. 

  596. 	}

    597. 

  597. 	IniWrite,%otfhotkey%,texter.ini,Hotkey,OntheFly

    598. 

  598. }

    599. 

  599. 

    600. 

  600. If (smanagehotkey != managehotkey)

    601. 

  601. {

    602. 

  602. 	managehotkey:=smanagehotkey

    603. 

  603. 	If managehotkey<>

    604. 

  604. 	{

    605. 

  605. 	  Hotkey,IfWinNotActive,Texter Preferences

    606. 

  606. 	  Hotkey,%managehotkey%,Manage

    607. 

  607. 	  HotKey,%managehotkey%,On

    608. 

  608. 	  Hotkey,IfWinActive

    609. 

  609. 	}

    610. 

  610. 	IniWrite,%managehotkey%,texter.ini,Hotkey,Management

    611. 

  611. }

    612. 

  612. ;code optimization -- calculate MODE from ModeGroup

    613. 

  613. MODE := ModeGroup - 1

    614. 

  614. IniWrite,%MODE%,texter.ini,Settings,Mode

    615. 

  615. IniWrite,%Update%,texter.ini,Preferences,UpdateCheck

    616. 

  616. If Startup = 1

    617. 

  617. {

    618. 

  618. 	IfNotExist %A_StartMenu%\Programs\Startup\Texter.lnk

    619. 

  619. 		;Get icon for shortcut link:

    620. 

  620. 		;1st from compiled EXE

    621. 

  621. 		if %A_IsCompiled%

    622. 

  622. 		{

    623. 

  623. 			IconLocation=%A_ScriptFullPath%

    624. 

  624. 		}

    625. 

  625. 		;2nd from icon in resources folder

    626. 

  626. 		else IfExist %TexterICO%

    627. 

  627. 		{

    628. 

  628. 			IconLocation=%TexterICO%

    629. 

  629. 		}

    630. 

  630. 		;3rd from the AutoHotkey application itself

    631. 

  631. 		else

    632. 

  632. 		{

    633. 

  633. 			IconLocation=%A_AhkPath%

    634. 

  634. 		}

    635. 

  635. 		;use %A_ScriptFullPath% instead of texter.exe

    636. 

  636. 		;to allow compatibility with source version

    637. 

  637. 		FileCreateShortcut,%A_ScriptFullPath%,%A_StartMenu%\Programs\Startup\Texter.lnk,%A_ScriptDir%,,Text replacement system tray application,%IconLocation%

    638. 

  638. }

    639. 

  639. else

    640. 

  640. {

    641. 

  641. 	IfExist %A_StartMenu%\Programs\Startup\Texter.lnk

    642. 

  642. 	{

    643. 

  643. 		FileDelete %A_StartMenu%\Programs\Startup\Texter.lnk

    644. 

  644. 	}

    645. 

  645. }

    646. 

  646. IniWrite,%Startup%,texter.ini,Settings,Startup

    647. 

  647. 3GuiClose:

    648. 

  648. 3GuiEscape:

    649. 

  649. SETTINGSCANCEL:

    650. 

  650. Gui 2:-Disabled

    651. 

  651. Gui,3: Destroy

    652. 

  652. 

    653. 

  653. Return

    654. 

  654. 

    655. 

  655. TOGGLE:

    656. 

  656. GuiControlGet,ToggleValue,,%A_GuiControl%

    657. 

  657. IniWrite,%ToggleValue%,texter.ini,Preferences,%A_GuiControl%

    658. 

  658. return

    659. 

  659. 

    660. 

  660. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Implementation and GUI for management ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    661. 

  661. MANAGE:

    662. 

  662. GoSub,GetFileList

    663. 

  663. Bundles =

    664. 

  664. Loop,bundles\*,2

    665. 

  665. {

    666. 

  666. 	Bundles = %Bundles%|%A_LoopFileName%

    667. 

  667. 	thisBundle = %A_LoopFileName%

    668. 

  668. ;	Loop,bundles\%A_LoopFileName%\replacements\*.txt

    669. 

  669. ;	{

    670. 

  670. ;		thisReplacement:=Dehexify(A_LoopFileName)

    671. 

  671. ;		thisBundle = %thisBundle%%thisReplacement%|

    672. 

  672. ;	}

    673. 

  673. 	StringReplace, thisBundle, thisBundle, .txt,,All

    674. 

  674. 	StringReplace, thisBundle, thisBundle, %A_LoopFileName%,,

    675. 

  675. 	%A_LoopFileName% = %thisBundle%

    676. 

  676. }

    677. 

  677. StringReplace, FileList, FileList, .txt,,All

    678. 

  678. StringTrimLeft,Bundles,Bundles,1

    679. 

  679. Gui,2: Destroy

    680. 

  680. Gui,2: Default

    681. 

  681. Gui,2: Font, s12, Arial

    682. 

  682. Gui,2: Add,Tab,x5 y5 h390 w597 vBundleTabs gListBundle,Default|%Bundles% ;;;;;; START ADDING BUNDLES

    683. 

  683. Gui,2: Add, Text, Section,

    684. 

  684. Gui,2: Tab ;;; Every control after this point belongs to no individual tab

    685. 

  685. Gui,2: Add, Text,ys xs,Hotstring:

    686. 

  686. Gui,2: Add, ListBox, xs r15 W100 vChoice gShowString Sort, %FileList%

    687. 

  687. Gui,2: Add, Button, w35 xs+10 GAdd,+

    688. 

  688. Gui,2: Add, Button, w35 xp+40 GDelete,-

    689. 

  689. Gui,2: Add, DropDownList, Section ys vTextOrScript, Text||Script

    690. 

  690. Gui,2: Font, s12, Arial

    691. 

  691. Gui,2: Add, Edit, r12 W460 xs vFullText

    692. 

  692. Gui,2: Add, Text, xs,Trigger:

    693. 

  693. Gui,2: Add, Checkbox, vEnterCbox yp xp+65, Enter

    694. 

  694. Gui,2: Add, Checkbox, vTabCbox yp xp+65, Tab

    695. 

  695. Gui,2: Add, Checkbox, vSpaceCbox yp xp+60, Space

    696. 

  696. Gui,2: Font, s8, Arial

    697. 

  697. Gui,2: Add,Button, w80 GPButtonSave xs+375 yp, &Save

    698. 

  698. IniRead,bundleCheck,texter.ini,Bundles,Default

    699. 

  699. Gui,2: Add, Checkbox, Checked%bundleCheck% vbundleCheck gToggleBundle xs+400 yp+50,Enabled

    700. 

  700. Gui,2: Add, Button, w80 Default GPButtonOK xs+290 yp+30,&OK

    701. 

  701. Gui,2: Add, Button, w80 xp+90 GPButtonCancel, &Cancel

    702. 

  702. Menu, ToolsMenu, Add, P&references..., Preferences

    703. 

  703. Menu, MgmtMenuBar, Add, &Tools, :ToolsMenu

    704. 

  704. Menu, BundlesMenu, Add, &Export, Export

    705. 

  705. Menu, BundlesMenu, Add, &Import, Import

    706. 

  706. Menu, BundlesMenu, Add, &Add, AddBundle

    707. 

  707. Menu, BundlesMenu, Add, &Remove, DeleteBundle

    708. 

  708. Menu, MgmtMenuBar, Add, &Bundles, :BundlesMenu

    709. 

  709. Menu, HelpMenu, Add, &Basic Use, BasicUse

    710. 

  710. Menu, HelpMenu, Add, Ad&vanced Use, Scripting

    711. 

  711. Menu, HelpMenu, Add, &Homepage, Homepage

    712. 

  712. Menu, HelpMenu, Add, &About..., About

    713. 

  713. Menu, MgmtMenuBar, Add, &Help, :HelpMenu

    714. 

  714. Gui,2: Menu, MgmtMenuBar

    715. 

  715. Gui,2: Show, , Texter Management

    716. 

  716. Hotkey,IfWinActive, Texter Management

    717. 

  717. Hotkey,!p,Preferences

    718. 

  718. Hotkey,delete,Delete

    719. 

  719. Hotkey,IfWinActive

    720. 

  720. return

    721. 

  721. 

    722. 

  722. ListBundle:

    723. 

  723. if A_GuiControl = BundleTabs

    724. 

  724. 	GuiControlGet,CurrentBundle,2:,BundleTabs

    725. 

  725. IniRead,bundleCheck,texter.ini,Bundles,%CurrentBundle%

    726. 

  726. GuiControl,2:,Choice,|

    727. 

  727. Loop,bundles\*,2

    728. 

  728. {

    729. 

  729. 	Bundles = %Bundles%|%A_LoopFileName%

    730. 

  730. 	thisBundle = %A_LoopFileName%

    731. 

  731. 	Loop,bundles\%A_LoopFileName%\replacements\*.txt

    732. 

  732. 	{

    733. 

  733. 		thisReplacement:=Dehexify(A_LoopFileName)

    734. 

  734. 		thisBundle = %thisBundle%%thisReplacement%|

    735. 

  735. 	}

    736. 

  736. ;	StringReplace, thisBundle, thisBundle, .txt,,All

    737. 

  737. 	StringReplace, thisBundle, thisBundle, %A_LoopFileName%,,

    738. 

  738. 	%A_LoopFileName% = %thisBundle%

    739. 

  739. }

    740. 

  740. ;if A_GuiControl = Tab

    741. 

  741. ;	GuiControl,,Choice,|

    742. 

  742. ;else

    743. 

  743. ;	GuiControl,,Choice,%RString%||

    744. 

  744. GuiControl,2:,FullText,

    745. 

  745. GuiControl,2:,EnterCbox,0

    746. 

  746. GuiControl,2:,TabCbox,0

    747. 

  747. GuiControl,2:,SpaceCbox,0

    748. 

  748. GuiControl,2:,bundleCheck,%bundleCheck%

    749. 

  749. if CurrentBundle = Default

    750. 

  750. {

    751. 

  751. 	Gosub,GetFileList

    752. 

  752. 	CurrentBundle = %FileList%

    753. 

  753. 	GuiControl,,Choice,%CurrentBundle%

    754. 

  754. }

    755. 

  755. else

    756. 

  756. {

    757. 

  757. 	StringTrimLeft,CurrentBundle,%CurrentBundle%,0

    758. 

  758. 	GuiControl,2:,Choice,%CurrentBundle%

    759. 

  759. }

    760. 

  760. return

    761. 

  761. 

    762. 

  762. ToggleBundle:

    763. 

  763. GuiControlGet,CurrentBundle,,BundleTabs

    764. 

  764. GuiControlGet,bundleCheck,,bundleCheck

    765. 

  765. IniWrite,%bundleCheck%,texter.ini,Bundles,%CurrentBundle%

    766. 

  766. Gosub,BuildActive

    767. 

  767. return

    768. 

  768. 

    769. 

  769. BuildActive:

    770. 

  770. activeBundles =

    771. 

  771. FileDelete,Active\replacements\*

    772. 

  772. FileDelete,Active\bank\*

    773. 

  773. Loop,bundles\*,2

    774. 

  774. {

    775. 

  775. 	IniRead,activeCheck,texter.ini,Bundles,%A_LoopFileName%

    776. 

  776. 	if activeCheck = 1

    777. 

  777. 		activeBundles = %activeBundles%%A_LoopFileName%,

    778. 

  778. }

    779. 

  779. IniRead,activeCheck,texter.ini,Bundles,Default

    780. 

  780. if activeCheck = 1

    781. 

  781. 	activeBundles = %activeBundles%Default

    782. 

  782. Loop,Parse,activeBundles,CSV

    783. 

  783. {

    784. 

  784. ;	MsgBox,%A_LoopField%

    785. 

  785. 	if A_LoopField = Default

    786. 

  786. 	{

    787. 

  787. 		FileCopy,replacements\*.txt,Active\replacements

    788. 

  788. 		FileRead,tab,bank\tab.csv

    789. 

  789. 		FileAppend,%tab%,Active\bank\tab.csv

    790. 

  790. 		FileRead,space,bank\space.csv

    791. 

  791. 		FileAppend,%space%,Active\bank\space.csv

    792. 

  792. 		FileRead,enter,bank\enter.csv

    793. 

  793. 		FileAppend,%enter%,Active\bank\enter.csv

    794. 

  794. 	}

    795. 

  795. 	else

    796. 

  796. 	{

    797. 

  797. 		FileCopy,Bundles\%A_LoopField%\replacements\*.txt,active\replacements

    798. 

  798. 		FileRead,tab,Bundles\%A_LoopField%\bank\tab.csv

    799. 

  799. 		FileAppend,%tab%,active\bank\tab.csv

    800. 

  800. 		FileRead,space,Bundles\%A_LoopField%\bank\space.csv

    801. 

  801. 		FileAppend,%space%,active\bank\space.csv

    802. 

  802. 		FileRead,enter,Bundles\%A_LoopField%\bank\enter.csv

    803. 

  803. 		FileAppend,%enter%,active\bank\enter.csv

    804. 

  804. 	}

    805. 

  805. ;		IfExist active\replacements\wc.txt

    806. 

  806. ;			MsgBox,%A_LoopFileName% put me here

    807. 

  807. }

    808. 

  808. FileRead, EnterKeys, %A_WorkingDir%\Active\bank\enter.csv

    809. 

  809. FileRead, TabKeys, %A_WorkingDir%\Active\bank\tab.csv

    810. 

  810. FileRead, SpaceKeys, %A_WorkingDir%\Active\bank\space.csv

    811. 

  811. ActiveList =

    812. 

  812. Loop, Active\replacements\*.txt

    813. 

  813. {

    814. 

  814. 	ActiveList = %ActiveList%%A_LoopFileName%|

    815. 

  815. }

    816. 

  816. StringReplace, ActiveList, ActiveList, .txt,,All

    817. 

  817. 

    818. 

  818. return

    819. 

  819. 

    820. 

  820. ADD:

    821. 

  821. EnableTriggers(false)

    822. 

  822. GoSub,Newkey

    823. 

  823. IfWinExist,Add new hotstring...

    824. 

  824. {

    825. 

  825. 	WinWaitClose,Add new hotstring...,,

    826. 

  826. }

    827. 

  827. ;GoSub,GetFileList

    828. 

  828. GoSub,ListBundle

    829. 

  829. StringReplace, CurrentBundle, CurrentBundle,|%RString%|,|%RString%||

    830. 

  830. GuiControl,,Choice,|%CurrentBundle%

    831. 

  831. EnableTriggers(true)

    832. 

  832. GoSub,ShowString

    833. 

  833. return

    834. 

  834. 

    835. 

  835. DELETE:

    836. 

  836. Gui 2:+OwnDialogs

    837. 

  837. GuiControlGet,ActiveChoice,,Choice

    838. 

  838. GuiControlGet,CurrentBundle,,BundleTabs

    839. 

  839. if (CurrentBundle != "") and (CurrentBundle != "Default")

    840. 

  840. 	RemoveFromDir = Bundles\%CurrentBundle%\

    841. 

  841. else

    842. 

  842. 	RemoveFromDir = 

    843. 

  843. 

    844. 

  844. MsgBox,1,Confirm Delete,Are you sure you want to delete this hotstring: %ActiveChoice%

    845. 

  845. IfMsgBox, OK

    846. 

  846. {

    847. 

  847. 	ActiveChoice:=Hexify(ActiveChoice)

    848. 

  848. 	FileDelete,%A_ScriptDir%\%RemoveFromDir%replacements\%ActiveChoice%.txt

    849. 

  849. 	DelFromBank(ActiveChoice, RemoveFromDir, "enter")

    850. 

  850. 	DelFromBank(ActiveChoice, RemoveFromDir, "tab")

    851. 

  851. 	DelFromBank(ActiveChoice, RemoveFromDir, "space")

    852. 

  852. 	GoSub,ListBundle

    853. 

  853. 	Gosub,BuildActive

    854. 

  854. 	GuiControl,,Choice,|%CurrentBundle%

    855. 

  855. 	GuiControl,,FullText,

    856. 

  856. 	GuiControl,,EnterCbox,0

    857. 

  857. 	GuiControl,,TabCbox,0

    858. 

  858. 	GuiControl,,SpaceCbox,0

    859. 

  859. }

    860. 

  860. return

    861. 

  861. 

    862. 

  862. ShowString:

    863. 

  863. GuiControlGet,ActiveChoice,,Choice

    864. 

  864. ActiveChoice:=Hexify(ActiveChoice)

    865. 

  865. GuiControlGet,CurrentBundle,,BundleTabs

    866. 

  866. if CurrentBundle = Default

    867. 

  867. 	ReadFrom = 

    868. 

  868. else

    869. 

  869. 	ReadFrom = bundles\%CurrentBundle%\

    870. 

  870. 

    871. 

  871. FileRead,enter,%ReadFrom%bank\enter.csv

    872. 

  872. FileRead,tab,%ReadFrom%bank\tab.csv

    873. 

  873. FileRead,space,%ReadFrom%bank\space.csv

    874. 

  874. 

    875. 

  875. if ActiveChoice in %enter%

    876. 

  876. {

    877. 

  877. 	GuiControl,,EnterCbox,1

    878. 

  878. }

    879. 

  879. else

    880. 

  880. 	GuiControl,,EnterCbox,0

    881. 

  881. if ActiveChoice in %tab%

    882. 

  882. {

    883. 

  883. 	GuiControl,,TabCbox,1

    884. 

  884. }

    885. 

  885. else

    886. 

  886. 	GuiControl,,TabCbox,0

    887. 

  887. if ActiveChoice in %space%

    888. 

  888. {

    889. 

  889. 	GuiControl,,SpaceCbox,1

    890. 

  890. }

    891. 

  891. else

    892. 

  892. 	GuiControl,,SpaceCbox,0

    893. 

  893. FileRead, Text, %ReadFrom%replacements\%ActiveChoice%.txt

    894. 

  894. IfInString,Text,::scr::

    895. 

  895. {

    896. 

  896. 	GuiControl,,TextOrScript,|Text|Script||

    897. 

  897. 	StringReplace,Text,Text,::scr::,,

    898. 

  898. }

    899. 

  899. else

    900. 

  900. 	GuiControl,,TextOrScript,|Text||Script

    901. 

  901. GuiControl,,FullText,%Text%

    902. 

  902. return

    903. 

  903. 

    904. 

  904. PButtonSave:

    905. 

  905. Gui,2: Submit, NoHide

    906. 

  906. IsScript := (TextOrScript == "Script")

    907. 

  907. 

    908. 

  908. If Choice <>

    909. 

  909. {

    910. 

  910. 	if (CurrentBundle != "") and (CurrentBundle != "Default")

    911. 

  911. 		SaveToDir = Bundles\%CurrentBundle%\

    912. 

  912. 	else

    913. 

  913. 		SaveToDir = 

    914. 

  914. 	PSaveSuccessful := SaveHotstring(Choice, FullText, IsScript, SaveToDir, SpaceCbox, TabCbox, EnterCbox)

    915. 

  915. }

    916. 

  916. else

    917. 

  917. {

    918. 

  918. 	PSaveSuccessful = true

    919. 

  919. }

    920. 

  920. return

    921. 

  921. 

    922. 

  922. 2GuiEscape:

    923. 

  923. PButtonCancel:

    924. 

  924. Gui,2: Destroy

    925. 

  925. return

    926. 

  926. 

    927. 

  927. PButtonOK:

    928. 

  928. Gosub,PButtonSave

    929. 

  929. if PSaveSuccessful

    930. 

  930. 	Gui,2: Submit

    931. 

  931. return

    932. 

  932. 

    933. 

  933. AddBundle:

    934. 

  934. EnableTriggers(false)

    935. 

  935. Hotkey,IfWinActive,New Bundle

    936. 

  936. Hotkey,Space,NOSPACE

    937. 

  937. Hotkey,IfWinActive

    938. 

  938. InputBox,BundleName,New Bundle,What would you like to call your bundle? (no spaces),,160,150,,,

    939. 

  939. if ErrorLevel

    940. 

  940. {

    941. 

  941. 	EnableTriggers(true)

    942. 

  942. 	return

    943. 

  943. }

    944. 

  944. else

    945. 

  945. {

    946. 

  946. 	IfExist bundles\%BundleName%

    947. 

  947. 		MsgBox,,Bundle already in use,%BundleName% bundle already exists.`nChoose another name or delete the current %BundleName% bundle.

    948. 

  948. 	else

    949. 

  949. 	{

    950. 

  950. 		FileCreateDir,bundles\%BundleName%

    951. 

  951. 		FileCreateDir,bundles\%BundleName%\replacements

    952. 

  952. 		FileCreateDir,bundles\%BundleName%\bank

    953. 

  953. 		IniWrite,1,texter.ini,Bundles,%BundleName%

    954. 

  954. 		Bundles =

    955. 

  955. 		Loop,bundles\*,2

    956. 

  956. 		{

    957. 

  957. 			Bundles = %Bundles%|%A_LoopFileName%

    958. 

  958. 			;thisBundle = %A_LoopFileName%

    959. 

  959. 			if BundleName = %A_LoopFileName%

    960. 

  960. 				Bundles = %Bundles%|

    961. 

  961. 		}

    962. 

  962. 		GuiControl,,BundleTabs,|Default|%Bundles%

    963. 

  963. 		GuiControl,,Choice,|

    964. 

  964. 	}

    965. 

  965. }

    966. 

  966. EnableTriggers(true)

    967. 

  967. return

    968. 

  968. 

    969. 

  969. NOSPACE:

    970. 

  970. Msgbox,0,Oops...,Whoops... Bundle names must not have any spaces.

    971. 

  971. return

    972. 

  972. 

    973. 

  973. DeleteBundle:

    974. 

  974. GuiControlGet,CurrentBundle,,BundleTabs

    975. 

  975. if CurrentBundle = Default

    976. 

  976. {

    977. 

  977. 	MsgBox,You can't remove the Default bundle.

    978. 

  978. 	return

    979. 

  979. }

    980. 

  980. MsgBox,4,Confirm bundle delete,Are you sure you want to remove the %CurrentBundle% bundle?

    981. 

  981. IfMsgBox, Yes

    982. 

  982. {

    983. 

  983. 	FileRemoveDir,bundles\%CurrentBundle%,1

    984. 

  984. 	Bundles =

    985. 

  985. 	Loop,bundles\*,2

    986. 

  986. 	{

    987. 

  987. 		Bundles = %Bundles%|%A_LoopFileName%

    988. 

  988. 	}

    989. 

  989. 	GuiControl,,BundleTabs,|Default|%Bundles%

    990. 

  990. 	Gosub,GetFileList

    991. 

  991. 	GuiControl,,Choice,%FileList%

    992. 

  992. }

    993. 

  993. return

    994. 

  994. 

    995. 

  995. EXPORT:

    996. 

  996. GuiControlGet,CurrentBundle,,BundleTabs

    997. 

  997. MsgBox,4,Confirm Bundle Export,Are you sure you want to export the %CurrentBundle% bundle?

    998. 

  998. IfMsgBox, Yes

    999. 

  999. {

    1000. 

  1000. 	IfNotExist %A_WorkingDir%\Texter Export

    1001. 

  1001. 		FileCreateDir,%A_WorkingDir%\Texter Exports

    1002. 

  1002. 	FileDelete,Texter Exports\%CurrentBundle%.texter

    1003. 

  1003. 	IniWrite,%CurrentBundle%,Texter Exports\%CurrentBundle%.texter,Info,Name

    1004. 

  1004. 	if (CurrentBundle = "Default")

    1005. 

  1005. 		BundleDir = 

    1006. 

  1006. 	else

    1007. 

  1007. 		BundleDir = bundles\%CurrentBundle%\

    1008. 

  1008. 	Loop,%BundleDir%replacements\*,0

    1009. 

  1009. 	{

    1010. 

  1010. 		FileRead,replacement,%A_LoopFileFullPath%

    1011. 

  1011. 		IfInString,replacement,`r`n

    1012. 

  1012. 			StringReplace,replacement,replacement,`r`n,`%bundlebreak,All

    1013. 

  1013. 		IniWrite,%A_LoopFileName%,Texter Exports\%CurrentBundle%.texter,%A_Index%,Hotstring

    1014. 

  1014. 		IniWrite,%replacement%,Texter Exports\%CurrentBundle%.texter,%A_Index%,Replacement

    1015. 

  1015. 	}

    1016. 

  1016. 	MsgBox,4,Your bundle was successfully created!,Congratulations, your bundle was successfully exported!`nYou can now share your bundle with the world by sending them the %CurrentBundle%.texter file.`nThey can add it to Texter through the import feature. `n`nWould you like to see the %CurrentBundle% bundle?

    1017. 

  1017. IfMsgBox, Yes

    1018. 

  1018. 	Run,Texter Exports\

    1019. 

  1019. }

    1020. 

  1020. 

    1021. 

  1021. return

    1022. 

  1022. 

    1023. 

  1023. IMPORT:

    1024. 

  1024. FileSelectFile, ImportBundle,,, Import Texter bundle, *.texter

    1025. 

  1025. if ErrorLevel = 0

    1026. 

  1026. {

    1027. 

  1027. 	IniRead,BundleName,%ImportBundle%,Info,Name

    1028. 

  1028. 	IfExist bundles\%BundleName%

    1029. 

  1029. 	{

    1030. 

  1030. 		MsgBox,4,%BundleName% bundle already installed,%BundleName% bundle already installed.`nWould you like to overwrite previous %BundleName% bundle?

    1031. 

  1031. 		IfMsgBox, No

    1032. 

  1032. 			return

    1033. 

  1033. 		else

    1034. 

  1034. 		{

    1035. 

  1035. 			FileRemoveDir,bundles\%BundleName%,1

    1036. 

  1036. 		}

    1037. 

  1037. 	}

    1038. 

  1038. 	FileCreateDir,bundles\%BundleName%

    1039. 

  1039. 	FileCreateDir,bundles\%BundleName%\replacements

    1040. 

  1040. 	FileCreateDir,bundles\%BundleName%\bank

    1041. 

  1041. 	

    1042. 

  1042. 	Loop

    1043. 

  1043. 	{

    1044. 

  1044. 		IniRead,file,%ImportBundle%,%A_Index%,Hotstring

    1045. 

  1045. 		IniRead,replacement,%ImportBundle%,%A_Index%,Replacement

    1046. 

  1046. 		StringReplace, hotstring, file, .txt

    1047. 

  1047. 		StringReplace,replacement,replacement,`%bundlebreak,`r`n,All

    1048. 

  1048. 		bundleCollection = %hotstring%,%bundleCollection%

    1049. 

  1049. 		if file = ERROR

    1050. 

  1050. 				break

    1051. 

  1051. 		else

    1052. 

  1052. 			FileAppend,%replacement%,bundles\%BundleName%\replacements\%file%

    1053. 

  1053. 	}

    1054. 

  1054. 	Gui, 8: Add, Text, Section x10 y10,What triggers would you like to use with the %BundleName% bundle?

    1055. 

  1055. 	Gui,8: Add, Checkbox, vEnterCbox x30, Enter

    1056. 

  1056. 	Gui,8: Add, Checkbox, vTabCbox yp xp+65, Tab

    1057. 

  1057. 	Gui,8: Add, Checkbox, vSpaceCbox yp xp+60, Space

    1058. 

  1058. 	Gui,8: Add,Button, x180 Default w80 GCreateBank,&OK

    1059. 

  1059. 	Gui, 8: Show,,Set default triggers

    1060. 

  1060. }

    1061. 

  1061. return

    1062. 

  1062. 

    1063. 

  1063. CreateBank:

    1064. 

  1064. Gui,8: Submit

    1065. 

  1065. Gui,8: Destroy

    1066. 

  1066. if EnterCbox = 1

    1067. 

  1067. 	FileAppend,%bundleCollection%,bundles\%BundleName%\bank\enter.csv

    1068. 

  1068. if TabCbox = 1

    1069. 

  1069. 	FileAppend,%bundleCollection%,bundles\%BundleName%\bank\tab.csv

    1070. 

  1070. if SpaceCbox = 1

    1071. 

  1071. 	FileAppend,%bundleCollection%,bundles\%BundleName%\bank\space.csv

    1072. 

  1072. MsgBox,4,Enable %BundleName% bundle?,Would you like to enable the %BundleName% bundle?

    1073. 

  1073. IfMsgBox,Yes

    1074. 

  1074. {

    1075. 

  1075. 	IniWrite,1,texter.ini,Bundles,%BundleName%

    1076. 

  1076. 	Gosub,BuildActive

    1077. 

  1077. }

    1078. 

  1078. else

    1079. 

  1079. 	IniWrite,0,texter.ini,Bundles,%BundleName%

    1080. 

  1080. Bundles =

    1081. 

  1081. Loop,bundles\*,2

    1082. 

  1082. {

    1083. 

  1083. 	Bundles = %Bundles%%A_LoopFileName%|

    1084. 

  1084. 	;thisBundle = %A_LoopFileName%

    1085. 

  1085. 	if BundleName = %A_LoopFileName%

    1086. 

  1086. 		Bundles = %Bundles%|

    1087. 

  1087. }

    1088. 

  1088. GuiControl,2:,BundleTabs,|Default|%Bundles%

    1089. 

  1089. Gosub,ListBundle

    1090. 

  1090. return

    1091. 

  1091. 

    1092. 

  1092. ;; method written by Dustin Luck for writing to ini

    1093. 

  1093. GetValFromIni(section, key, default)

    1094. 

  1094. {

    1095. 

  1095. 	IniRead,IniVal,texter.ini,%section%,%key%

    1096. 

  1096. 	if IniVal = ERROR

    1097. 

  1097. 	{

    1098. 

  1098. 		IniWrite,%default%,texter.ini,%section%,%key%

    1099. 

  1099. 		IniVal := default

    1100. 

  1100. 	}

    1101. 

  1101. 	return IniVal

    1102. 

  1102. }

    1103. 

  1103. 

    1104. 

  1104. SaveHotstring(HotString, Replacement, IsScript, Bundle, SpaceIsTrigger, TabIsTrigger, EnterIsTrigger)

    1105. 

  1105. {

    1106. 

  1106. global EnterCSV

    1107. 

  1107. global TabCSV

    1108. 

  1108. global SpaceCSV

    1109. 

  1109. global EnterKeys

    1110. 

  1110. global TabKeys

    1111. 

  1111. global SpaceKeys

    1112. 

  1112. 	HotString:=Hexify(HotString)

    1113. 

  1113. 	successful := false

    1114. 

  1114. 	if (!EnterIsTrigger AND !TabIsTrigger AND !SpaceIsTrigger)

    1115. 

  1115. 	{

    1116. 

  1116. 		MsgBox,262144,Choose a trigger,You need to choose a trigger in order to save a hotstring replacement.

    1117. 

  1117. 	}

    1118. 

  1118. 	else if (HotString <> "" AND Replacement <> "")

    1119. 

  1119. 	{

    1120. 

  1120. 		successful := true

    1121. 

  1121. 		if IsScript

    1122. 

  1122. 		{

    1123. 

  1123. 			Replacement = ::scr::%Replacement%

    1124. 

  1124. 		}

    1125. 

  1125. 

    1126. 

  1126. 		IniWrite,%SpaceIsTrigger%,texter.ini,Triggers,Space

    1127. 

  1127. 		IniWrite,%TabIsTrigger%,texter.ini,Triggers,Tab

    1128. 

  1128. 		IniWrite,%EnterIsTrigger%,texter.ini,Triggers,Enter

    1129. 

  1129. 

    1130. 

  1130. 		FileDelete, %A_ScriptDir%\%Bundle%replacements\%HotString%.txt

    1131. 

  1131. 		FileAppend,%Replacement%,%A_ScriptDir%\%Bundle%replacements\%HotString%.txt

    1132. 

  1132. 

    1133. 

  1133. 		if EnterIsTrigger

    1134. 

  1134. 		{

    1135. 

  1135. 			AddToBank(HotString, Bundle, "enter")

    1136. 

  1136. 		}

    1137. 

  1137. 		else

    1138. 

  1138. 		{

    1139. 

  1139. 			DelFromBank(HotString, Bundle, "enter")

    1140. 

  1140. 		}

    1141. 

  1141. 		if TabIsTrigger

    1142. 

  1142. 		{

    1143. 

  1143. 			AddToBank(HotString, Bundle, "tab")

    1144. 

  1144. 		}

    1145. 

  1145. 		else

    1146. 

  1146. 		{

    1147. 

  1147. 			DelFromBank(HotString, Bundle, "tab")

    1148. 

  1148. 		}

    1149. 

  1149. 		if SpaceIsTrigger

    1150. 

  1150. 		{

    1151. 

  1151. 			AddToBank(HotString, Bundle, "space")

    1152. 

  1152. 		}

    1153. 

  1153. 		else

    1154. 

  1154. 		{

    1155. 

  1155. 			DelFromBank(HotString, Bundle, "space")

    1156. 

  1156. 		}

    1157. 

  1157. 	}

    1158. 

  1158. 	GoSub,BuildActive

    1159. 

  1159. 	return successful

    1160. 

  1160. }

    1161. 

  1161. 

    1162. 

  1162. AddToBank(HotString, Bundle, Trigger)

    1163. 

  1163. {

    1164. 

  1164. 	;HotString:=Dehexify(HotString)

    1165. 

  1165. 	BankFile = %Bundle%bank\%trigger%.csv

    1166. 

  1166. 	FileRead, Bank, %BankFile%

    1167. 

  1167. 	if HotString not in %Bank%

    1168. 

  1168. 	{

    1169. 

  1169. 		FileAppend,%HotString%`,, %BankFile%

    1170. 

  1170. 		FileRead, Bank, %BankFile%

    1171. 

  1171. 	}

    1172. 

  1172. }

    1173. 

  1173. 

    1174. 

  1174. DelFromBank(HotString, Bundle, Trigger)

    1175. 

  1175. {

    1176. 

  1176. 	BankFile = %Bundle%bank\%trigger%.csv

    1177. 

  1177. 	FileRead, Bank, %BankFile%

    1178. 

  1178. 	;HotString:=Dehexify(HotString)

    1179. 

  1179. 	if HotString in %Bank%

    1180. 

  1180. 	{

    1181. 

  1181. 		StringReplace, Bank, Bank, %HotString%`,,,All

    1182. 

  1182. 		FileDelete, %BankFile%

    1183. 

  1183. 		FileAppend,%Bank%, %BankFile%

    1184. 

  1184. 	}

    1185. 

  1185. }

    1186. 

  1186. 

    1187. 

  1187. EnableTriggers(doEnable)

    1188. 

  1188. {

    1189. 

  1189. global keys

    1190. 

  1190. 	StringReplace,tempKeys,keys,`}`,`{,`n,All

    1191. 

  1191. 	Loop,Parse,TempKeys,`n,`{`} 

    1192. 

  1192. 	{

    1193. 

  1193. 		if (doEnable)

    1194. 

  1194. 		{

    1195. 

  1195. 			Hotkey,IfWinNotActive,Enter desired text

    1196. 

  1196. 			Hotkey,$%A_LoopField%,HOTKEYS

    1197. 

  1197. 			Hotkey,$%A_LoopField%,On

    1198. 

  1198. 			Hotkey,IfWinActive

    1199. 

  1199. 		}

    1200. 

  1200. 		else

    1201. 

  1201. 		{

    1202. 

  1202. 			Hotkey,IfWinNotActive,Enter desired text

    1203. 

  1203. 			Hotkey,$%A_LoopField%,Off

    1204. 

  1204. 			Hotkey,IfWinActive

    1205. 

  1205. 		}

    1206. 

  1206. 	}

    1207. 

  1207. }

    1208. 

  1208. 

    1209. 

  1209. RESOURCES:

    1210. 

  1210. ;code optimization -- removed IfNotExist tests

    1211. 

  1211. ;redundant when final arg to FileInstall is 0

    1212. 

  1212. FileInstall,resources\texter.ico,%TexterICO%,1

    1213. 

  1213. FileInstall,resources\replace.wav,%ReplaceWAV%,0

    1214. 

  1214. FileInstall,resources\texter.png,%TexterPNG%,1

    1215. 

  1215. FileInstall,resources\style.css,%StyleCSS%,0

    1216. 

  1216. return

    1217. 

  1217. 

    1218. 

  1218. ;AUTOCLOSE:

    1219. 

  1219. ;:*?B0:(::){Left}

    1220. 

  1220. ;:*?B0:[::]{Left}

    1221. 

  1221. ;:*?B0:{::{}}{Left}

    1222. 

  1222. ;return

    1223. 

  1223. 

    1224. 

  1224. PrintableList:

    1225. 

  1225. alt := 0

    1226. 

  1226. List = <html xmlns="http://www.w3.org/1999/xhtml"><head><link type="text/css" href="style.css" rel="stylesheet"><title>Texter Hotstrings and Replacement Text Cheatsheet</title></head><body><h2>Texter Hostrings and Replacement Text Cheatsheet</h2><span class="hotstring" style="border:none`; color:black`;"><h3>Hotstring</h3></span><span class="replacement" style="border:none`;"><h3>Replacement Text</h3></span><span class="trigger" style="border:none`;"><h3>Trigger(s)</h3></span>

    1227. 

  1227. Loop, replacements\*.txt

    1228. 

  1228. {

    1229. 

  1229. 	alt := 1 - alt

    1230. 

  1230. 	trig =

    1231. 

  1231. 	hs = %A_LoopFileName%

    1232. 

  1232. 	StringReplace, hs, hs, .txt

    1233. 

  1233. 	FileRead, rp, replacements\%hs%.txt

    1234. 

  1234. 	If hs in %EnterKeys%

    1235. 

  1235. 		trig = Enter

    1236. 

  1236. 	If hs in %TabKeys%

    1237. 

  1237. 		trig = %trig% Tab

    1238. 

  1238. 	If hs in %SpaceKeys%

    1239. 

  1239. 		trig = %trig% Space

    1240. 

  1240. 	StringReplace, rp, rp, <,&lt;,All

    1241. 

  1241. 	StringReplace, rp, rp, >,&gt;,All

    1242. 

  1242. 	List = %List%<div class="row%alt%"><span class="hotstring">%hs%</span><span class="replacement">%rp%</span><span class="trigger">%trig%</span></div><br />

    1243. 

  1243. 	

    1244. 

  1244. }

    1245. 

  1245. List = %List%</body></html>

    1246. 

  1246. IfExist resources\Texter Replacement Guide.html

    1247. 

  1247. 	FileDelete,resources\Texter Replacement Guide.html

    1248. 

  1248. FileAppend,%List%, resources\Texter Replacement Guide.html

    1249. 

  1249. Run,resources\Texter Replacement Guide.html

    1250. 

  1250. return

    1251. 

  1251. 

    1252. 

  1252. UpdateCheck: ;;;;;;; Update the version number on each new release ;;;;;;;;;;;;;

    1253. 

  1253. IfNotExist texter.ini 

    1254. 

  1254. {

    1255. 

  1255. 	MsgBox,4,Check for Updates?,Would you like to automatically check for updates when on startup?

    1256. 

  1256. 	IfMsgBox,Yes

    1257. 

  1257. 		updatereply = 1

    1258. 

  1258. 	else

    1259. 

  1259. 		updatereply = 0

    1260. 

  1260. }

    1261. 

  1261. update := GetValFromIni("Preferences","UpdateCheck",updatereply)

    1262. 

  1262. IniWrite,%Version%,texter.ini,Preferences,Version

    1263. 

  1263. if (update = 1)

    1264. 

  1264. 	SetTimer,RunUpdateCheck,10000

    1265. 

  1265. return

    1266. 

  1266. 

    1267. 

  1267. RunUpdateCheck:

    1268. 

  1268. update("texter")

    1269. 

  1269. return

    1270. 

  1270. 

    1271. 

  1271. update(program) {

    1272. 

  1272. 	SetTimer, RunUpdateCheck, Off

    1273. 

  1273. 	UrlDownloadToFile,http://svn.adampash.com/%program%/CurrentVersion.txt,VersionCheck.txt

    1274. 

  1274. 	if ErrorLevel = 0

    1275. 

  1275. 	{

    1276. 

  1276. 		FileReadLine, Latest, VersionCheck.txt,1

    1277. 

  1277. 		IniRead,Current,%program%.ini,Preferences,Version

    1278. 

  1278. 		;MsgBox,Latest: %Latest% `n Current: %Current%

    1279. 

  1279. 		if (Latest > Current)

    1280. 

  1280. 		{

    1281. 

  1281. 			MsgBox,4,A new version of %program% is available!,Would you like to visit the %program% homepage and download the latest version?

    1282. 

  1282. 			IfMsgBox,Yes

    1283. 

  1283. 				Goto,Homepage

    1284. 

  1284. 		}

    1285. 

  1285. 		FileDelete,VersionCheck.txt ;; delete version check

    1286. 

  1286. 	}

    1287. 

  1287. }

    1288. 

  1288. 

    1289. 

  1289. textPrompt(thisText) {

    1290. 

  1290. 	Gui,7: +AlwaysOnTop -SysMenu +ToolWindow

    1291. 

  1291. 	Gui,7: Add,Text,x5 y5, Enter the text you want to insert:

    1292. 

  1292. 	Gui,7: Add,Edit,x20 y25 r1 vpromptText

    1293. 

  1293. 	Gui,7: Add,Text,x5 y50,Your text will be replace the `%p variable:

    1294. 

  1294. 	Gui,7: Add,Text,w300 Wrap x20 y70,%thisText%

    1295. 

  1295. 	Gui,7: Show,auto,Enter desired text

    1296. 

  1296. 	Hotkey,IfWinActive,Enter desired text

    1297. 

  1297. 	Hotkey,Enter,SubmitPrompt

    1298. 

  1298. 	;Hotkey,Space,

    1299. 

  1299. 	WinWaitClose,Enter desired text

    1300. 

  1300. }

    1301. 

  1301. return

    1302. 

  1302. 

    1303. 

  1303. SubmitPrompt:

    1304. 

  1304. Gui, 7: Submit

    1305. 

  1305. Gui, 7: Destroy

    1306. 

  1306. StringReplace,ReplacementText,ReplacementText,`%p,%promptText%

    1307. 

  1307. return

    1308. 

  1308. 

    1309. 

  1309. 

    1310. 

  1310. HexAll:

    1311. 

  1311. ;MsgBox,Hexing time!

    1312. 

  1312. FileCopyDir,replacements,resources\backup\replacements

    1313. 

  1313. FileCopyDir,bank,resources\backup\bank

    1314. 

  1314. Loop, %A_ScriptDir%\replacements\*.txt

    1315. 

  1315. {

    1316. 

  1316. 	StringReplace, thisFile, A_LoopFileName, .txt,,All

    1317. 

  1317. 	thisFile:=Hexify(thisFile)

    1318. 

  1318. 	;MsgBox,% thisFile

    1319. 

  1319. 	FileMove,%A_ScriptDir%\replacements\%A_LoopFileName%,%A_ScriptDir%\replacements\%thisFile%.txt

    1320. 

  1320. }

    1321. 

  1321. Loop, %A_ScriptDir%\bank\*.csv

    1322. 

  1322. {

    1323. 

  1323. 	FileRead,thisBank,%A_ScriptDir%\bank\%A_LoopFileName%

    1324. 

  1324. 	Loop,Parse,thisBank,CSV

    1325. 

  1325. 	{

    1326. 

  1326. 		thisString:=Hexify(A_LoopField)

    1327. 

  1327. 

    1328. 

  1328. 		hexBank = %hexBank%%thisString%,

    1329. 

  1329. 	}

    1330. 

  1330. 	FileDelete,%A_ScriptDir%\bank\%A_LoopFileName%

    1331. 

  1331. 	FileAppend,%hexBank%,%A_ScriptDir%\bank\%A_LoopFileName%

    1332. 

  1332. }

    1333. 

  1333. ;TODO: Also hexify .csv files

    1334. 

  1334. 

    1335. 

  1335. IniWrite,1,texter.ini,Settings,Hexified

    1336. 

  1336. IniWrite,1,texter.ini,Bundles,Default

    1337. 

  1337. return

    1338. 

  1338. 

    1339. 

  1339. Hexify(x) ;Stolen from Autoclip/Laszlo 

    1340. 

  1340. { 

    1341. 

  1341.   StringLen,len,x 

    1342. 

  1342.   format=%A_FormatInteger% 

    1343. 

  1343.   SetFormat,Integer,Hex 

    1344. 

  1344.   hex= 

    1345. 

  1345.   Loop,%len% 

    1346. 

  1346.   { 

    1347. 

  1347.     Transform,y,Asc,%x% 

    1348. 

  1348.     StringTrimLeft,y,y,2 

    1349. 

  1349.     hex=%hex%%y% 

    1350. 

  1350.     StringTrimLeft,x,x,1 

    1351. 

  1351.   } 

    1352. 

  1352.   SetFormat,Integer,%format% 

    1353. 

  1353.   Return,hex

    1354. 

  1354. } 

    1355. 

  1355. 

    1356. 

  1356. DeHexify(x) 

    1357. 

  1357. { 

    1358. 

  1358.    StringLen,len,x 

    1359. 

  1359.    ;len:=(len-4)/2 

    1360. 

  1360.    string= 

    1361. 

  1361.    Loop,%len% 

    1362. 

  1362.    { 

    1363. 

  1363.       StringLeft,hex,x,2

    1364. 

  1364.       hex=0x%hex% 

    1365. 

  1365.       Transform,y,Chr,%hex% 

    1366. 

  1366.       string=%string%%y% 

    1367. 

  1367.       StringTrimLeft,x,x,2 

    1368. 

  1368.    } 

    1369. 

  1369.    Return,string 

    1370. 

  1370. } 

    1371. 

  1371. 

    1372. 

  1372. 

    1373. 

  1373. EXIT: 

    1374. 

  1374. ExitApp
    1375.