Re: Sumator - issue [75820]

[Jan Fiala]

here is modified script
it goes in your file line by line and sum each line
if line contains any non digit char, is ignored, it means summed lines are not
touched

const module_name  = "SumDigits"         'this name must be unique !!!
const module_desc  = "Sum digits"  'script description
const module_ver   = "1.00"         'version

sub mySum
    set obj = NewEditor()
    obj.AssignActiveEditor()

        Dim n, d, sum
        for j = 1 to obj.linesCount() 
                sum = 0
                d = 0
                obj.caretY(j)
                n = obj.lineText        
                If IsNumeric(n) Then
                For i = 1 To Len(n)
                        d = CInt(Mid(n,i,1))
                        sum = sum + d
                Next
                    obj.lineText(n & "=" & sum)
                End If
        Next
end sub

sub Init
  addMenuItem "Sum digits in lines","", "mySum"
end sub


-- 
<https://forum.pspad.com/read.php?2,75802,75820>
PSPad freeware editor https://www.pspad.com