<?php
//===============================================================================
//   ■■ PHP離れ島        :サンプル ■■
//        Class        :php20030527s.php
//        Copyright    :masago.kir.jp
//        Made by        :Masago
//        Date        :2003/05/27
//        Last Update    :2003/05/27
//        
//        Comment        :substr文
//        
//        Caution        :
//
//==============================================================================
//----------------------------------------------- 
// □ 変数の初期化
//-----------------------------------------------
$error        "";        //エラー
define("STR_ABC","ABCDEFGHIJKLMNOPQRSTUVWXYZ");
$out        "";
//----------------------------------------------- 
// □ POSTされてたら
//----------------------------------------------- 
if ($_SERVER["REQUEST_METHOD"]=="POST"){
    
$from        $_POST['from'];
    
$nagasa        $_POST['nagasa'];
    
//-----------------------------------
    // ■ 取り出し
    //-----------------------------------
    
if (isset($_POST['submit'])){
        
$out=mb_substr(STR_ABC,$from,$nagasa,"UTF-8");
    }
}else{
    
$from        1;
    
$nagasa        strlen(STR_ABC);
}
?>
<HTML> 
<HEAD> 
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=utf-8">
<META HTTP-EQUIV="Cache-control" CONTENT="no-cache">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">

<TITLE>2003/05/27 TIPS</TITLE> 
</HEAD> 
<BODY BGCOLOR="#ffffff" style="margin:0px" marginwidth="0" marginheight="0">
<FONT SIZE="2">
<A HREF="php20030527.php">PHP離れ島へBACK</A>&nbsp;&nbsp;
<A HREF="phpsc.php?s=php20030527s.php">このページのソース</A>
<CENTER> 
<BR><BR>
<B>アルファベット取り出し</B><BR><BR><BR><BR>
</FONT>
<IMG SRC="img/php/20030527s.jpg" BORDER="0"><BR><BR>
<?php
//--------------------------------------------- 
// □ エラーメモリを表示
//---------------------------------------------
if ($error!=""){echo $error;}
?> 
<BR>
<FONT SIZE="2">
<FORM ACTION="<?php echo $_SERVER['SCRIPT_NAME']; ?>" METHOD="POST"> 
アルファベットの
<SELECT NAME="from">
<?
    
for($i=1;$i<=strlen(STR_ABC);$i++){
        
$value=(integer)$i-1;
        echo 
"<OPTION VALUE=\"$value\"";
        if (
$value==$from){echo " SELECTED";}
        echo 
">$i\n";
    }
?>
</SELECT>
コ目から
<SELECT NAME="nagasa">
<?
    
for($i=1;$i<=strlen(STR_ABC);$i++){
        echo 
"<OPTION VALUE=\"$i\"";
        if (
$i==$nagasa){echo " SELECTED";}
        echo 
">$i\n";
    }
?>
</SELECT>
文字
<INPUT TYPE="submit" NAME="submit" VALUE="を取り出す"><BR> 
</FORM> 
</FONT>
<BR><BR><BR><BR>
<TABLE BORDER="0">
<TR>
<TD ALIGN="left">
<FONT COLOR="#4682b4">
<?
//--------------------------------------------- 
// □ 取り出したもの
//---------------------------------------------
if ($error=="" && $out!=""){
    echo 
"<B>" .$out ."</B>";
    echo 
"を取り出しました!";
}
?>
</FONT>
</TD>
</TR>
</TABLE>
<BR><BR><BR>
</CENTER>
</BODY> 
</HTML>