That was generated by XYplorer!Lorem ipsum aliquam adipiscing id id libero at, laoreet dis aptent sed rhoncus id magnis posuere rutrum mollis sed lorem Vivamus pretium pellentesque nisl pellentesque In? tortor suscipit nibh ipsum commodo nostra velit Curae Duis, at Cras sagittis non Curabitur urna laoreet nisi id sed aliquam egestas habitasse nec venenatis? rutrum elit Sed dui mus Nullam Cras Curabitur ornare mi lorem metus Suspendisse id pulvinar pulvinar sed elementum ligula Duis varius finibus pharetra eget dictum elit ipsum Quisque laoreet! orci Vestibulum diam suscipit Pellentesque amet quis sed Suspendisse, Donec nec ante id erat amet leo semper.
Why, you ask? Why not?
The generator is intended to be used as a function
Source:
Code: Select all
FUNCTION lipsumGen($lipsumLen, $lipsumText, $separator=" ") {
/* a simple lorem ipsum generator. "Why?" you ask? Why Not? [http://www.xyplorer.com/xyfc/viewtopic.php?f=7&t=13644]
** **Parameters**
** $lipsumLen defines how many words generated text should have. Defaults to 20.
** $lipsumText a custom word source. If it points to an existing file, words are read from that file.
** $Separator separator between words. Defaults to space. Default $lipsumText is separated by the same.
** **Return**
** the generated text string.
** **Notes**
** Some punctuation characters are stripped from words, and others added
** $lipsumText should not have <crlf> .
*/
$lipsumGen = '';
if !isset($lipsumLen) || ($lipsumLen == "") || (regexmatches($lipsumLen, '[^\d]+')!='') {$lipsumLen = '20';} // reset
if ($lipsumText != ''){
$lipsum = (exists($lipsumText) == 1) ? readfile($lipsumText) : ($lipsumText);
}
else {
// the default standard lorem ipsum text. Should not include CRLF.
$lipsum = trim(<<<#Lipsum^^^
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Integer et pharetra sapien. Nam ut velit mollis, vehicula nunc ornare, ultricies ex. Nam a posuere sem, quis mattis ante. Donec pulvinar mauris eros, in tincidunt tortor blandit sed. Suspendisse felis nunc, elementum et lobortis sed, pellentesque lacinia nibh. Cras mattis interdum libero. Proin non nunc mattis, luctus urna nec, laoreet erat. Proin porttitor sed turpis eget pulvinar. Quisque semper a enim id consectetur. In nec ipsum dictum, auctor leo in, suscipit velit. Sed rutrum a mauris sit amet porta. Phasellus pretium pharetra nibh. Nunc id enim nec magna venenatis suscipit ac pellentesque sem. Nunc ut tristique quam. Suspendisse felis mauris, pulvinar vel sagittis sed, varius a nisl. Suspendisse ac neque id erat volutpat molestie eget eu lorem. Cras congue, tortor at auctor consequat, magna ligula bibendum augue, quis accumsan turpis sapien ut mauris. Suspendisse ex justo, aliquet vitae odio non, aliquet vestibulum tellus. Donec in faucibus dui. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Nullam ut orci vehicula, laoreet nunc sed, mattis odio. Etiam quis velit nec nibh semper faucibus. Maecenas elit orci, gravida sit amet tempor quis, sodales ultricies dui. Donec condimentum massa posuere, varius tellus ornare, ultrices ante. Vivamus rutrum lacus at nisl sagittis blandit. Vivamus enim erat, dapibus blandit nisl a, vulputate fringilla lorem. Duis at suscipit lacus. In hac habitasse platea dictumst. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos. Suspendisse id diam iaculis, pellentesque nisi ut, cursus tortor. Sed suscipit lectus vitae nisl vestibulum, ac eleifend orci lobortis. Pellentesque egestas non purus at aliquam. Curabitur vitae scelerisque justo. Nullam pretium dolor a tincidunt lacinia. Duis ac porttitor mi. Maecenas vulputate ultricies feugiat. Suspendisse potenti. Nullam quam tortor, placerat in sollicitudin sed, pulvinar ac sapien. Nam pretium consectetur augue, et finibus metus rutrum eget. Cras eget risus ornare, facilisis enim a, pellentesque nunc. Duis at pretium nibh. Sed a arcu nec metus suscipit molestie in id enim. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Vivamus bibendum tortor tortor, vitae porttitor lacus tincidunt eget. Proin vestibulum velit non venenatis rhoncus. Vestibulum sed lectus nec neque porta dapibus. Vivamus accumsan suscipit dui, at tempor leo aliquam eget. Nullam aliquet a sapien et mollis. Pellentesque bibendum commodo quam, eget consectetur purus tincidunt aliquam. Sed a ornare lorem. Sed luctus pulvinar ultricies.#Lipsum^^^,
"<tab> ", 'L');
}
$t = gettoken($lipsum, 'count', $separator); // total words
while ($c++ < $lipsumLen){
$word = '';
while ($word == ''){$word = replace(gettoken($lipsum, rand(1, $t), $separator), <crlf>, '');} //take no crlfs
////strip some punctuations from words, and sprinkle some ...
$puncs = ', ; . ! ?'; $punc = '';
if (rand(0, 13) Like '[71]') { // pick a random punc from $puncs
$randP = rand(1, gettoken($puncs, 'count', ' '));
$punc = gettoken($puncs, $randP, ' ');
}
$word = replacelist($word, $puncs, '', ' '); //remove present puncs from picked word...
$lipsumGen = $lipsumGen . ' ' . $word . $punc; //...and add word + our random punctuation
////...or uncomment to just add a plain random word, along with any punctuation. :(
// $lipsumGen = $lipsumGen . ' '. gettoken($lipsum, rand(1, $t), ' ');
}
$lipsumGen = trim($lipsumGen, "<crlf> ");
if (substr($lipsumGen, -1) != '.') { $lipsumGen = $lipsumGen . '.'; }
return $lipsumGen;
}
Examples:
Assuming the function is saved in <xyscripts>\inc\lipsumgen.xyi)
Code: Select all
INCLUDE "inc\lipsumgen.xyi";
"LipsumGen Length Demo"
text lipsumgen(1200);
"LipsumGen Paragraphs Demo"
$input = input('Input: paragraph count|*max* wordcount of each paragraph (minimum is 10)',
'eg, enter "3|500" for 3 paragraphs with about 500 words each','3|500','s');
$paragraphCount = trim(gettoken($input, 1, '|'),' ') * 1;
$maxWordsCount = trim(gettoken($input, 2, '|'),' ') * 1;
//$maxWordsCount = ($maxWordsCount < 10) ? 10 : $maxWordsCount;
$lipsumGen = '';
while ($paragraphCount-- > 0){
$lipsumLen = rand(ceil($maxWordsCount*80/100), $maxWordsCount); //randomize wordcount
$lipsumGen = $lipsumGen.lipsumgen($lipsumLen).<crlf 2>;
}
$lipsumGen = trim($lipsumGen, '<crlf>', 'R');
text $lipsumGen;
Another great use may be when you convert it to an alias with arguments, then do,say, @lipsum 34 and the result gets copied to clipboard!
Here's an example alias (paste this right into the addressbar and press ENTER)
Code: Select all
@lipsum=::load readfile("<xyscripts>\lipsumGen.xyi")."<crlf>text lipsumGen(<@1>)",,s;
Code: Select all
@lipsum 25
[edit: converted to a user-defined function][edit: cleanup+slightspeedup]