by ZvezdanD » Sun Apr 12, 2009 3:31 pm
I am not sure when I will finish with the next version of this script. If you are impatient and don't want to wait for it, you could try with the modification of the script by yourself. You should replace StoreIniValues function from the line 3175 till 3192 with the next code:
Code: Select all
Sub StoreIniValues(lIndex)
SetIniPreset lIndex, "Name: " & AddQuotes(sPresetName) _
& ", Description: " & AddQuotes(sPrstDscrpt) _
& ", Shortcut: " & AddQuotes(sPrstShrcut) _
& ", Icon: " & AddQuotes(IIf(Left(sIconIdx, _
Len(SDB.ApplicationPath)) = SDB.ApplicationPath, _
Mid(sIconIdx, Len(SDB.ApplicationPath) + 1), sIconIdx)) _
& ", Toolbar: " & IIf(bToolbarBtn, "True", "False") _
& ", FindWhat: " & AddQuotes(sFindText) _
& ", FindInto: " & AddQuotes(cboFindInto.ItemText(lFindIndex)) _
& ", FindRegExp: " & IIf(bFindRegEx, "True", "False") _
& ", WholeWord: " & IIf(bWholeWord, "True", "False") _
& ", ReplaceWith: " & AddQuotes(sRplcText) _
& ", ReplaceFrom: " & AddQuotes(cboRplcFrom.ItemText(lRplcIndex)) _
& ", ReplaceRegExp: " & IIf(bRplcRegEx, "True", "False") _
& ", ReplaceVBScr: " & IIf(bRplcVBScr, "True", "False") _
& ", MatchCase: " & IIf(bMatchCase, "True", "False")
End Sub
I am not sure when I will finish with the next version of this script. If you are impatient and don't want to wait for it, you could try with the modification of the script by yourself. You should replace StoreIniValues function from the line 3175 till 3192 with the next code:
[code]Sub StoreIniValues(lIndex)
SetIniPreset lIndex, "Name: " & AddQuotes(sPresetName) _
& ", Description: " & AddQuotes(sPrstDscrpt) _
& ", Shortcut: " & AddQuotes(sPrstShrcut) _
& ", Icon: " & AddQuotes(IIf(Left(sIconIdx, _
Len(SDB.ApplicationPath)) = SDB.ApplicationPath, _
Mid(sIconIdx, Len(SDB.ApplicationPath) + 1), sIconIdx)) _
& ", Toolbar: " & IIf(bToolbarBtn, "True", "False") _
& ", FindWhat: " & AddQuotes(sFindText) _
& ", FindInto: " & AddQuotes(cboFindInto.ItemText(lFindIndex)) _
& ", FindRegExp: " & IIf(bFindRegEx, "True", "False") _
& ", WholeWord: " & IIf(bWholeWord, "True", "False") _
& ", ReplaceWith: " & AddQuotes(sRplcText) _
& ", ReplaceFrom: " & AddQuotes(cboRplcFrom.ItemText(lRplcIndex)) _
& ", ReplaceRegExp: " & IIf(bRplcRegEx, "True", "False") _
& ", ReplaceVBScr: " & IIf(bRplcVBScr, "True", "False") _
& ", MatchCase: " & IIf(bMatchCase, "True", "False")
End Sub[/code]