الان که کامپایل نیست خوب کار میکنه کامپایل کنم داقون میشه
اما نه که اجرا نشه پنج دقیقه که صفحاشو جابه جا می کنم هنگ میکنه
اما اگر کامپایل نشه بیشتر کار میده و 3 تا پلاگین هم روش نصبه یکی مال راست چین لیست باکس
یکی fa. برای فارسی کردن صفحه کلید یکی هم برای کپی و جابه جایی فایل
اما من اگه خود mmb رو بزارم فایده نداره در واقع یک پروژه هست دوصفحه اول لیست باکسش از فایل txt اجرا میشه و صفحه آخر بین کتابها و pdf ها سرچ میشه و همه رو نشون میده
اغلب هم موقعی که یکم تعداد فایلها زیاد میشه گیر میده و موقعی که بیش از چند بار فایلها رو cut یا کپی کنم این اشکال پیش میاد
یه جور پروژه لیست باکس تو در توی
امه فکر کنم متغییرش زیاده شاید برای اون این مشکل پیش میاد
lod$=
'G:\file\[FONT=Courier New (Arabic)][FONT=Courier New (Arabic)][FONT=Courier New (Arabic)]مهندسي الکترونيک[/FONT][/FONT][/FONT]\aa.txt'
SongListLoad
("lod$","*.txt")
ListBoxGetSelectedItems
("ListBox","SelItems$,ItemNum$,#,count")
For
i=1 To count
nam2$=
GetArrayItem(ItemNum$,#,i)
nam2=
VAL(numitem$)
SelItems$=
GetArrayItem(SelItems$,#,i)
k1$=aa$+
'\k'+nam2$
**G:\file\mohandsy barg \k + add
***********sabat**********
********************
************
***********
NextPage()
Next
i
اما حالا با توجه به شماره گزینه انتخاب شده میره به صفحه بعد و
lod3$=aa$+'\k'+nam2$+'\feh (1).txt'
SongListLoad("lod3$","txt")
ListBoxAddItem("ListBox","<List>")
و در لیست باکس
ListBoxGetSelectedItems("ListBox","SelItems$,ItemNum$,#,count")
For i=1 To count
nam3$=GetArrayItem(ItemNum$,#,i)
nam3=VAL(nam3$)
SelItems$=GetArrayItem(SelItems$,#,i)
NextPage()
Next i
و با دابل کلیک دو باره مقداری رو ذخیره و میره برای سرچ کتاب که گاهی شاید 50 در صد مواقع همینجا هنگ میکنه
SearchForFiles("k4$","*.*")
RunScript("Script1")
ListBoxAddItem("ListBox","<List>")
**Pause("100")
ListBoxSortItems("ListBox","NAME")
**Pause("100")
SongListReset()
**Pause("100")
ListBoxGetItems("ListBox","<List>")
ودر لیست باکس
ListBoxGetSelectedItems("ListBox","SelItems$,ItemNum$,#,count")
For i=1 To count
numitem$=GetArrayItem(ItemNum$,#,i)
numitem=VAL(numitem$)
SelItems$=GetArrayItem(SelItems$,#,i)
Run("SelItems$","SelItems$")
open1$=open$+'\k1'
***********sabat**********
***********
Return()
Next i
دابل کلیک کنه کتاب باز میشه و از این حرفا
برنامه ای سادست
یک کتابخانه هوشمنده که کتابها رو دسته بندی کردم و هر یک را در یک پوشه به نام k1 دسته بندی کردم که اطلاعاتش تو txt است و درون اون پوشه هم زیر شاخه هاش درون پوشه هایی به نام k1 تا kn است درون اون پوشه ها رو فایل ریختم که mmb اونجا رو سرچ میکنه مثلا نمونش
file>>mmb>>k1 to kn>>k1 to kn>> serch
بترتیب کل فایلها>>پوشه mmb فایلش txt است>>انتخاب از لیست باکس که مثلا نوشته برنامه و مثال که از فایل txt خوانده میشه و به کد قبلی یه k و شماره numitem$=GetArrayItem(ItemNum$,#,i) اضافه میشه >>زیر شاخه ها که در فایل txt است که مانند قبلی بین k1 to kn انتخاب میشه طبق شماه زده شده در mmb>> درون این پوشه سرچ میشه