重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
x="a[11dsfsf]b"
創新互聯公司專注于青岡企業網站建設,自適應網站建設,成都做商城網站。青岡網站建設公司,為青岡等地區提供建站服務。全流程定制網站開發,專業設計,全程項目跟蹤,創新互聯公司專業和態度為您提供的服務
b=x.lastindexof("]")
a=x.indexof("[")
x=x.substring(0,a) "0" x.substring(b)
1、啟動VB6.0,新建一個標準exe工程。
2、在窗體上繪制一個命令按鈕,名稱為Command1。
3、雙擊命令按鈕進入代碼窗口。
4、假設有一個名為a的函數過程進行調用,從1到100逐一查找。可以選擇計數循環For....Next語句。
5、編寫命令按鈕的單擊事件。
6、按F5運行測試,就完成了。
VB使用Replace函數實現替換字符或字符串。
Replace函數,返回一個字符串,該字符串中指定的子字符串已被替換成另一子字符串,并且替換發生的次數也是指定的。
語法
Replace(expression, find, replacewith[, start[, count[, compare]]])
Replace函數語法有如下幾部分:
部分 ? ? ? ? ? ? ? ?描述 ? ?
expression ? ? 必需的。字符串表達式,包含要替換的子字符串。 ? ?
find ? ? ? ? ? ? ? ?必需的。要搜索到的子字符串。 ? ?
replacewith ? ?必需的。用來替換的子字符串。 ? ?
start ? ? ? ? ? ? ? 可選的。在表達式中子字符串搜索的開始位置。如果忽略,假定從1開始。?
count ? ? ? ? ? ? 可選的。子字符串進行替換的次數。如果忽略,缺省值是 –1,它表明進行所有可能的替換。 ? ?
compare ? ? ? ?可選的。數字值,表示判別子字符串時所用的比較方式。關于其值,請參閱“設置值”部分。 ? ?
設置值
compare參數的設置值如下:
常數 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?值 ? ? 描述 ? ?
vbUseCompareOption ? ? –1 ? ? 使用Option Compare語句的設置值來執行比較。 ? ?
vbBinaryCompare ? ? ? ? ? ? 0 ? ? 執行二進制比較。 ? ?
vbTextCompare ? ? ? ? ? ? ? ?1 ? ? 執行文字比較。 ? ?
vbDatabaseCompare ? ? ? ?2 ? ? 僅用于Microsoft Access。基于您的數據庫的信息執行比較。
說明
Replace函數的返回值是一個字符串,但是,其中從start所指定的位置開始,到expression字符串的結尾處的一段子字符串已經發生過替換動作。并不是原字符串從頭到尾的一個復制。
代碼示例:
Private?Sub?Command1_Click()
Dim?strSj?As?String
Dim?strTh?As?String
strSj?=?"VB使用Replace函數實現替換字符或字符串。"
strTh?=?"替換"
strSj?=?Replace(strSj,?"Replace",?strTh)
Debug.Print?strSj
End?Sub
立即窗口顯示:VB使用替換函數實現替換字符或字符串。