Traverse string and decrease each occuring number by 1

[needhelpplease12]

I have a string that looks like this:

2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
2,0,0,4,0,1,0,0,0,0,0,3,0,0,0,0,0,0,0,2,
1,0,0,0,6,0,0,1,1,0,0,0,0,0,6,0,0,0,0,2,
1,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,1,1,2,2

This is just an example, the numbers can be different, but they are always separated by a comma.

I want to traverse the string and decrease each number by 1, so the first line would look like this then:

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
[...]

A simple loop over the string doesn't seem to work because the numbers can have more than one digit...

Do I have to use StringReplace? Or maybe StringRegExpReplace? It seems rather complicated

Thanks

Edited July 7, 2014 by needhelpplease12

[jchd]

Your example seems to show 3 lines. Does your input string actually contains line breaks?

Anyway that doesn't matter much. Try this:

Local $sInput = "2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2," & @CRLF & "2,0,0,4,0,1,0,0,0,0,0,3,0,0,0,0,0,0,0,2," & @CRLF & _
    "1,0,0,0,6,0,0,1,1,0,0,0,0,0,6,0,0,0,0,2," & @CRLF & "1,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,1,1,2,2"

ConsoleWrite(Execute("'" & StringRegExpReplace($sInput, "(\d+)", "' & $1 + 1 & '") & "'") & @LF)

Edited July 7, 2014 by jchd

[needhelpplease12]

Wow, it works perfectly (except the + should be a - but it's just a typo).

Thank you so much!

(I shall add that it only works for positive numbers, but that's not a problem at all because I only have those.)

Edited July 7, 2014 by needhelpplease12

[jchd]

Sorry I read increase instead. I need one more cup of coffee for the other eye.

Make that:

Local $sInput = "2,2,+200,-888,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2," & @CRLF & "2,0,0,4,0,1,0,0,0,0,0,3,0,0,0,0,0,0,0,2," & @CRLF & _
    "1,0,0,0,6,0,0,1,1,0,0,0,0,0,6,0,0,0,0,2," & @CRLF & "1,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,1,1,2,2"

ConsoleWrite(Execute("'" & StringRegExpReplace($sInput, "([-+]?\d+)", "' & $1 - 1 & '") & "'") & @LF)

if you ever need to process explicitely signed values (+ or -).