Store this code into PSPad subfolder .\Script\VBScript as e.g. SumDigits.vbs
file
cite:
--------------------------------------------------------------------------------
const module_name = "SumDigits" 'this name must be unique !!!
const module_desc = "Sum selected digits" 'script description
const module_ver = "1.00" 'version
sub mySum
set obj = NewEditor()
obj.AssignActiveEditor()
Dim n, d, sum
sum = 0
d = 0
n = obj.SelText
If IsNumeric(n) Then
For i = 1 To Len(n)
d = CInt(Mid(n,i,1))
sum = sum + d
Next
End If
obj.selText(n & "=" & sum)
end sub
sub Init
addMenuItem "Sum digits from selection","", "mySum"
end sub
--------------------------------------------------------------------------------
Select numbers in editor
>From the menu script click on Sum digits from selection
--
<https://forum.pspad.com/read.php?2,75802,75815>
PSPad freeware editor https://www.pspad.com
