visual basic,비주얼베이직,vb .net 강좌-문자열에서 단어검색/text search,InStr,Sub
instr 은 첫문장만 검색가능하나, next 를 통해서 다음 문자열도 검색가능합니다.
Public Class Form1
Dim a As String
Dim b As String
Dim c As String = 1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
search(c)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
search(c)
End Sub
Public Sub search(ByVal f As Integer)
a = TextBox1.Text
b = InStr(f, TextBox2.Text, a)
If b Then
TextBox2.Focus()
TextBox2.SelectionStart = b - 1
c = b + Len(a) ' c 는 첫문장이후 다음 문장 검색을 위해서 이전 검색 다음부터 검색 가능하도록
TextBox2.SelectionLength = Len(a)
Button1.Text = "Next"
Else
MessageBox.Show("no found")
End If
End Sub
End Class
