با سلام.
من یکسری کلمات کلیدی رو به آرایه دادم و روش من برای تشخیص وجود اون کلمه کلیدی در متن اصلی استفاده از حلقه بوده آیا روش ساده تری هم وجود داره البته من از طریق LINQ نتونستم با آرایه به نتیجه برسم.
Function ISKeyWord(ByRef Value As String) As Boolean
Dim KeyWords() = {"FROM", "AS", "WHERE", "IS", "SELECT", "ALL"}
For Each Word As String In KeyWords
If Value.ToUpper.CompareTo(Word) = 0 Then
Value = Word
Return True
End If
Next
Return False
End Function
روش دوم استفاده از فیلتر بود به اینصورت که اصولی نیست:
Function ISKeyWord(ByRef Value As String) As Boolean
Dim KeyWords() = {"FROM", "AS", "WHERE", "IS", "SELECT", "ALL"}
Dim Expr() As String = Filter(KeyWords, Value.ToUpper, True, CompareMethod.Binary)
If Expr.Length > 0 Then
Value = Expr(0)
Return True
End If
Return False
End Function
پاسخ با نقل قول
