VBScript函數--字元字串處理--InStr傳回字串二在字串一首次出現的位置

InStr → 傳回字串二在字串一首次出現的位置
語法：InStr([start,]string1,string2[,compare])

1. start：搜尋字串二的搜尋起始位置，可不輸入，預設第一個字元為搜尋起點。但如果使用compare參數，就必須指定start起點。
2. string1：一定要輸入，此為被搜尋的字串。
3. string2：一定要輸入，此為要搜尋的字串。
4. compare：可不輸入，比對的方式，預設為0(=vbBinaryCompare，二進位比對)，另一個比對方式 1(=vbTextCompare，文字比對)

InStr函數，特殊狀況下的傳回值：

1. 當string1為空字串""時，傳回0
2. 當string1為空值Null時，傳回空值Null
3. 當string2為空字串""時，傳為指定或預設的start值
4. 當string2為空值Null時，傳回空值Null
5. 如果在string1中找不到string2，傳回0
6. 如果比對起點start大於string1的長度，傳回0

函數	起點	字串1	字串2	比對	執行	函數寫法	結果	訊息
InStr		Han	n			InStr("Han","n")	3
InStr	1	Han	n	1		InStr(1,"Han","n",1)	3
InStr	2	Han	n	1		InStr(2,"Han","n",1)	3
InStr	3	Han	n	1		InStr(3,"Han","n",1)	3
InStr	4	Han	n	1		InStr(4,"Han","n",1)	0
InStr	1	Han	m	1		InStr(1,"Han","m",1)	0
InStr				0 1

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

<script language="vbscript">
  <!--
    sub run_instr()
        document.all("ins5").innerHTML = ""
        document.all("ins6").value = ""
        if not isNumeric(trim(document.all("ins1").value)) then
            document.all("lblins").innerHTML="起點錯誤！"
            document.all("ins1").value=""
            document.all("ins1").focus
            exit sub
        end if
        if trim(document.all("ins1").value)<>"" and trim(document.all("ins4").value)<>"" then
            document.all("ins5").innerHTML = _
                "InStr(" & document.all("ins1").value & "," &_
                chr(34) & document.all("ins2").value & chr(34) & "," &_
                chr(34) & document.all("ins3").value & chr(34) & "," &_
                document.all("ins4").value & ")"
            document.all("ins6").value = InStr(document.all("ins1").value ,_
                document.all("ins2").value,document.all("ins3").value,document.all("ins4").value)
            document.all("lblins").innerHTML = "成功！"
        else 
            document.all("ins1").value = "1"
            document.all("ins2").value = ""
            document.all("ins3").value = ""
            document.all("ins1").focus
            document.all("lblins").innerHTML = "錯誤！。"
        end if
    end sub
  -->
</script>
<br />
<table>
<tbody>
<tr>
    <td>函數</td><td>起點</td><td>字串1</td><td>字串2</td><td>比對</td><td>執行</td><td>函數寫法</td><td>結果</td><td>訊息</td>
</tr>
<tr>
    <td>InStr</td>
    <td><input id="ins1" name="ins1" type="text" style="width:20px" value=1 /></td>
    <td><input id="ins2" name="ins2" size="6" type="text" /></td>
    <td><input id="ins3" name="ins3" type="text" style="width:20px" /></td>
    <td><select id=ins4 name=ins4>
        <option value="0">0</option>
        <option value="1" selected>1</option>
    </select></td>
    <td><input id="btnins" name="btnins" onclick="run_instr()" type="button" value="Run" /></td>
    <td><label id="ins5" name="ins5"></label></td>
    <td><input type=text id="ins6" name="ins6" style="text-align:center;width:25px" readonly></td>
    <td><label id="lblins" name="lblins"></label></td>
</tr>
</tbody> 
</table>