2012-07-14

VBScript函數--字元字串處理--Replace字串取代

Replace → 字串取代
語法:Replace(string1,string2,string3[,start[,count[,compare]]])
以string3取代string1中符合string2的字串內容。

  1. string1 :一定要輸入。被搜尋取代的目標。
  2. string2 :一定要輸入。此字串如在string1中被找到,將是被取代的對象。
  3. srting3 :一定要輸入。取代string2成為string1中的一部份。
  4. start :在string1中搜尋string2的起始字元位置。預設值是1,可不輸入。
  5. count :取代符合搜尋條件的次數。預設值是 -1 ,取代所有符合搜尋的內容。可不輸入。
  6. compare :可不輸入,比對的方式,預設為0(=vbBinaryCompare,二進位比對),另一個比對方式 1(=vbTextCompare,文字比對)。

函數字串被取代取代成執行函數寫法結果訊息
ReplaceHannibalnmReplace("Hannibal","n","m")Hammibal
Replace
(如無法正常測試,建議使用IE瀏覽器)
<script language="vbscript">
  <!--
    sub run_Replace()
        document.all("lblReplace").innerHTML = ""
        document.all("Replace4").innerHTML = "Replace(" & chr(34) & document.all("Replace1").value & chr(34) &_
        ","  & chr(34) & document.all("Replace2").value  & chr(34) & ","  & chr(34) & document.all("Replace3").value  & chr(34) & ")"
        document.all("Replace5").value = Replace(document.all("Replace1").value,document.all("Replace2").value,document.all("Replace3").value)
        document.all("lblReplace").innerHTML = "已執行取代!"
    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>Replace</td>
    <td><input id="Replace1" name="Replace1" type="text" style="width:80px"/></td>
    <td><input id="Replace2" name="Replace2" type="text" style="width:25px"/></td>
    <td><input id="Replace3" name="Replace3" type="text" style="width:25px"/></td>
    <td><input id="btnReplace" name="btnReplace" onclick="run_Replace()" type="button" value="Run" /></td>
    <td><label id="Replace4" name="Replace4"></label></td>
    <td><input id="Replace5" name="Replace5" type="text" style="width:80px" readonly/></td>
    <td><label id="lblReplace" name="lblReplace"></label></td>
</tr>
</tbody> 
</table>

沒有留言:

張貼留言