project80888
جمعه 07 بهمن 1390, 11:02 صبح
سلام دوستان
نیاز به کدی دارم که بین از ایندکس 0 تا یک کلمه را برای من جستجو کنه
و مابین این دو را نمایش بده تا حدی تونستم بنویسم
مشکل من در تشخیص حروف کوچک و بزرگه
Public Function GetBetween(ByVal haystack As String, ByVal needle As String, ByVal needle_two As String) As String
Dim istart As Integer = InStr(haystack, needle)
If istart > 0 Then
Dim istop As Integer = InStr(istart, haystack, needle_two)
If istop > 0 Then
Dim value As String = haystack.Substring(istart + Len(needle) - 1, istop - istart - Len(needle))
Return value
End If
End If
Return Nothing
End Function
اینم فرا خوانی اون
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim FindIt As String = GetBetween(txtquery.Text, "select ", "where")
MessageBox.Show(FindIt)
End Sub
به نظر شما راهی وجود داره که بین Where کوچک یا بزرگ تفاوتی قائل نشود
نیاز به کدی دارم که بین از ایندکس 0 تا یک کلمه را برای من جستجو کنه
و مابین این دو را نمایش بده تا حدی تونستم بنویسم
مشکل من در تشخیص حروف کوچک و بزرگه
Public Function GetBetween(ByVal haystack As String, ByVal needle As String, ByVal needle_two As String) As String
Dim istart As Integer = InStr(haystack, needle)
If istart > 0 Then
Dim istop As Integer = InStr(istart, haystack, needle_two)
If istop > 0 Then
Dim value As String = haystack.Substring(istart + Len(needle) - 1, istop - istart - Len(needle))
Return value
End If
End If
Return Nothing
End Function
اینم فرا خوانی اون
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim FindIt As String = GetBetween(txtquery.Text, "select ", "where")
MessageBox.Show(FindIt)
End Sub
به نظر شما راهی وجود داره که بین Where کوچک یا بزرگ تفاوتی قائل نشود