aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

49
Task/Substring/REXX/substring.rexx
View file

@ -1,37 +1,32 @@
/*REXX program demonstrates various ways to extract substrings from a string of characters. */
s='abcdefghijk'; n=4; m=3 /*define some REXX constants (string, index, length of string).*/
say 'original string='s /* [↑] M can be zero (which indicates a null string). */
say '──────────────────────────────────────────────────────────1'
u=substr(s,n,m) /*starting from N characters in and of M length. */
/*REXX program demonstrates various ways to extract substrings from a string of characters.*/
$='abcdefghijk'; n=4; m=3 /*define some constants: string, index, length of string. */
say 'original string='$ /* [↑] M can be zero (which indicates a null string).*/
L=length($) /*the length of the $ string (in bytes or characters).*/
say center(1,30,'═') /*show a centered title for the 1st task requirement. */
u=substr($, n, m) /*start from N characters in and of M length. */
say u
parse var s =(n) a +(m) /*another way of doing the above by using the PARSE instruction*/
parse var $ =(n) a +(m) /*an alternate method by using the PARSE instruction. */
say a
say '──────────────────────────────────────────────────────────2'
u=substr(s,n) /*starting from N characters in, up to the end-of-string. */
say center(2,30,'═') /*show a centered title for the 2nd task requirement. */
u=substr($,n) /*start from N characters in, up to the end-of-string. */
say u
parse var s =(n) a /*another way of doing the above by using the PARSE instruction*/
parse var $ =(n) a /*an alternate method by using the PARSE instruction. */
say a
say '──────────────────────────────────────────────────────────3'
u=substr(s,1,length(s)-1) /*OK: the whole string except the last character. */
say center(3,30,'═') /*show a centered title for the 3rd task requirement. */
u=substr($, 1, L-1) /*OK: the entire string except the last character. */
say u
v=substr(s,1,max(0,length(s)-1)) /*better: this version handles the case of a null string. */
v=substr($, 1, max(0, L-1) ) /*better: this version handles the case of a null string. */
say v
L=length(s) - 1
parse var s a +(L) /*another way of doing the above by using the PARSE instruction*/
lm=L-1
parse var $ a +(lm) /*an alternate method by using the PARSE instruction. */
say a
say '──────────────────────────────────────────────────────────4'
u=substr(s,pos('g',s),m) /*starting from a known char within the string & of M length.*/
say center(4,30,'═') /*show a centered title for the 4th task requirement. */
u=substr($,pos('g',$), m) /*start from a known char within the string of length M. */
say u
parse var s 'g' a +(m) /*another way of doing the above by using the PARSE instruction*/
parse var $ 'g' a +(m) /*an alternate method by using the PARSE instruction. */
say a
say '──────────────────────────────────────────────────────────5'
u=substr(s,pos('def',s),m) /*starting from a known substr within the string & of M length.*/
say center(5,30,'═') /*show a centered title for the 5th task requirement. */
u=substr($,pos('def',$),m) /*start from a known substr within the string of length M.*/
say u
parse var s 'def' a +(m) /*another way of doing the above by using the PARSE instruction*/
say a
/*stick a fork in it sir, we're all done and Bob's your uncle. */
parse var $ 'def' a +(m) /*an alternate method by using the PARSE instruction. */
say a /*stick a fork in it, we're all done and Bob's your uncle.*/