# **********************************************************
# 改行付表示関数
# **********************************************************
function OutCr( $strValue ) {
 
	print $strValue . "\n";
 
}

# **********************************************************
# 挟み込み関数
# **********************************************************
function Enclose( $strValue, $Chr, $Type, $Option="" ) {
 
	$strRet = "";
 
	switch( $Type ) {
		# 単純挟み込み
		case 0:
			$strRet = $Chr . $strValue . $Chr;
			break;
		# HTML挟み込み
		case 1:
			$strRet = "<" . $Chr . " " . $Option . ">";
			$strRet .= $strValue;
			$strRet .= "</" . $Chr . ">";
			break;
	}
 
	return $strRet;
 
}

# **********************************************************
# ' 挟み込み関数
# **********************************************************
function Ss( $strValue ) {
 
	return Enclose( $strValue, "'", 0 );
 
}
 
# **********************************************************
# " 挟み込み関数
# **********************************************************
function Dd( $strValue ) {
 
	return Enclose( $strValue, "\"", 0 );
 
}
 
# **********************************************************
# TH 挟み込み関数
# **********************************************************
function Th( $strValue, $Option="" ) {
 
	return Enclose( $strValue, "TH", 1, $Option );
 
}
 
# **********************************************************
# TD 挟み込み関数
# **********************************************************
function Td( $strValue, $Option="" ) {
 
	return Enclose( $strValue, "TD", 1, $Option );
 
}

# **********************************************************
# リスト内の文字列と一致するかどうかのチェック
# **********************************************************
function ChkCase( $strTarget, $strList ) {
 
	$Ret = array_search( $strTarget, explode( ",", $strList ) );
	if ( $Ret === FALSE ) {
		return FALSE;
	}
	else {
		return TRUE;
	}
 
}

# **********************************************************
# 文字列内の全ての文字が任意の文字列集合に属しているか
# **********************************************************
function ChkGroup( $strTarget, $strGroup ) {
 
	$eucTarget	= mb_convert_encoding ( $strTarget, "EUC-JP", "SJIS" );
	$eucGroup	= mb_convert_encoding ( $strGroup, "EUC-JP", "SJIS" );
 
	for( $i = 0; $i < mb_strlen( $eucTarget, "EUC-JP" ); $i++ ) {
		$Moji = mb_substr( $eucTarget, $i, 1, "EUC-JP" );
		$Ret = mb_strpos( $eucGroup, $Moji, 0 , "EUC-JP" );
		if ( $Ret === FALSE ) {
			return FALSE;
		}
	}
	return TRUE;
 
}