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

[khoshblagh]

با سلام خدمت اساتید و دوستان
میخواهم از یک رشته که شامل شماره کارت بانکی و شماره های متفرقه که مورد نیاز نیست شماره کارت بانکی را استخراح نمایم.مثل رشته زیر:
انتقال از اينترنت 17592030 ملي جديد از ک 6037991793133947 ش م 525556600405 ش پ 169944
همانطور که مشاهده میشود در رشته فوق 4 رشته عددی وجود دارد که رشته مورد نیاز همان عدد 16رقمی قرمز رنگ میباشد.البته در نت کدی که تمام 4 رشته عددی را با هم استخراج مینماید وجود دارد که مورد نظر نمیباشد.در حقیقت کد مورد نظر در جستجو خود دنبال رشته عدد 16 رقمی گشته و آنرا استخراج نماید.لطفا در این خصوص عنایت بفرمایید. متشکرم :تشویق:

[masoode]

https://chatgpt.com/share/687b746e-19f0-8009-87be-3de7af6bef68

[khoshblagh]

با سلام و تشکر از پیگیریتان.
خطای 404 میگیرد.

[masoode]

سوال شما را در چت جی پی تی کپی کردم و گفتم با کد دلفی. همین کار را انجام دهید 90 درصد جواب را بدست می آورید. 10 درصد باقی مانده را خودتان باید زحمت بکشید

[دلفــي]

با سلام خدمت اساتید و دوستان
میخواهم از یک رشته که شامل شماره کارت بانکی و شماره های متفرقه که مورد نیاز نیست شماره کارت بانکی را استخراح نمایم.مثل رشته زیر:
انتقال از اينترنت 17592030 ملي جديد از ک 6037991793133947 ش م 525556600405 ش پ 169944
همانطور که مشاهده میشود در رشته فوق 4 رشته عددی وجود دارد که رشته مورد نیاز همان عدد 16رقمی قرمز رنگ میباشد.البته در نت کدی که تمام 4 رشته عددی را با هم استخراج مینماید وجود دارد که مورد نظر نمیباشد.در حقیقت کد مورد نظر در جستجو خود دنبال رشته عدد 16 رقمی گشته و آنرا استخراج نماید.لطفا در این خصوص عنایت بفرمایید. متشکرم :تشویق:


uses
System.RegularExpressions;

function ExtractCardNumber(const Input: string): string;
var
Match: TMatch;
begin

Match := TRegEx.Match(Input, '\d{16}');
if Match.Success then
Result := Match.Value
else
Result := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
InputString, CardNumber: string;
begin
InputString := 'انتقال از اينترنت 17592030 ملي جديد از ک 6037991793133947 ش م 525556600405 ش پ 169944';
CardNumber := ExtractCardNumber(InputString);
if CardNumber <> '' then
ShowMessage(CardNumber)
else
ShowMessage('شماره کارت پیدا نشد');
end;

[khoshblagh]

با سلام خدمت استاد ارجمند
بسیار عالی . کاملا کوتاه و موثر.:لبخند:

[khoshblagh]

با سلام مجدد
'd\' در کد بالا نمایانگر چه گزینه ای است؟
در حقیقت دنبال تمام گزینه های ممکن جهت استفاده از این کد می باشم. متشکرم

[دلفــي]

با سلام مجدد
'd\' در کد بالا نمایانگر چه گزینه ای است؟
در حقیقت دنبال تمام گزینه های ممکن جهت استفاده از این کد می باشم. متشکرم

از \d به عنوان بخشی از یک الگوی عبارات منظم (Regular Expression) برای جستجوی اعداد استفاده شده است، الگوی \d{16} به طور خاص به دنبال یک رشته از 16 عدد متوالی در ورودی می‌گردد، به عبارت دیگر، این کد به دنبال یک شماره کارت بانکی 16 رقمی می‌گردد.