Page 1 of 1
VBA ฟังก์ชันการตรวจสอบคำในประโยคครับ
Posted: Thu Sep 17, 2015 10:07 am
by 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]*" เขากำหนดเอาไว้เพื่ออะไรครับ
ในเว็บเพจที่ดูไม่มีช่องให้ถาม และผมก็ไม่รู้จะถามเขาอย่างไร ใช้คำไม่ถูกครับ
Re: VBA ฟังก์ชันการตรวจสอบคำในประโยคครับ
Posted: Thu Sep 17, 2015 11:09 am
by 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
Re: VBA ฟังก์ชันการตรวจสอบคำในประโยคครับ
Posted: Thu Sep 17, 2015 11:40 am
by DhitiBank
ขอบพระคุณอาจารย์มากครับ
เดี๋ยวจะลองศึกษาดูครับ
เกือบจะเข้าใจแล้ว งงตรง "ใช่หรือไม่" นั่นแหละครับ
เดี๋ยวต้องลองหาตัวอย่างมาเล่น
ถ้าในความหมายนั้น เครื่องหมาย "!" ก็มีค่าเป็น "ตรงข้าม" หรือ "นิเสธ" ในเชิงตรรกศาสตร์สินะครับ
Re: VBA ฟังก์ชันการตรวจสอบคำในประโยคครับ
Posted: Thu Sep 17, 2015 12:58 pm
by snasui
DhitiBank wrote:เกือบจะเข้าใจแล้ว งงตรง "ใช่หรือไม่" นั่นแหละครับ
ผมเขียนในเชิงเปรียบเทียบเหมือนกับ Operator ทั่วไปซึ่งจะให้ผลลัพธ์เป็น True หรือ False อย่างใดอย่างหนึ่งครับ
DhitiBank wrote:ถ้าในความหมายนั้น เครื่องหมาย "!" ก็มีค่าเป็น "ตรงข้าม" หรือ "นิเสธ" ในเชิงตรรกศาสตร์สินะครับ
ถูกต้องครับ
Re: VBA ฟังก์ชันการตรวจสอบคำในประโยคครับ
Posted: Thu Sep 17, 2015 1:06 pm
by DhitiBank
snasui wrote:ผมเขียนในเชิงเปรียบเทียบเหมือนกับ Operator ทั่วไปซึ่งจะให้ผลลัพธ์เป็น True หรือ False อย่างใดอย่างหนึ่งครับ
อ๋อเลยครับ
ขอบคุณครับ
Re: VBA ฟังก์ชันการตรวจสอบคำในประโยคครับ
Posted: Thu Sep 17, 2015 8:36 pm
by bank9597
ยกตัวอย่างนี้มาแล้วก็เป็นเรื่องที่ดีเลยครับ
ผมเลิกใช้ Find และ Search ไปนานแล้ว ตอนนี้ใช้แต่ Like ซึ่งมันง่ายกว่า
แต่ [!A-Z] ผมก็ยังไม่เคยทดสอบเช่นกันครับ คงต้องลองดูสักครั้ง