今天學(xué)習(xí)了VB提升教程4期，學(xué)習(xí)的主要內(nèi)容是字符串查找與替換。零基礎(chǔ)學(xué)VB課程已經(jīng)結(jié)束，但是感覺還是沒有太大進(jìn)步，而且目前也沒有確定后續(xù)該學(xué)什么語(yǔ)言，干脆就繼續(xù)再學(xué)一段時(shí)間VB吧反正計(jì)劃的三個(gè)月時(shí)間還沒有學(xué)滿呢。

1.查找思路：通過字符串的比較來確定是否屬于查找的內(nèi)容，確定后通過設(shè)置焦點(diǎn)和光標(biāo)開始位置，以及查找字符的長(zhǎng)度達(dá)到定位選擇的效果。

2補(bǔ)充知識(shí)：

Instr(參數(shù)1，參數(shù)2，參數(shù)3，參數(shù)4)參數(shù)1表示默認(rèn)從左往右查找開始的位置，默認(rèn)從1開始查找，參數(shù)2代表原字符串，參數(shù)3代表要查找的字符串，參數(shù)4代表要查找的方式，我們使用vbBinaryCompare方式，返回的是字符串找到的位置，如果沒有找到字符串則返回0。

Text1.SetFocus 設(shè)置焦點(diǎn)

Text1.SelStart = find - 1 光標(biāo)開始的位置

Text1.SelLength = Len(Text2.Text) 從光標(biāo)處開始向后選擇幾個(gè)字符長(zhǎng)度

3.替換函數(shù)：replace(原字符串底稿，要查找的字符串，替換進(jìn)去的字符串)

4.做一個(gè)查找替換文本的小工具。

(1)窗體

(2)代碼

Private Sub Command1_Click()

find = InStr(1, Text1.Text, Text2.Text, vbBinaryCompare)

Text1.SetFocus

Text1.SelStart = find - 1

Text1.SelLength = Len(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)

End Sub

(3)效果詳見視頻

總結(jié)

以上是生活随笔為你收集整理的查找字符位置_学习VB编程第69天 字符串查找与替换的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。