8847c54e-2e0f-4b71-bd90-dd857cf897f1 242 francesco rapuano 4 5 false false false 0 0 decimal

&[DATE] &[TIME] - &[FILENAME]

Word Wrapping routine

Purpose of the user defined function : split an input text string in rows of a defined length
Inputs: ts - string of text to wrap
tw - maximum length of each row of wrapped text

Output: an array of row(s) of text wrapped at the maximum length tw

ts tw WordWrap TextString ts : TextWidth tw : StrtPos 1 : EndPos StrtPos TextWidth + 1 - : TS_Length TextString strlen : i_row 1 : EndPos TS_Length ≤ Letter_EndPos TextString EndPos 1 substr : Letter_EndPos ≠ TextString EndPos 1 + 1 substr ≠ TextRow TextString StrtPos TextWidth substr : LastSpacePosition TextRow findstr Max : TextWrapped i_row el TextString StrtPos LastSpacePosition 1 - substr : StrtPos StrtPos LastSpacePosition + : EndPos StrtPos TextWidth + 1 - : 51 line TextWrapped i_row el TextString StrtPos TextWidth substr : StrtPos EndPos 2 + : EndPos StrtPos TextWidth + 1 - : 31 line if 11 line TextWrapped i_row el TextString StrtPos TextWidth substr : StrtPos EndPos 1 + : EndPos StrtPos TextWidth + 1 - : 31 line if i_row i_row 1 + : 31 line while LastRowLength TS_Length StrtPos - 1 + : TextWrapped i_row el TextString StrtPos LastRowLength substr : TextWrapped 101 line :

\
| Variables Inizialization
|
|
|
/

StrPos is the starting position of a character in the Input text string of the text row to wrap

EndPos is the last position of a character in the Input text string of the text row to wrap

this is the total length of the Input Text String

i_row is the index of the Array that stores the wrapped rows of text

till the position of the cursor/character EndPos is lower or equal to the length of the Input Text String executes the line istructions

check if the character at EndPos (so at the end of a substring of tw characters) is not a space

if this is true check if at the next character position there isn't a space

if this is true this means that we will split a word if we break the text string at StrPos
so we need to find the position of the last word in the TextRow string and update accordingly the positions/values of the variables StrPos and EndPos and extracts a substring and store it in the array TextWrapped , is length is less then tw

otherwise

extracts a substring of tw characters and store it in the array TextWrapped

and updates the starting and ending position to use on the next substring in the while loop

to avoid that that this substring start with a space it is added a + 2 and not a +1
in the StrtPos expression

otherwise

extracts a substring of tw characters and store it in the array TextWrapped

and update accordingly the positions/values of the variables StrPos and EndPos

increment the i_row index

when the while do loop ends we must manage the extraction of the last part of
TextString so assign to the variable LastRowLength the width of the last substring to extract starting at the position StrPos

Text_c'era una volta un testo parecchio lungo e ci si chiedeva se riusciva a stare in una variabile ora ci proviamo e vediamo cosa succede per fare un callout, non e' finita si riesce a scrivere un testo ancora piu' lungo ma fino a quando ?? :

TextRows Text_40 WordWrap : c'era una volta un testo parecchio lungo e ci si chiedeva se riusciva a stare in una variabile ora ci proviamo e vediamo cosa succede per fare un callout, non e' finita si riesce a scrivere un testo ancora piu' lungo ma fino a quando ?? 61 mat

TS_Lengths TextRows strlen vectorize : 40404040363761 mat

TextRows Text_50 WordWrap : c'era una volta un testo parecchio lungo e ci si chiedeva se riusciva a stare in una variabile ora ci proviamo e vediamo cosa succede per fare un callout, non e' finita si riesce a scrivere un testo ancora piu' lungo ma fino a quando ?? 51 mat

TS_Lengths TextRows strlen vectorize : 485046464351 mat

TextRows Text_45 WordWrap : c'era una volta un testo parecchio lungo e ci si chiedeva se riusciva a stare in una variabile ora ci proviamo e vediamo cosa succede per fare un callout, non e' finita si riesce a scrivere un testo ancora piu' lungo ma fino a quando ?? 61 mat

TS_Lengths TextRows strlen vectorize : 45384045451961 mat