VBScript函數--字元字串處理--Mid取得字串中的部份字串

Mid → 取得字串中的部份字串
語法：Mid(string,start[,length])

函數	字串	起點	字元數	執行	函數寫法	結果	訊息
Mid	Hannibal	2	3		Mid("Hannibal",2,3)"	ann
Mid

(如無法正常測試，建議使用IE瀏覽器)

<script language="vbscript">
  <!--
    sub run_Mid()
        document.all("lblMid").innerHTML = ""
        if isNumeric(trim(document.all("Mid2").value)) and isNumeric(trim(document.all("Mid3").value)) then
            if CDBL(trim(document.all("Mid2").value)) >=0 and CDBL(trim(document.all("Mid3").value)) >=0 then
                document.all("Mid4").innerHTML = "Mid(" & chr(34) & document.all("Mid1").value & chr(34) &_
                "," & trim(document.all("Mid2").value) & "," & trim(document.all("Mid3").value) & ")"
                document.all("Mid5").value = Mid(document.all("Mid1").value,trim(document.all("Mid2").value),trim(document.all("Mid3").value))
                document.all("lblMid").innerHTML = "已取得字串！"
            else
                document.all("lblMid").innerHTML = "起點、字元數，請輸入≧0的整數！"
                document.all("Mid4").innerHTML = ""
                document.all("Mid5").value = ""
                document.all("Mid2").value = ""
                document.all("Mid3").value = ""
                document.all("Mid2").focus
            end if
        else
                document.all("lblMid").innerHTML = "起點、字元數，請輸入≧0的整數！"
                document.all("Mid4").innerHTML = ""
                document.all("Mid5").value = ""
                document.all("Mid2").value = ""
                document.all("Mid3").value = ""
                document.all("Mid2").focus
        end if
    end sub
  -->
</script>
<br />
<table>
<tbody>
<tr>
    <td>函數</td><td>字串</td><td>起點</td><td>字元數</td><td>執行</td><td>函數寫法</td><td>結果</td><td>訊息</td>
</tr>
<tr>
    <td>Mid</td>
    <td><input id="Mid1" name="Mid1" type="text" style="width:80px"/></td>
    <td><input id="Mid2" name="Mid2" type="text" style="width:25px"/></td>
    <td><input id="Mid3" name="Mid3" type="text" style="width:25px"/></td>
    <td><input id="btnMid" name="btnMid" onclick="run_Mid()" type="button" value="Run" /></td>
    <td><label id="Mid4" name="Mid4"></label></td>
    <td><input id="Mid5" name="Mid5" type="text" style="width:80px" readonly/></td>
    <td><label id="lblMid" name="lblMid"></label></td>
</tr>
</tbody> 
</table>