PDA

View Full Version : نظرخواهی در مورد سرعت ثبت و حذف اطلاعات ( بانک Access و ADO ) ...



Mahmood_M
شنبه 05 خرداد 1386, 02:14 صبح
سلام
من در حال نوشتن برنامه ای هستم که ایمیلهای گروهی می فرسته ( به تعداد زیاد ، حدود 100 هزار یا 10 هزار یا ... ) برای ثبت ایمیلها در برنامه ، قسمتی رو گذاشتم که کاربر، ایمیلهای موجود در یک فایل متنی رو به برنامه میده و برنامه اونها رو میخونه و تک تک توی بانک ذخیره می کنه ...
من فایل اجرایی برنامه رو گذاشتم تا دوستان ببینند و در مورد سرعت ثبت و همچنین حذف اطلاعات نظر خودشون رو بگن و اگه سرعت پایین هست ، برای افزایش سرعت اگه ایده ای دارند ، من رو بی نصیب نزارن ... !
لینک دانلود برنامه : ( هر کسی که وقت داره خوشحال میشم که دانلود کنه و نظرش رو بگه )
http://www.parsaspace.com/nabegheh/MailSender.rar

حجم : حدود 710 کیلوبایت

توجه ( در برنامه ) :
برای Import از فایل متنی :
روی دکمه مربوطه ( Import Mail Addresses ) کلیک کنید ، بعد توی پنجره ای که باز میشه در پایین پنجره ، فایل متنی که همراه برنامه گذاشتم ( که حاوی 1764 ایمیل معتبر و چند ایمیل نا معتبر هست ) رو وارد کنید و بعد روی دکمه پایینی ( مشخص هست ) کلیک کنید ...
بالای دکمه یک چک باکس هست که اگه اون رو فعال کنید ، اگه ایمیلها تکراری باشن ثبت نمی شن ...
برای حذف اطلاعات :
توی صفحه اصلی و در زیر جدول ، دکمه Delete All Records قرار داره ، روی اون کلیک کرده و سپس Yes رو انتخاب کنید تا حذف رکوردها شروع بشه ...

در دو مورد بالا ، در مورد سرعت انجام کار اگر ایده یا نظری دارید ممنون میشم اگه اعلام کنید ...
برای ثبت اطلاعات اول من ایمیل رو چک می کنم که آیا معتبر هست یا نه ، برای این کار از دستور Pos برای پیدا کردن کارکتر "@" استفاده می کنم و در صورت تایید رکورد رو ثبت میکنم ...

برای حذف رکوردها هم با یک حلقه تا آخر جدول می رم و رکوردها رو حذف میکنم ...

به هر حال منتظر نظرات شما هستم ...
با تشکر از همگی ...
موفق و پیروز باشید ...

مهدی کرامتی
شنبه 05 خرداد 1386, 22:44 عصر
من در مورد سرعت خواندن اطلاعات و ... نظری ندارم، اما بنظرم بجای فقط چک کردن وجود @ در رشته حاوی آدرس ایمیل، از Regular Expressions استفاده کنید. چند پیاده سازی از Regular Expressions در دلفی در این آدرس ها موجود است:

http://www.regexbuddy.com/delphi.html
http://www.regular-expressions.info/delphi.html

نمونه برنامه ای که ضمیمه کرده ام از مورد اولی استفاده میکند، بررسی کنید: