Initial Upload

Author: Marc-Anderson

CSV Text Expander/CSV Text Expander.ahk

@@ -0,0 +1,58 @@
+#NoEnv  					; Recommended for performance and compatibility with future AutoHotkey releases.
+#Warn  						; Enable warnings to assist with detecting common errors.
+SendMode Play  					; Recommended for new scripts due to its superior speed and reliability.
+SetWorkingDir %A_ScriptDir%  			; Set starting directory to the directory with the script.
+#SingleInstance					;Prevent more than one of the same script from running concurrently.
+#persistent					;Keep script active with timers running.
+SetTitleMatchMode,2				;Easily find window titles.
+
+
+; This app works but is incomplete. still needs filtering of special characters and referential file location instead of typing it into the file. 
+
+
+MsgBox, 1, HotStrings by Marc Anderson, This app will enable shortcuts(aka, hotstrings) that will autotype based on a CSV file
+IfMsgBox, OK
+; loop through the csv file one line at a time
+Loop, read, hotstrings.csv
+{
+    ; save the line number to a variable
+    LineNumber := A_Index -1
+
+    ; skip the first row of content
+    IfEqual, A_Index, 1, Continue
+
+    ; parse each cell into variables
+    Loop, parse, A_LoopReadLine, CSV
+        {
+            ; if the cell number is odd, assign the current cell to the HotStringShortCut variable
+            if ( Mod(A_Index, 2) != 0) {
+                HotStringShortCut := A_LoopField ;else
+                ; MsgBox, 4, , %LineNumber%-%A_Index% is:`n%A_LoopField%`n%HotStringShortCut%`nContinue?
+
+            ; if the cell number is even, assign the current cell to the HotStringExtended variable
+            } else {
+                HotStringExtended := A_LoopField
+                ; MsgBox, 4, , %LineNumber%-%A_Index% is:`n%A_LoopField%`n%HotStringExtended%`nContinue?
+            }
+
+            ; if the cell number is even, assign both variables to a hotkey
+            if ( Mod(A_Index, 2) = 0) {
+                ; MsgBox, 4, , %HotStringShortCut% - %HotStringExtended%`n`nContinue?
+                hotstring(":*:" "<" HotStringShortCut, HotStringExtended)
+            }
+
+            ; %LineNumber% is the current row
+            ; %A_Index% is the current column
+            ; %A_LoopField% is the current field
+            
+            ; MsgBox, 4, , Field %LineNumber%-%A_Index% is:`n%A_LoopField%`n`nContinue?
+            IfMsgBox, No
+                return
+        }
+}
+else IfMsgBox, Cancel
+    ExitApp
+
+^1::
+Reload
+Sleep, 2000

CSV Text Expander/hotstrings.csv

@@ -0,0 +1,4 @@
+HotKey,Extended Text
+else,Please let me know if there is anything else I can do.
+sorry,I am sorry for the inconvenience.
+nobil,We do not include billing details with any of our shipments.

XLSX Text Expander/XLSX Text Expander.ahk

@@ -0,0 +1,84 @@
+#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
+#SingleInstance, Force
+#Warn  ; Enable warnings to assist with detecting common errors.
+SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
+SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
+SetTitleMatchMode, 2
+; VERSION 100
+
+; This app works but is incomplete. still needs referential file location instead of typing it into the file. 
+
+; initialize the XL variable
+XL :=
+
+; fetch the correct file path
+tgtFilePath := A_ScriptDir "\hotstrings.xlsx"
+
+
+MsgBox, 1, AutoHotkey Text Expander, This text expander app allows you to automatically convert short phrases into long blocks of text.`n`nFor example, typing <now will automatically expand into the current date and time. All shortcuts used in this app are prefixed with the < symbol.`n`nNew shortcuts can be added in the hotstrings.xlsx file included with this app.
+IfMsgBox, Cancel 
+    Return
+IfMsgBox, OK
+    try {
+        ; Check if excel is active
+        XL := ComObjectActive("Excel.Application")
+    } catch {
+        ; If Excel is not active, create an instance
+        XL := ComObjCreate("Excel.Application")
+    }
+    ; MsgBox, % IsObject(XL) ; Is excel an object?
+    try {
+        ; Check if the workbook exists
+        XL.Workbooks.Open(tgtFilePath)
+    } catch {
+        ; Quit the application
+        if(XL.Workbooks.Count = 1){
+            XL.Quit
+        }
+        ; Alert the user that the file was not found
+        MsgBox, The necessary workbook was not found. Please create a hotstrings.xlsx file to continue.
+        ExitApp
+        Sleep, 2000
+    }
+
+    ; Make Excel Visible
+    XL.Visible := 0
+
+    ; select the sheet name containing the templates
+    tgtSheet := XL.Worksheets("Templates")
+
+    ; Sort the data by column C so it can loop over all of the hotstrings without empty cells
+    tgtSheet.UsedRange.Offset(1).Sort(XL.Columns(3), 1)
+
+    ; Loop through all of the active cells
+    while(tgtSheet.Range("C" . A_Index).Value != "") {
+
+        ; Skip the first row as they are the header
+        IfLess, A_Index, 2, Continue
+
+        ; assign the value in column C of the current row to HotStringShortCut variable
+        HotStringShortCut := tgtSheet.Range("C" . A_Index).Value
+
+        ; assign the value in column D of the current row to HotStringExtended variable
+        HotStringExtended := tgtSheet.Range("D" . A_Index).Value
+
+        ; replaces any exclamation points and carriage returns with appropriate characters 
+        HotStringExtended := StrReplace(StrReplace(StrReplace(HotStringExtended, "!","{!}"),"`r","{enter}"),A_Space A_Space,"{space 2}")
+
+        ; assign both variables to a hotkey
+        hotstring(":*:" "<" HotStringShortCut, HotStringExtended)
+        ; MsgBox, 4, , %HotStringShortCut% - %HotStringExtended%`n`nContinue?
+
+    }
+    ; tell excel it's save so it wont harass you and close the document
+    XL.Application.ActiveWorkbook.saved := true
+    if(XL.Workbooks.Count = 1){
+        XL.Quit
+    } else {
+        XL.Application.ActiveWorkbook.Close
+    }
+
+    :*:<now::
+        FormatTime, CurrentDateTime,, MM/dd/yyyy hh:mm:ss 
+        SendInput, %CurrentDateTime%
+        return