با سلام خدمت سروران گرامی
دوستان من تازه کار هستم ومی خوام این پروژه رو انجام بدم
تا حدی پیش رفتم ومی خوام از شما اساتید کمک بگیرم
در این برنامه اچطوری میشه اطلاعات یک تاریخ در یک سطر ذخیره بشه وهروقت تاریخ عوض شد به سطر بعدی بره
ممنون میشم اگه زودتر راهنمایی بفرمایید.
من مثال شمارو دیدم. با اینکه میدونم چیکار میخواید بکنید ولی دلیل پیاده سازیتون رو متوجه نشدم!
بهرحال... مثال شمارو اصلاح کردم. برای دکمه "ورود" الان شما هربار که بزنید تا تاریختون رو عوض نکنید، در همون سطر متغیراتون اضافه میشه
اما پیشنهاد من اینه که یا از SQLite استفاده کنید یا اینکه یه مدریت پایگاه داده رو برا پروژتون انجام بدید. خیلی ساده تر و بهتر میشه به مقصودتون برسید و فایل منظم تر و در عین حال حجمی بهینه و با سرعت جستجویی بالا داشته باشد!
حق با شماست.
با تغییر اسکریپتتون به اسکریپت زیر، درست میشه:
********************************************
folder$='C:'
file$=folder$+'\\'+p$+'.dll'
*** تعداد خطوط فايل متني را بر مي گرداند
line_num=NOL(file$)
*** متن موجود در فايل را در يك متغير رشته‌اي بارگذاري مي كند
string$=StrFromFile(file$,1,-1)
Ldate$=StrFromFile(file$,1,line_num)
Ldate$=StrCopy(Ldate$,1,8)
LD=VAL(Ldate$)
FS=VAL(Full_Shamsi$)
If (LD<>FS) Then
changedate=1
Ldate$=Full_Shamsi$
Else
changedate=0
End
string$=''
*** عبارت مورد نظر را بعنوان زيررشته در متغير رشته‌اي جستجو ميكند
*********************************************
** masire zakhire etelaat ya hamon data base
path$=file$
** rikhtan meghdar haye moteghayer haye mokhtalef dakhel yek moteghayer
If (ShamsiDay<10) Then
out$='0'+CHAR(ShamsiDay)
g$=CHAR(ShamsiYear)+''+CHAR(ShamsiMonth)+''+out$
Else
g$=CHAR(ShamsiYear)+''+CHAR(ShamsiMonth)+''+CHAR(ShamsiDay)
End
** zakhire nahaee etelaat dar masir moshakahs shode
t$=CBK_Time24
h$=''
string$=string$+g$+' , '+t$+' , '+h$
If (changedate=1) Then
c=StrToFile(path$,string$,TRUE,TRUE)
Else
c=StrToFile(path$,string$,TRUE,FALSE)
End
** namayesh etelaat data base
LoadText("data$","file$")
LoadText("data","data$")
myText$=''
DisplayValue("EditBox","myText$")
DisplayValue("EditBox1","myText$")
RunScript("date")
در اصل همون کد قبلیه فقط یه دستور string$=''
بهش اضافه شده.
راستی! ما کوچیک همه دوستانیم! استاد لفظ بزرگیه که کمر من طاقت بارشو نداره
ورق گالوانیزه؛ محافظی مستحکم در برابر زنگ زدگی و فرسایش
