ColumnWrap ( Text ; StartRow ; NofRows )

Non recursive custom function for colum break after a certain amount of linebreaks

Average rating: 4.2 (39 votes) Log in to vote

Martin D. Brunner
Zurich Financial Services
http://www.mdb.bz

Sample input:

Wrapped text with linebreaks at each end of line:

Lorem ipsum dolor sit
amet, consectetuer
adipiscing elit, sed
diam nonummy nibh
euismod tincidunt ut
laoreet dolore magna
aliquam erat volutpat.

Sample output:

Text split into colums of specifyed number of rows.

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* -----------------------------------------

Format: ColumnWrap ( Text ; StartRow ; NofRows )

Non recursive custom function for colum break after a certain amount of linebreaks.
I needed this functionality to break text that is in one field into multiple colums on apage (i.e. 3 colums, each 52 lines high).
Requires the text to be formated with line  breaks, for example with the CF "LineWrap" that can be found on www.brinandunnings.com

Martin D. Brunner, www.mdb.bz

------------------------------------------------- */

Let ([ 

TextIn              = Text ;
MaxRows         = PatternCount (TextIn ; "¶" ) ;
StartLine          = Case (StartRow > MaxRows ; 0 ; StartRow) ;
EndLine            = StartLine + NofRows ;
EndRow            = Case (EndLine > MaxRows ; MaxRows ; EndLine) ;
PosStartLine1   = Position ( TextIn; "¶"; 1; StartLine-1)+1 ;
PosStartLine     = Case (
		     Middle (TextIn ; PosStartLine1 ; 1) = "¶" ; PosStartLine1+1 ;
		     PosStartLine1);
PosEndLine1     = Position ( TextIn; "¶"; PosStartLine ; NofRows) ;
PosEndLine       = Case(PosEndLine1 = 0 ; Length (Text) ; PosEndLine1) ;
ColumnLength  = PosEndLine - PosStartLine ;

TextOut           = Case ( StartLine = 0 ; "" ; Middle ( TextIn; PosStartLine; ColumnLength ) )

]; 

TextOut

)

Non recursive custom function for colum break after a certain amount of linebreaks.

I needed this functionality to break text that is in one field into multiple colums on apage (i.e. 3 colums, each 52 lines high).

Requires the text to be formated with line breaks, for example with the CF "LineWrap" that can be found on www.brinandunnings.com

Martin D. Brunner, www.mdb.bz

Comments

		comment, earth Apr 3, 2009
Try the MiddleValues() function.

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ColumnWrap ( Text ; StartRow ; NofRows )

Comments

Support this website.

Support this website.