Fa ساختن سرچ برای هر صفحه

justali · Sep 5, 2012

سلام
داداش میگم این همه مثال هایی که برای گذاشتن سرچ توی mmb ، یا تو کامپیوتر من کار نمی کنند یا اصلا برای دانلود نذاشتید.
میگم البته ببخشیدا ،اگه میشه یه نمونه آماده یا ... در مورد سرچ کردن صفحه در mmb رو برای من بزارید.میشه این کار رو برای من انجام دهید؟

#ممنون##منتظر پاسخم ##ممنون#

silvercover · Sep 5, 2012

نه داداش نمیشه. چون معلوم نیست دقیقا چه نوع سرچی نیاز داری.

justali · Sep 5, 2012

اسم صفحه ها عدده بعدا میخوام که هر عددی رو که توی سرچ نوشتم به اون صفحه بره .
دونستید . آیا میشه این رو برام بزارید؟

باتشکر

BlueMMB · Sep 5, 2012

سلام .

خب سادست دوست عزیز یه EditBox‌بزارین و یه دکمه و برای دکمه بنویسین :

کد:

Page("EditBox$")

justali · Sep 5, 2012

خیلی تشکر می کنم از شما،
1خب داداش جست و جوی کلمه چطوری میشه بزارید؟
مثلا برای قرآن جست و جوی کلمه.
ممنون میشم اگه بزارید.
***اگه میشه زود جواب بدید با تشکر **

Shahim · Sep 5, 2012

نمی دونم چرا کل عالم و آدم دنبال ساخت نرم افزار قرآن هستند؟؟؟

شما می تونی قرآن رو به صورت فایل نوشتاری در بیاری و از فرمان های جستجوی استفاده کنی مثل strcopy

justali · Sep 5, 2012

داداش میگم من میخوام سرچی بسازم که کلمه رو سرچ کنه بعد شما به من برنامهجفر رو میدی!
اگه می شه بی زحمت به سوال بالایی من جواب بدید منتظرم.

Shahim · Sep 6, 2012

justali گفت:
داداش میگم من میخوام سرچی بسازم که کلمه رو سرچ کنه بعد شما به من برنامهجفر رو میدی!
اگه می شه بی زحمت به سوال بالایی من جواب بدید منتظرم.

مثل اینکه متوجه نشدید. اون برنامه توی امضای من هست و هر پستی بدم اون نوشته هم میاد

همون طور که گفتم باید قرآن رو به صورت فایل تکست در بیارید که 114 فایل برای تمام سوره‌ها باشه
بعد باید بدونید که تمام کاراکترهای اضافی رو باید حذف کنید. مثل اعراب و نمادهای تجویدی (از نرم افزار word استفاده کنید)

حالا می تونید از این کد استفاده کنید

کد:

FileZ$='<SrcDir>0.txt'
search$=EditBox$
For y=1 To 114
  File$='<SrcDir>'+CHAR(y)+'.txt'
  NolFile=NOL(File$)
  For i=1 To NolFile
    getline$[i]=StrFromFile(File$,i,1)
    If (getline$[i]=search$) Then
      out$=CHAR(y)+' : '+CHAR(i)+' : '+getline$[i]
      ReturnVal=StrToFile(FileZ$,out$,1,1)
    End
  Next i
  out$=''
Next y
NolFile=NOL(FileB$)