2012-07-22

VBScript函數--字元字串處理--String傳回指定字元重複指定次數所組成的字串

String → 傳回指定字元重複指定次數所組成的字串
語法:String(count,char)

  • count:要重複的次數
  • char:指定要重複的字元

函數長度字元執行函數寫法結果訊息
String
(如無法正常測試,建議使用IE瀏覽器)
<script language="vbscript">
  <!--
    sub run_String()
        document.all("lblString").innerHTML = ""
        document.all("String3").innerHTML = ""
        document.all("String4").innerHTML = ""
        if not isNumeric(document.all("String1").value)  then
            document.all("lblString").innerHTML = "請輸入正整數"
            document.all("String1").value = ""
            document.all("String1").focus
            exit sub
        end if
            document.all("String3").innerHTML = "String("  & trim(document.all("String1").value) & ","& chr(34) & document.all("String2").value & chr(34) & ")"
            document.all("String4").innerHTML = String(CInt(trim(document.all("String1").value)),document.all("String2").value)
            document.all("lblString").innerHTML = "字串已輸出!"
    end sub
  -->
</script>
<br />
<table>
<tbody>
<tr>
    <td>函數</td><td>長度</td><td>字元</td><td>執行</td><td>函數寫法</td><td>結果</td><td>訊息</td>
</tr>
<tr>
    <td>String</td>
    <td><input id="String1" name="String1" type="text" maxlength=1 style="width:20px"/></td>
    <td><input id="String2" name="String2" type="text" maxlength=2 style="width:20px"/></td>
    <td><input id="btnString" name="btnString" onclick="run_String()" type="button" value="Run" /></td>
    <td><label id="String3" name="String3"></label></td>
    <td><label id="String4" name="String4"></label></td>
    <td><label id="lblString" name="lblString"></label></td>
</tr>
</tbody> 
</table>

沒有留言:

張貼留言