extract only last number in a text with out regex method

[pavank]

data ex;
input comments:& $200.;
Cards;
1Ram scored 90 marks
2seetha has got 100
3Laxman failed with 30 in English
;
proc print;
run;

Qsn: How to extract last number without regex method 

 output

marks

   90

1 00

30

[Mazi · Accepted solution]

data ex;
input comments:& $200.;
Cards;
1Ram scored 90 marks
2seetha has got 100
3Laxman failed with 30 in English
;
proc print;
run;


data test;
	set ex;
	do i=1 to countw(comments, '');
		word = scan(comments, i, ' ', 'b');
		if ^notdigit(strip(word)) then do;
			put word=;
			leave;
		end;
	end;
run;

Hi, Can you try this?

[Ksharp]

data ex;
input comments:& $200.;
want=scan(comments,-1,,'kd');
Cards;
1Ram scored 90 marks
2seetha has got 100
3Laxman failed with 30 in English
;
proc print;
run;

[pavank]

Hi @Ksharp  

Thank you very much for your solution

[Astounding]

For these lines of data, what should the last number be?
A89 90
4 a1b2c

[pavank]

Hi @Astounding ,

As per your question

data ds;
input text :& $ 200.;
want=scan(text,-1,,'kd');
cards;
A89 90
4 a1b2c
a44bcc3
22bsi44-5c
9tt$b21t88
;
proc print;
run;

i can use Scan function with 'kd'  modifier

PFabove