از پلاگین SQLite استفاده کنید و بریزید تو دیتابیس و با سرعت بالا جستجو.... رو انجام بدید تنها راهش همینه باقی راه ها اشتباه هست پیگیر نباشید
سلام محمود جان
بله کاملا شدنیه و فک کنم حدود 40 ثانیه و این حدود طول میکشه شایدم کمتر
برای این کار از GetArrayItem
بهتره طالعات خودتون رو در مورد بیلدر و توابعش بالا ببرید والا امکان داره بتونید همچین برنامه ای بنویسید
سلام محمود جان اگه یادت باشه پرسیدم ازت که اگر من یک فایل تکست با 500000 لاین داشته باشم و بخوام این 500000 تا لاین رو تو پایگام ثبت کنم چقدر زمان میبره گفتی 30 تا 40 ثانیه ، حالا من من اینکار رو با 6000 لاین انجام دادم که 20 دقیقه زمان برد تا همه رو ثبت کرد ، این زمان خیلی خیلی زیاده یه نگاهی به این کدا بکن ببین مشکلی ندارن یا اگه راه حلی داری بی زحمت کمک کن برادر
بخش یک 1 :
هر لاین من شامل اینا میشن : 2016/10/13 13:14:35 25.48 789547.52
text$='لطفا قبل از معرفي داده ها جديد عمليات آماده سازي را انجام دهيد '
text1$=' آيا عمليات آماده سازي را انجام داده ايد؟'
text2$=text$+CHR(13)+CHR(10)+CHR(13)+CHR(10)+text1$
flag=32+4+0+0+0
param$=text2$+','+CHAR(flag)
MessageEx(".:: پيغام ::.","param$")
If (CBK_MsgEx=6) Then
OpenFile("TXT file|*.txt|All Files|*.*||","*.txt")
If (OpenFile$='') Then
Return()
Else
Show("LOADING")
line0=NOL(OpenFile$)
For b=1 To line0
count=count+1
ReturnStr$=StrFromFile(OpenFile$,count,1)
r$=sp1$
h$='#'
b$=StrChange(ReturnStr$,r$,h$)+'#'
num=GetArrayNum(b$,#)
For i=1 To num
get$
=GetArrayItem(b$,#,i)
Next i
count1$=CHAR(count)
EditBox1$=count1$
EditBox2$=get$[1]
EditBox3$=get$[2]
EditBox4$=get$[3]
EditBox5$=get$[4]
RunScript("ScriptCheckCodeOzv")
Next b
End
If (b=line0) Then
Hide("LOADING")
NextPage()
Else
End
End
If (CBK_MsgEx=7) Then
Return()
End
اینم بخش دوم که نه پایگاه دست کاری شد و نه کدا
SQLQuery$ = 'INSERT INTO OzvTBL (Code,Name,LName,Mobile,DateAdd,Image,Rezome)'
SQLQuery$ = SQLQuery$ + ' VALUES (\''+EditBox1$+'\',\''+EditBox2$+'\',\''+EditBox3$+'\',\''+EditBox4$+'\',\''+EditBox5$+'\',\'[[ImageFile]]\',\''+Rezome$+'\');'
PluginSet("PlugInSQLite","SQLQuery$")
PluginRun("PlugInSQLite","UpdateDB")
PluginGet("PlugInSQLite","Updated")
