WordFunction

構文
  1. WordFunction.rand( paragraph, num )
  2. WordFunction.rand.old( num )
  3. WordFunction.lorem( paragraph, num )
引数
paragraph
num
戻値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   paragraph 
//   num 
// 【戻値】
// 
//////////////////////////////////////////////////
MODULE WordFunction
	FUNCTION rand(paragraph, num)
		DIM sentences[] = 	"[挿入] タブのギャラリーには、文書全体の体裁に合わせて調整するためのアイテムが含まれています。", + _
		"これらのギャラリーを使用して、表、ヘッダー、フッター、リスト、表紙や、その他の文書パーツを挿入できます。", + _
		"図、グラフ、図表を作成すると、文書の現在の体裁に合わせて調整されます。", + _
		"文書で選択した文字列の書式は、[ホーム] タブのクイック スタイル ギャラリーで体裁を選択することで簡単に変更できます。", + _
		"[ホーム] タブの他のボタンやオプションを使用して、文字列に書式を直接設定することもできます。", + _
		"ほとんどのボタンやオプションで、現在のテーマの体裁を使用するか、直接指定する書式を使用するかを選択できます。", + _
		"文書全体の体裁を変更するには、[ページ レイアウト] タブで新しいテーマを選択します。", + _
		"クイック スタイル ギャラリーに登録されている体裁を変更するには、現在のクイック スタイル セットを変更するコマンドを使用します。", + _
		"テーマ ギャラリーとクイック スタイル ギャラリーにはリセット コマンドが用意されており、文書の体裁を現在のテンプレートの元の体裁にいつでも戻すことができます。"
		DIM res = ""
		FOR n = 0 TO paragraph * num - 1
			res = res + sentences[n MOD (UBound(sentences) + 1)]
			IF (n + 1) MOD num = 0 THEN res = res + "<#CR>"
		NEXT
		RESULT = TRIM(res)
	FEND
	FUNCTION rand.old(num)
		DIM sentence = "Word 2003 は、画期的な日本語入力・編集環境を実現した日本語ワープロです。"
		DIM res = ""
		FOR n = 1 TO num
			res = res + sentence + sentence + sentence + "<#CR>"
		NEXT
		RESULT = TRIM(res)
	FEND
	FUNCTION lorem(paragraph, num)
		DIM sentences[] = 	"Lorem ipsum dolor sit amet, consectetuer adipiscing elit.", + _
		"Maecenas porttitor congue massa.", + _
		"Fusce posuere, magna sed pulvinar ultricies, purus lectus malesuada libero, sit amet commodo magna eros quis urna.", + _
		"Nunc viverra imperdiet enim.", + _
		"Fusce est.", + _
		"Vivamus a tellus.", + _
		"Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.", + _
		"Proin pharetra nonummy pede.", + _
		"Mauris et orci.", + _
		"Aenean nec lorem.", + _
		"In porttitor.", + _
		"Donec laoreet nonummy augue.", + _
		"Suspendisse dui purus, scelerisque at, vulputate vitae, pretium mattis, nunc.", + _
		"Mauris eget neque at sem venenatis eleifend.", + _
		"Ut nonummy.", + _
		"Fusce aliquet pede non pede.", + _
		"Suspendisse dapibus lorem pellentesque magna.", + _
		"Integer nulla.", + _
		"Donec blandit feugiat ligula.", + _
		"Donec hendrerit, felis et imperdiet euismod, purus ipsum pretium metus, in lacinia nulla nisl eget sapien.", + _
		"Donec ut est in lectus consequat consequat.", + _
		"Etiam eget dui.", + _
		"Aliquam erat volutpat.", + _
		"Sed at lorem in nunc porta tristique.", + _
		"Proin nec augue.", + _
		"Quisque aliquam tempor magna.", + _
		"Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.", + _
		"Nunc ac magna.", + _
		"Maecenas odio dolor, vulputate vel, auctor ac, accumsan id, felis.", + _
		"Pellentesque cursus sagittis felis.", + _
		"Pellentesque porttitor, velit lacinia egestas auctor, diam eros tempus arcu, nec vulputate augue magna vel risus.", + _
		"Cras non magna vel ante adipiscing rhoncus.", + _
		"Vivamus a mi.", + _
		"Morbi neque.", + _
		"Aliquam erat volutpat.", + _
		"Integer ultrices lobortis eros.", + _
		"Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.", + _
		"Proin semper, ante vitae sollicitudin posuere, metus quam iaculis nibh, vitae scelerisque nunc massa eget pede.", + _
		"Sed velit urna, interdum vel, ultricies vel, faucibus at, quam.", + _
		"Donec elit est, consectetuer eget, consequat quis, tempus quis, wisi.", + _
		"In in nunc.", + _
		"Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos hymenaeos.", + _
		"Donec ullamcorper fringilla eros.", + _
		"Fusce in sapien eu purus dapibus commodo.", + _
		"Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus.", + _
		"Cras faucibus condimentum odio.", + _
		"Sed ac ligula.", + _
		"Aliquam at eros.", + _
		"Etiam at ligula et tellus ullamcorper ultrices.", + _
		"In fermentum, lorem non cursus porttitor, diam urna accumsan lacus, sed interdum wisi nibh nec nisl.", + _
		"Ut tincidunt volutpat urna.", + _
		"Mauris eleifend nulla eget mauris.", + _
		"Sed cursus quam id felis.", + _
		"Curabitur posuere quam vel nibh.", + _
		"Cras dapibus dapibus nisl.", + _
		"Vestibulum quis dolor a felis congue vehicula.", + _
		"Maecenas pede purus, tristique ac, tempus eget, egestas quis, mauris.", + _
		"Curabitur non eros.", + _
		"Nullam hendrerit bibendum justo.", + _
		"Fusce iaculis, est quis lacinia pretium, pede metus molestie lacus, at gravida wisi ante at libero.", + _
		"Quisque ornare placerat risus.", + _
		"Ut molestie magna at mi.", + _
		"Integer aliquet mauris et nibh.", + _
		"Ut mattis ligula posuere velit.", + _
		"Nunc sagittis.", + _
		"Curabitur varius fringilla nisl.", + _
		"Duis pretium mi euismod erat.", + _
		"Maecenas id augue.", + _
		"Nam vulputate.", + _
		"Duis a quam non neque lobortis malesuada.", + _
		"Praesent euismod.", + _
		"Donec nulla augue, venenatis scelerisque, dapibus a, consequat at, leo.", + _
		"Pellentesque libero lectus, tristique ac, consectetuer sit amet, imperdiet ut, justo.", + _
		"Sed aliquam odio vitae tortor.", + _
		"Proin hendrerit tempus arcu.", + _
		"In hac habitasse platea dictumst.", + _
		"Suspendisse potenti.", + _
		"Vivamus vitae massa adipiscing est lacinia sodales.", + _
		"Donec metus massa, mollis vel, tempus placerat, vestibulum condimentum, ligula.", + _
		"Nunc lacus metus, posuere eget, lacinia eu, varius quis, libero.", + _
		"Aliquam nonummy adipiscing augue."
		DIM res = ""
		FOR n = 0 TO paragraph * num - 1
			res = res + sentences[n MOD (UBound(sentences) + 1)]
			IF (n + 1) MOD num = 0 THEN res = res + "<#CR>"
		NEXT
		RESULT = TRIM(res)
	FEND
ENDMODULE

//////////////////////////////////////////////////
// 【引数】
//   配列 : 上限値を求める配列 
// 【戻値】
//   配列の上限値 
//////////////////////////////////////////////////
FUNCTION UBound(array[])
	RESULT = RESIZE(array)
FEND