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