majkinetor,
Thanks for a wonderful script.
I added some code to allow for support for the 5 different loop commands.
In ISense.ahk, I added:
Code:
; *********** Morpheus Added this code ***********
ThisWord := selection
StringLeft, TempVar, ThisWord, 4
If TempVar = Loop
ThisWord = Loop
selection := ThisWord
; *************************************************
;type the desired word (dynamic call)
ISense_SendSelectionMethod%ISense_CurrentSendLineMethod%( selection, cmndType )
And this:
Code:
ISense_CreateSyntaxArray( InCMDs ) ;*** MOD
{
local fullCmnd, cmnd, c, lastDict, params
; *********** Morpheus Added this code ***********
LoopCount = 0
I_LoopCmd1 := "Loop"
I_LoopCmd2 := "Loop_FilePattern"
I_LoopCmd3 := "Loop_Parse"
I_LoopCmd4 := "Loop_Read"
I_LoopCmd5 := "Loop_registry"
I_LoopParam1 := "[, Count]`n{`n ID := A_Index`n If var%A_Index% =`n break`n}"
I_LoopParam2 := "FilePattern [, IncludeFolders?, Recurse?]`n{`n FileName := A_LoopFileName`n FileFullPath := A_LoopFileLongPath`n FileRelativeDir := A_LoopFileDir`n command2`n}"
I_LoopParam3 := "Parse, InputVar [, Delimiters|CSV, OmitChars]`n{`n Line := A_LoopField`n command2`n}"
I_LoopParam4 := "Read, InputFile [, OutputFile]`n{`n Line := A_LoopReadLine`n command2`n}"
I_LoopParam5 := "HKLM|HKU|HKCU|HKCR|HKCC [, Key, IncludeSubkeys?, Recurse?]`n{`n RegName := A_LoopRegName`n RegType := A_LoopRegType`n command2`n}"
Sort, InCMDs
Loop, Parse, InCMDs, `n, `r
{
fullCmnd := A_LoopField
StringLeft, TempVar, fullCmnd, 4
If TempVar <> Loop
{ ; Directives have a first space instead of a first comma. Use whichever comes first.
c := ISense_GetNextDelimiter( fullCmnd, ",,," . A_Space )
if c > 0
{
StringMid cmnd, fullCmnd, 1, c-1
StringMid params, fullCmnd, c+1, 256
}
else {
cmnd := fullCmnd
params := " no parameters "
}
}
Else
{
LoopCount++
cmnd := I_LoopCmd%LoopCount%
params := I_LoopParam%LoopCount%
}
; ************************************************
And in IE.ahk, I added:
Code:
if !initialised
{
ISense_m_SendMessage = commands/PostMessage
ISense_m_IfWinNotActive = commands/IfWinActive
ISense_m_IfWinNotExist = commands/IfWinExist
ISense_m_StringTrimRight = commands/StringTrimLeft
ISense_m_StringUpper = commands/StringLower
ISense_m__IfWinExist = commands/
; *********** Morpheus Added this code ***********
ISense_m_Loop = commands/Loop.htm
ISense_m_Loop_FilePattern = commands/LoopFile.htm
ISense_m_Loop_Parse = commands/LoopParse.htm
ISense_m_Loop_Read = commands/LoopReadFile.htm
ISense_m_Loop_registry = commands/LoopReg.htm
; ************************************************
I hope you find this useful, and that I didn't break anything!
Login
Register
FAQ
Search
