//	M130 : 񑀍i\[X͏XÂ炢̂ŁAsʂQƂĂj

function main()
{
	define $s0 = "";
	define $s1 = "ABCDEF";
	define $s2 = "abcdef";
	define $s3 = "XYZ";
	define $s4 = "xyz";
	define $s5 = "CD";
	define $s6 = "cd";

	define $d1 = " 123";
	define $d2 = "-123";
	define $h = "0x78AB";

	define	$p1 = 'c:\program files\MyFolder';
	define	$p2 = 'c:\program files\MyFolder\';
	define	$f1 = 'MyFile.tmp';

	define	$arr[3];
	define	$s, $t, $u;

	_Cls();

	_PrintF("_StrLen(%s) = %d\n", $f($s0), _StrLen($s0));
	_PrintF("_StrLen(%s) = %d\n", $f($s1), _StrLen($s1));
	_Print ("\n");

	_PrintF("_StrICmp(%s, %s) = %d\n", $f($s2), $f($s3), _StrICmp($s2, $s3));
	_PrintF("_StrICmp(%s, %s) = %d\n", $f($s1), $f($s2), _StrICmp($s1, $s2));
	_PrintF("_StrICmp(%s, %s) = %d\n", $f($s3), $f($s2), _StrICmp($s3, $s2));
	_Print ("\n");

	_PrintF("_StrICmp(%s, %s, 10) = %d\n", $f($s2), $f($s3), _StrICmp($s2, $s3, 10));
	_PrintF("_StrICmp(%s, %s, 10) = %d\n", $f($s1), $f($s2), _StrICmp($s1, $s2, 10));
	_PrintF("_StrICmp(%s, %s, 10) = %d\n", $f($s3), $f($s2), _StrICmp($s3, $s2, 10));
	_Print ("\n");

	_PrintF("_StrStr(%s, %s) = %d\n", $f($s1), $f($s5), _StrStr($s1, $s5));
	_PrintF("_StrStr(%s, %s) = %d\n", $f($s1), $f($s6), _StrStr($s1, $s6));
	_Print ("\n");

	_PrintF("_StrIStr(%s, %s) = %d\n", $f($s1), $f($s5), _StrIStr($s1, $s5));
	_PrintF("_StrIStr(%s, %s) = %d\n", $f($s1), $f($s6), _StrIStr($s1, $s6));
	_PrintF("_StrIStr(%s, %s) = %d\n", $f($s1), $f($s4), _StrIStr($s1, $s4));
	_Print ("\n");

	_PrintF("_ToValue(%s) = %d\n"  , $f($d1), _ToValue($d1));
	_PrintF("_ToValue(%s) = %d\n"  , $f($d2), _ToValue($d2));
	_PrintF("_ToValue(%s) = 0x%X\n", $f($h) , _ToValue($h) );
	_Print ("\n");

	_PrintF("$_StrCat()   = %s\n"		   ,							$f($_StrCat())				);
	_PrintF("$_StrCat(%s) = %s\n"		   , $f($s1),					$f($_StrCat($s1))			);
	_PrintF("$_StrCat(%s, %s) = %s\n"	   , $f($s1), $f($s4),			$f($_StrCat($s1, $s4))		);
	_PrintF("$_StrCat(%s, %s, %s) = %s\n"  , $f($s1), $f($s4), $f($s5), $f($_StrCat($s1, $s4, $s5)) );
	_Print ("\n");

	_PrintF("$_PathCat(%s, %s) = %s\n", $f($p1), $f($f1), $f($_PathCat($p1, $f1))	);
	_PrintF("$_PathCat(%s, %s) = %s\n", $f($p2), $f($f1), $f($_PathCat($p2, $f1))	);
	_Print ("\n");

	_PrintF("$_StrPart(%s,  0,  5) = %s\n", $f($s1), $f($_StrPart($s1,	0,	5))	);
	_PrintF("$_StrPart(%s,  0, 10) = %s\n", $f($s1), $f($_StrPart($s1,	0, 10))	);
	_PrintF("$_StrPart(%s,  3, 10) = %s\n", $f($s1), $f($_StrPart($s1,	3, 10))	);
	_PrintF("$_StrPart(%s, -2,  5) = %s\n", $f($s1), $f($_StrPart($s1, -2,	5))	);
	_PrintF("$_StrPart(%s,  3, -3) = %s\n", $f($s1), $f($_StrPart($s1,	3, -3))	);
	_PrintF("$_StrPart(%s,  8, -5) = %s\n", $f($s1), $f($_StrPart($s1,	8, -5))	);
	_PrintF("$_StrPart(%s,  8,  5) = %s\n", $f($s1), $f($_StrPart($s1,	8,	5))	);
	_PrintF("$_StrPart(%s, -5,  2) = %s\n", $f($s1), $f($_StrPart($s1, -5,	2))	);
	_Print ("\n");

	_PrintF("$_StrRep(%s,  3,  2, %s) = %s\n", $f($s1), $f($s4), $f($_StrRep($s1,  3, 2, $s4))	);
	_PrintF("$_StrRep(%s,  2,  0, %s) = %s\n", $f($s1), $f($s4), $f($_StrRep($s1,  2, 0, $s4))	);
	_PrintF("$_StrRep(%s,  0,  0, %s) = %s\n", $f($s1), $f($s4), $f($_StrRep($s1,  0, 0, $s4))	);
	_PrintF("$_StrRep(%s, 99,  0, %s) = %s\n", $f($s1), $f($s4), $f($_StrRep($s1, 99, 0, $s4))	);
	_Print ("\n");

	$s = "  XXX  "; _PrintF("$_LTrim(%s) = %s\n", $f($s), $f($_StrLTrim($s))	);
	$s = "  XXX  "; _PrintF("$_RTrim(%s) = %s\n", $f($s), $f($_StrRTrim($s))	);
	$s = "  XXX  "; _PrintF("$_Trim (%s) = %s\n", $f($s), $f($_StrTrim ($s))	);
	_Print ("\n");

	$arr[0] = "  ABC  "; $arr[1] = "  OPQ  "; $arr[2] = "  UVW  ";
	_PrintF("Before: $arr[0] = '%s', $arr[1] = '%s', $arr[2] = '%s'\n", $arr[0], $arr[1], $arr[2]);
	_PrintF("$_StrLTrim($arr[])\n"); $_StrLTrim($arr[]);
	_PrintF("After : $arr[0] = '%s'  , $arr[1] = '%s'  , $arr[2] = '%s'\n", $arr[0], $arr[1], $arr[2]);
	_Print ("\n");

	$arr[0] = "  ABC  "; $arr[1] = "  OPQ  "; $arr[2] = "  UVW  ";
	_PrintF("Before: $arr[0] = '%s', $arr[1] = '%s', $arr[2] = '%s'\n", $arr[0], $arr[1], $arr[2]);
	_PrintF("$_StrRTrim($arr[])\n"); $_StrRTrim($arr[]);
	_PrintF("After : $arr[0] = '%s'  , $arr[1] = '%s'  , $arr[2] = '%s'\n", $arr[0], $arr[1], $arr[2]);
	_Print ("\n");

	$arr[0] = "  ABC  "; $arr[1] = "  OPQ  "; $arr[2] = "  UVW  ";
	_PrintF("Before: $arr[0] = '%s', $arr[1] = '%s', $arr[2] = '%s'\n", $arr[0], $arr[1], $arr[2]);
	_PrintF("$_StrTrim($arr[])\n"); $_StrTrim($arr[]);
	_PrintF("After : $arr[0] = '%s'    , $arr[1] = '%s'    , $arr[2] = '%s'\n", $arr[0], $arr[1], $arr[2]);
	_Print ("\n");

	$s = "s,`,Z{";
	$t[] = $_StrSplit($s);
	_PrintF("$t[] = $_StrSplit(%s)  -> $t[0]=%s, $t[1]=%s, $t[2]=%s\n", $s, $f($t[0]), $f($t[1]), $f($t[2])	);
	_PrintF("$u   = $_StrJoin($t[]) -> $u=%s\n", $f($_StrJoin($t[]))	);
	_Print ("\n");

	$s = "ls˒ˋ恜gc";
	$t[] = $_StrSplit($s, '');
	_PrintF("$t[] = $_StrSplit(%s , '') -> $t[0]=%s, $t[1]=%s, $t[2]=%s\n", $s, $f($t[0]), $f($t[1]), $f($t[2])	);
	_PrintF("$u   = $_StrJoin($t[], '') -> $u=%s\n", $f($_StrJoin($t[], ''))	);
	_Print ("\n");

	$s = $_SPrintF('%d, %X, %S', 100, 100, 'ABC');
	_PrintF("$_SPrintF('%%d, 0x%%X, %%S', 100, 100, 'ABC') -> %s\n", $f($_SPrintF('%d, 0x%X, %s', 100, 100, 'ABC')));
	_PrintF("$_SPrintF('%%-10d', -100) -> %s\n", $f($_SPrintF('%-10d', -100))	);
	_PrintF("$_SPrintF('%%20x', -100) -> %s\n", $f($_SPrintF('%20x', -100))		);
	_PrintF("$_SPrintF('%%*s', 5, 'AB') -> %s\n", $f($_SPrintF('%*s', 5, 'AB'))	);
	_Print ("\n");

}

function $f($s)
{
	define	$rc;

	$rc = $_SPrintF("\"%s\"", $s);

	return $rc;
}

