The action "Trim File Names" encountered an error

Question

Get Selected Finder Items
Trim File Names
this simple workflow works ok as a workflow, but when saves as a service it fails. If I run the service inside of Automator it works. Anyone know why this might be failing when ran from the Finder's contextual menu?

Answer 1

copied PHP's substr_replace functionality with this one....
tell application "Finder" to set Sel to selection as alias list
set tRange to text returned of (display dialog "replacement : start : end " default answer "(replacement) : 0 : 0")
set tid to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set tParts to text items of tRange
set AppleScript's text item delimiters to tid
set paramList to every text item of tParts
set numParams to count of tParts
if numParams = 3 then
set startPos to text item 2 of tParts as integer
set rLength to text item 3 of tParts as integer
set toReplace to get text 2 thru ((length of text item 1 of tParts) - 2) of (text item 1 of tParts)
if startPos < 0
repeat with oneFile in Sel
set fInfo to (info for oneFile)
set nExten to name extension of fInfo
set tName to name of fInfo
set beforeExten to (length of tName) - (length of nExten) - 1
if beforeExten + startPos < 0 then
set fInsertPoint to 0
else
set fInsertPoint to beforeExten + startPos
end if
if rLength < 0 then
set fEndPoint to beforeExten + rLength
if fEndPoint < fInsertPoint then
set fEndPoint to fInsertPoint
end if
else
set fEndPoint to (fInsertPoint + rLength)
if fEndPoint > beforeExten then
set fEndPoint to beforeExten
end if
end if
set tNewName to insertReplacement(fInfo, toReplace, fInsertPoint, fEndPoint)
tell application "Finder" to set name of oneFile to tNewName
end repeat
else
repeat with oneFile in Sel
set fInfo to (info for oneFile)
set nExten to name extension of fInfo
set tName to name of fInfo
set beforeExten to (length of tName) - (length of nExten)-1
if startPos > beforeExten then
set fInsertPoint to beforeExten
else
set fInsertPoint to startPos
end if
if rLength < 0 then
set fEndPoint to (beforeExten + rLength)
if fEndPoint < fInsertPoint then
set fEndPoint to fInsertPoint
end if
else
set fEndPoint to (fInsertPoint + rLength)
if fEndPoint > beforeExten then
set fEndPoint to beforeExten
end if
end if
set tNewName to insertReplacement(fInfo, toReplace, fInsertPoint, fEndPoint)
tell application "Finder" to set name of oneFile to tNewName
end repeat
end if
else
display dialog "missing parameters or bad syntax"
end if
to insertReplacement(fInfo, replaceString, startPos, endPos)
set nExten to name extension of fInfo
set tName to name of fInfo
set beforeExten to (length of tName) - (length of nExten)-1
if startPos > 0 then
set beforeChars to get text 1 thru (startPos) of tName
else
set beforeChars to ""
end if
if (endPos < beforeExten) then
set afterChars to get text (endPos + 1) thru (length of tName) of tName
else
set afterChars to "." & nExten
end if
set editedText to beforeChars & replaceString & afterChars
return editedText
end insertReplacement