چگونه میتوان رکوردها تکراری یک جدول را یافت و حذف نمود-با توجه به شرط های توضیح داده شده

سلام.-دوستان
توضیح :
یک فایل داریم با یک جدول که حاوی اطلاعات کد و عناوین شغلی سازمان تامین اجتماعی است
در لیست کد ها کد های تکراری زیادی وجود دارد
اما مشکلی بزرگ جهت پیدا کردن و تشخیص اینکه کدام کد تکراری است و کدام تکراری نیست وجود دارد
و این مشکل در بزرگ و کوچک بودن حروف انگلیسی داخل کدهای مشاغل است
و همینطور صفر های قبل از شروع کد
مثال 1
000045
45
این دو کد نظر کامپیوتر یکسان هستن ولی واقعا تکراری نیستن چون دارای صفر قبل از عدد هستن
مثلا 2
AC00025
ac00025
این دو کد از نظر نوشتن شبیه به هم هستن ولی تکراری نیستن چون بزرگ کوچیک بودن حروف شان فرق می کنه
هدف
میخواهیم در یک فرم کد هایی که تکراری که از نظر تعداد کاراکتر و بزرگ یا کوچک بودن حروف با هم یکسان هستند پیدا کند نشان داده و با دکمه دیگری پاک کنیم
به عبارتی کدهایی تکرای هستن که نظیر به نظیر مساوی باشند
فیلد کد شغل هم از نوع Short Text است
هر نوع راهنمایی اثر بخش خواهد بود
با هر روشی که فکر میکنید درست است و مشکل رو حل میکنه مشکلی نداریم
و استفاده راه و روشی خاص برای حصول نتیجه برای ما ملاک نیست
در فایل ضمیمه یک کوئری ساختیم که فیلد های تکراری را بیابد و نشان دهد که خوب با توجه به توضیحات بالا نتیجه کوئری غلط است.
با سپاس از شما

فایل نمونه
https:/d/8422731792/a5c9621a-6867-44

نقل قول:

---

نوشته شده توسط padide55

سلام .
واقعیت اینه که این مبحث رو چون مبهم بود برام شرکت نکردم .ولی پی گیر مطالب هستم .
یک صحبت دوستانه
چند ماه پیش هم یکی از تاپیکها مثل این تاپیک شد .
لطف کنید دو‌مطلب رو درنظر بگیرید ‌.
اول اینکه تاپیکها رو با دید مثبت نگاه کنید .
من خودم به یکی از کاربرها پست گذاشتم که اول کمی مطالعه داشته باش .و جستجو انجام بده .ولی بعد پشیمان شدم .چون فکر کردم نکنه بنده خدا ناراحت شده باشه .
برای همین .تاپیکهای بعدی که گذاشتند رو با صبر بیشتری پی گیری کردم.
جناب narpco یک مقدار حساسیت زیاد دارید .لطفا صبر بیشتری پیش بگیرید .
الان من در جایی که هستم .هیچ کس از اکسس سر در نمیاره .ولی یادگرفتن رو همیشه دنبال میکنم .
تمام تاپیکها رو دنبال میکنم .
بیشتر پستها رو‌جواب میدم .برای خیلی از مطالب هم گاها دو تا سه روز وقت میگذارم .
لطفا دید مثبت نسبت به تاپیکها داشته باشید .حتی اگر خلاف دیدگاه شما باشه .
و کمی هم صبور باشید .

---

-------------------------------------------


دوست عزیزی در رابطه با این موضوع پیشنهادی داد که جالب بود و قطعه کدی رو هم برای من فرستاد
گفت بجای اینکه وقت بزاری دیتا بیس رو چک کنی در موقع ورود کد جدید چک کن که این کد نظیر به نظر در دیتا بیس هست یا نه اگر بود پیام بده
و از دستور STRCOMP که سه حالت داره استفاده کنم

Dim MyStr1, MyStr2, MyComp

MyStr1 = bb: MyStr2 = aa     ' Define variables.

MyComp = StrComp(MyStr1, MyStr2, 1)    ' Returns 0.

MyComp = StrComp(MyStr1, MyStr2, 0)    ' Returns -1.

MyComp = StrComp(MyStr2, MyStr1)    ' Returns 1.





MsgBox Nz(MyComp)

که ما با مورد دوم کار داریم که بصورت باینری کاراکتر ها رو با هم چک میکنه


یک نکته مهم دیگه هم هست

این دیتا بیس خود تامین اجتماعی هست و کد مشاغل داخلش خیلی مهمه

من خیلی مطمئن نیستم که اصلا با چه منطقی کد گذاری شده و اینکه چرا بعضی مشاغل چند بار تکرار شده با کدهای مختلف و یا اینکه چرا از یک کد دوباره وجود داره یکی با حروف بزرگ یکی کوچیک
یکی با 0000 یکی بدون 0 تنها چیزی که فهمیدم اینه که کدهایی که حروف انگلیسی دارن مشاغل سخت و زیان آور هستن که اگر یادتون باشه قبلا در موردش صحبت کردیم ......

و ما نمیتونیم چیزی به این کد ها اضافه یا کم کنیم چون اطلاعات یک سازمان دولتی هست کدها جابجا بشه بعدا در تولید لیست بیمه از نرم افزارمون به مشکل برمیخوریم

نظرم اینه که در حین بارگذاری اطلاعات دوباره یک دیتا بیس رو با هم قاطی کردن ........

حالا من هم از صبح روی این قضیه کار کردم تا الان و به این نتیجه رسیدم که به دیتا بیس بیمه دست نزنیم

در هنگام ورود اطلاعات کنترل نظیر به نظر بزاریم ......نظر شما چیه ؟

سلام مجدد.
لطف کنید فایل مشاغل جدید را از خود سایت تامین اجتماعی دریافت کنید
لینک‌ صفحه
روی لینک مربوطه کلیک کنید
دریافت فایل "جدول مشاغل"
ضمنا یک نرم افزار هست مربوط به ارسال دیسکت تامین اجتماعی ‌
.یک نگاه هم به اون برنامه بیندازید.

لینک مربوطه

[QUOTE=padide55;2439769]سلام مجدد.
لطف کنید فایل مشاغل جدید را از خود سایت تامین اجتماعی دریافت کنید
لینک‌ صفحه
روی لینک مربوطه کلیک کنید
دریافت فایل "جدول مشاغل"
ضمنا یک نرم افزار هست مربوط به ارسال دیسکت تامین اجتماعی ‌
.یک نگاه هم به اون برنامه بیندازید.

لینک مربوطه[/QUOTE

سلام عزیز ممنون از زحمتت

من شغلم در زمینه مالی هست و خیلی سال هست که با نرم افزار بیمه کار می کنیم .....

دیتا بیسی هم که فرستادم تو پست 1 از تو برنامه listdisk خود تامین اجتماعی استخراج کردم

لیست مشاغل کامل هست مشکلی نیست

مشکل در تکراری بودن اطلاعات هست

حالا انشالهه من فایل رو درست کنم رو بحش جستجوی نظیر به نظیر میریم جلود .....

بازم ممنون از شما که وقت گذاشتی ...

سلام
موضوع تکراری بودن کد و نام رو من دادم یکی از دوستان با سی شارپ دقیق حل کرد
مشکل تکراری بودن رو نداریم دیگه
باقی مونده نام های تکراری کد های متفاوت دارند
و باقی مانده کد های تکراری بصورت حروف بزرگ و کوچک هستند و بازهم با هم متفاوتند
پس الان مشکل تکراری بودن نداریم

الان میخواهیم وقتی کد یا نام جدیدی تعریف میکنیم
نظیر به نظیر بگرده و اگر این کد یا نام وجود داشت پیام بده
یک دکمه هم برای کنترل این مورد در فایل تعبیه شده ---

نکته مهم اینکه نباید از کد یا نام چیزی کم یا اضافه کنیم
با این توضیح مجدد که
Ac
ac
AC
aC
با هم متفاوتند
و
0045
45
045
00045
000045
هم با هم متفاوتند
با سپاس

لینک فایل

https://s16.picofile.com/d/842292894...f3d51f/job.rar

یک سناریوی دیگه به ذهنم رسید که کار رو سریعتر کنه که دیتا بیش فعلی رو دو تا فیلد اضافه کنیم برای کد اسکی نام و کد

و دستوری بنویسم که نام و کد های فعلی رو به کد اسکی تبدیل کنه

و بعد برای ورود اطلاعات جدید ابتدا اطلاعات به کد اسکی بشه و جستجوی تکراری نبودن براساس فیلد های کد اسکی نام و کد در جدول انجام بشه ...

با سپاس از راهنمایی های جناب PADIDEH

ابتدا کل دیتا بیس رو به کد اسکی تبدیل کردم

سپس برای کنترل کد جدید از کد زیر استفاده کردم

Dim MyStr1, MyStr2, MyComp

MyStr1 = bb: MyStr2 = aa ' Define variables.

MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.





MsgBox Nz(MyComp)

به خوبی و دقیق کار می کند و نظیر به نظیر جستجو انجام میشود

با سپاس از شما