ساده ترین نمونه مثال و کد برای بررسی کلمات - دیکشنری
سلام
البته بهترین و کاملترین مثال در نوع خودش رو محمود جان ارائه کردند.
اما از اونجایی که به نظرم میرسه که برای قدم اول درک موارد ساده و اولیه خیلی خوب هست یه کد دم دستی آماده کردم تا موضوع روشن بشه.
کل کد اینه :
کد:
** Need lowercase for same results
Res$=LOW(EditBox$)
/*
** First Method (Just for undrestanding - Not enough good)
**
If (Res$='hello' | Res$='hi') Then
LoadText("Text","سلام")
Else
LoadText("Text","هيچ")
End
*/
** Second Method (Just an example - Need some improvement)
**
En$[1]='hi'
Fa$[1]='سلام'
En$[2]='hello'
Fa$[2]='سلام'
En$[3]='by'
Fa$[3]='خدانگهدار'
Words=3
Find=0
For i=1 To Words
If (Res$=En$[i]) Then
Find=i
Break()
End
Next i
If (Find=0) Then
LoadText("Text","هيچ")
Else
LoadText("Text","Fa$[i]")
End
** Third Method > Using Plugin (Somthing like 'SQLite') like as what dear MahmoodM30 said.
**
** Hint : You can use some other way to proccessing like POS() or GetArrayNumbet() or etc ...
روش اول (First Method) رو کامنت کردم، یعنی کار نمی کنه. صرفا یه شرط ساده برای درک بهتر هست.
روش دوم (Second Method) کار می کنه که البته نیاز به یه منبع داده بهتر و یه روش نتیجه گیری دقیق تر داره. اما در اصل چیزی شبیه این ولی با در نظر گرفتن شرایط پیچیده تری هست.
روش سوم (Third Method) هم ساده ترین و سریع روش هست که اینجا تکرارش نکردم چون در انجمن جستجو بفرمایید در مورد SQLite وجود داره و بهترین روش با توجه به کم شدن سرعت MMB در تعداد متغیر زیاد هست.
(* بردارا ببخشن اگه از زبان اجنبی برای کامنت استفاده شده، چون در ترکیب فارسی انگلیسی برعکس می شد. یه خورده هم بین المللیش کم می شد.

)
اگر نمونه کد رو نمیشه فهمید به مثال پیوست مراجعه کنید.