View Full Version : استخراج شماره کارت بانکی از یک رشته در فیلد
khoshblagh
پنج شنبه 26 تیر 1404, 23:08 عصر
با سلام خدمت اساتید و دوستان
میخواهم از یک رشته که شامل شماره کارت بانکی و شماره های متفرقه که مورد نیاز نیست شماره کارت بانکی را استخراح نمایم.مثل رشته زیر:
انتقال از اينترنت 17592030 ملي جديد از ک 6037991793133947 ش م 525556600405 ش پ 169944
همانطور که مشاهده میشود در رشته فوق 4 رشته عددی وجود دارد که رشته مورد نیاز همان عدد 16رقمی قرمز رنگ میباشد.البته در نت کدی که تمام 4 رشته عددی را با هم استخراج مینماید وجود دارد که مورد نظر نمیباشد.در حقیقت کد مورد نظر در جستجو خود دنبال رشته عدد 16 رقمی گشته و آنرا استخراج نماید.لطفا در این خصوص عنایت بفرمایید. متشکرم :تشویق:
masoode
شنبه 28 تیر 1404, 14:34 عصر
https://chatgpt.com/share/687b746e-19f0-8009-87be-3de7af6bef68
khoshblagh
شنبه 28 تیر 1404, 16:44 عصر
با سلام و تشکر از پیگیریتان.
خطای 404 میگیرد.
masoode
یک شنبه 29 تیر 1404, 10:51 صبح
سوال شما را در چت جی پی تی کپی کردم و گفتم با کد دلفی. همین کار را انجام دهید 90 درصد جواب را بدست می آورید. 10 درصد باقی مانده را خودتان باید زحمت بکشید
دلفــي
شنبه 11 مرداد 1404, 12:24 عصر
با سلام خدمت اساتید و دوستان
میخواهم از یک رشته که شامل شماره کارت بانکی و شماره های متفرقه که مورد نیاز نیست شماره کارت بانکی را استخراح نمایم.مثل رشته زیر:
انتقال از اينترنت 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
یک شنبه 12 مرداد 1404, 09:08 صبح
با سلام خدمت استاد ارجمند
بسیار عالی . کاملا کوتاه و موثر.:لبخند:
khoshblagh
سه شنبه 14 مرداد 1404, 01:26 صبح
با سلام مجدد
'd\' در کد بالا نمایانگر چه گزینه ای است؟
در حقیقت دنبال تمام گزینه های ممکن جهت استفاده از این کد می باشم. متشکرم
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.