VBscript for Triangle reverse

[Jyobtech]

Hi Experts,
Can you please answer this question, I searched in google and not able to find ..

Output should be:
54321
5432
543
54
5

Thanks in advance

[basanth27]

Hopefully this is what you were looking for?

Code:

strVal = 54321
For IntCounter = len(strVal) to 0 step -1
msgbox Left(strVal,IntCounter)
Next

[Jyobtech]

Hi Basanth27,
Thanks a lot for your quick response.

Your code is working fine and its giving the result as line by line (as 1st it display 54321 after 5432 after 543 after 54 after 5 )
But I want the logic , all the results should display at at time like
54321
5432
543
54
5
Can you please solve this ...Thanks

[basanth27]

Okay. Was this what you wanted?

Code:

strVal = 54321
for IntIcounter = len(strVal) to 1 step -1
strInd=  Left(strVal,IntIcounter)
strFinal = strFinal + strInd &VBCRLF
Next
msgbox strFinal

[Jyobtech]

Excellent Basanth,
It's working fine..
Thanks a Ton for the Help .

[basanth27]

Happiness is contagious Thank you. Have a good weekend.