站內搜尋:Yahoo搜尋的結果,如果沒有給完整的網址,請在站內再搜尋一次!

2012-06-30

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比對執行函數寫法結果訊息
InStrHannInStr("Han","n")3
InStr1Hann1InStr(1,"Han","n",1)3
InStr2Hann1InStr(2,"Han","n",1)3
InStr3Hann1InStr(3,"Han","n",1)3
InStr4Hann1InStr(4,"Han","n",1)0
InStr1Hanm1InStr(1,"Han","m",1)0
InStr
(如無法正常測試,建議使用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>

沒有留言:

張貼留言