VBA ฟังก์ชันการตรวจสอบคำในประโยคครับ

[DhitiBank]

สวัสดีอาจารย์และเพื่อนๆ ครับ

ผมได้เข้าไปอ่านการเขียนฟังก์ชันตรวจสอบคำ เทียบกับประโยคที่สนใจว่ามีคำๆ นั้นในประโยคหรือไม่ (ต่างกับ FIND หรือ SEARCH เพราะฟังก์ชันนี้จะตรวจแบบเป็นคำ ไม่ใช่ตัวอักษร) เห็นว่าน่าจะได้ใช้เลยคัดลอกเก็บไว้

Code: Select all

Function ExactWordInString(Text As String, Word As String) As Boolean
  ExactWordInString = " " & UCase(Text) & " " Like "*[!A-Z]" & UCase(Word) & "[!A-Z]*"
End Function

ที่มา: ExtractWordInString by Rick Rothstein

แต่สงสัยตรง "*[!A-Z]" กับ "[!A-Z]*" เขากำหนดเอาไว้เพื่ออะไรครับ ในเว็บเพจที่ดูไม่มีช่องให้ถาม และผมก็ไม่รู้จะถามเขาอย่างไร ใช้คำไม่ถูกครับ

[snasui]

Like เป็น Operater ตัวหนึ่ง ใช้เปรียบเทียบ String กับ Pattern

หากเขียนเป็น x Like "*[[color=#FF0000]![/color]A-Z]" หมายถึง x เป็นค่าใด ๆ ก็ตามที่ไม่ลงท้ายด้วยอักขระ A ถึง Z ใช่หรือไม่

หากเป็น x Like "*[A-Z]" หมายถึง x เป็นค่าใด ๆ ก็ตามที่ลงท้ายด้วยอักขระ A ถึง Z ใช่หรือไม่

โดย [A-Z] เป็น Pattern ในการใช้เปรียบเทียบ ลองศึกษาเพิ่มเติมที่นี่ครับ https://msdn.microsoft.com/en-us/library/swf8kaxw.aspx

[DhitiBank]

ขอบพระคุณอาจารย์มากครับ เดี๋ยวจะลองศึกษาดูครับ

เกือบจะเข้าใจแล้ว งงตรง "ใช่หรือไม่" นั่นแหละครับ เดี๋ยวต้องลองหาตัวอย่างมาเล่น

ถ้าในความหมายนั้น เครื่องหมาย "!" ก็มีค่าเป็น "ตรงข้าม" หรือ "นิเสธ" ในเชิงตรรกศาสตร์สินะครับ

[snasui]

เกือบจะเข้าใจแล้ว งงตรง "ใช่หรือไม่" นั่นแหละครับ

ผมเขียนในเชิงเปรียบเทียบเหมือนกับ Operator ทั่วไปซึ่งจะให้ผลลัพธ์เป็น True หรือ False อย่างใดอย่างหนึ่งครับ

ถ้าในความหมายนั้น เครื่องหมาย "!" ก็มีค่าเป็น "ตรงข้าม" หรือ "นิเสธ" ในเชิงตรรกศาสตร์สินะครับ

ถูกต้องครับ

[DhitiBank]

ผมเขียนในเชิงเปรียบเทียบเหมือนกับ Operator ทั่วไปซึ่งจะให้ผลลัพธ์เป็น True หรือ False อย่างใดอย่างหนึ่งครับ

อ๋อเลยครับ ขอบคุณครับ

[bank9597]

ยกตัวอย่างนี้มาแล้วก็เป็นเรื่องที่ดีเลยครับ

ผมเลิกใช้ Find และ Search ไปนานแล้ว ตอนนี้ใช้แต่ Like ซึ่งมันง่ายกว่า

แต่ [!A-Z] ผมก็ยังไม่เคยทดสอบเช่นกันครับ คงต้องลองดูสักครั้ง