Multi-Key Function Adaptation

[jasonwood]

I found Andrew LaCates' ExplodedKey function in the forums, but I want to adapt it slightly, and I'm seeking help with that as I don't quite know where to start...

Basically I want "Hello world" to result in:

H

He

Hel

Hell

Hello

W

Wo

Wor

Worl

World

instead of

H

He

Hel

Hell

Hello

Hello

Hello W

Hello Wo

Hello Wor

Hello World

//ExplodedKey(text)

//By Andrew LaCates

If(

Length(text)>1;

ExplodedKey(Left(text;Length(text)-1)) & "¶" & text;

text

)

[bruceR]

Let( wc = WordCount( text);

Case(

wc > 1;

List( ExplodedKey( LeftWords( text;1)) ;

ExplodedKey( MiddleWords( text;2; wc)));

Length(text)>0;

List( ExplodedKey(Left(text;Length(text)-1)) ; text)

)

)

[bruceR]

Note that the original can be simplified as:

case(

Length(text);

List( ExplodedKey(Left(text;Length(text)-1)) ; text)

)