今天學習了VB提升教程4期，學習的主要內容是字符串查找與替換。零基礎學VB課程已經結束，但是感覺還是沒有太大進步，而且目前也沒有確定后續該學什么語言，干脆就繼續再學一段時間VB吧反正計劃的三個月時間還沒有學滿呢。

1.查找思路：通過字符串的比較來確定是否屬于查找的內容，確定后通過設置焦點和光標開始位置，以及查找字符的長度達到定位選擇的效果。

2補充知識：

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

Text1.SetFocus 設置焦點

Text1.SelStart = find - 1 光標開始的位置

Text1.SelLength = Len(Text2.Text) 從光標處開始向后選擇幾個字符長度

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

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

(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)效果詳見視頻

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。