نمایش نتایج 1 تا 6 از 6

نام تاپیک: عملیات پیشرفته Replace در فایل متنی

  1. #1

    Question عملیات پیشرفته Replace در فایل متنی

    دوستان سلام.
    اگر اطلاع داشته باشید، در Word خاصیتی وجود داره که می تونید عملیات Replace رو با امکانات ویژه ای انجام بدید.
    مثلا فرض کنید در یک متن 30 صفحه ای، می خواین هرجا تاریخ و ساعت به فرمت YY/MM/DD hh:mm:ss بود رو پاک کنید.
    یا هر جا چهار تا خط پشت سرهم بدون هیچ متنی اینتر خورده بود رو به دو تا خط تبدیل کنید.
    یا مثلا هر جا در متن، شماره پلاک یک ماشین به شکل «ایران 22 - 456 ع 32» بود رو به صورت «*****» نمایش بده. (در حالی که ممکنه هزاران پلاک متفاوت در فایل word وجود داشته باشه و شما هدفتون فقط پیدا کردن فرمت پلاک و تبدیل اون به ستاره باشه).

    خب اگه با این خاصیت آشنا هستین و متوجه منظور من شدین میرم سراغ سوال خودم:
    من در یک برنامه نیاز دارم تا یه سری تغییرات در فرمت بعضی از ستون های اکسل ایجاد کنم. برای همین منظور نیاز دارم تا از همین سیستم Word استفاده کنم. ولی منطق و الگورتیمی برای این کار به ذهنم نمی رسه. ممکنه هر کدوم از شما قبلا در این مورد راه حلی به ذهنتون رسیده باشه؟ ممنون میشم کمک کنید

    به عنوان مثال به شکل زیر توجه کنید:
    آخرین ویرایش به وسیله hamedjim : چهارشنبه 13 آذر 1398 در 14:35 عصر دلیل: اضافه کردن تصویر

  2. #2
    کاربر دائمی
    تاریخ عضویت
    تیر 1391
    پست
    1,021

    نقل قول: عملیات پیشرفته Replace در فایل متنی

    نقل قول نوشته شده توسط hamedjim مشاهده تاپیک
    دوستان سلام.
    اگر اطلاع داشته باشید، در Word خاصیتی وجود داره که می تونید عملیات Replace رو با امکانات ویژه ای انجام بدید.
    مثلا فرض کنید در یک متن 30 صفحه ای، می خواین هرجا تاریخ و ساعت به فرمت YY/MM/DD hh:mm:ss بود رو پاک کنید.
    یا هر جا چهار تا خط پشت سرهم بدون هیچ متنی اینتر خورده بود رو به دو تا خط تبدیل کنید.
    یا مثلا هر جا در متن، شماره پلاک یک ماشین به شکل «ایران 22 - 456 ع 32» بود رو به صورت «*****» نمایش بده. (در حالی که ممکنه هزاران پلاک متفاوت در فایل word وجود داشته باشه و شما هدفتون فقط پیدا کردن فرمت پلاک و تبدیل اون به ستاره باشه).

    خب اگه با این خاصیت آشنا هستین و متوجه منظور من شدین میرم سراغ سوال خودم:
    من در یک برنامه نیاز دارم تا یه سری تغییرات در فرمت بعضی از ستون های اکسل ایجاد کنم. برای همین منظور نیاز دارم تا از همین سیستم Word استفاده کنم. ولی منطق و الگورتیمی برای این کار به ذهنم نمی رسه. ممکنه هر کدوم از شما قبلا در این مورد راه حلی به ذهنتون رسیده باشه؟ ممنون میشم کمک کنید
    نمیدونم از کدوم نسخه دلفی استفاده می کنید ولی کلا در اینجور موارد از کلاس های Regular Expressions استفاده می کنند که با توجه به نسخه دلفی مورد استفاده بر اساس TPerlRegEx یا TRegEx یا System.Text.RegularExpressions داخل NET. ئه.
    شما با Regular Expressions خیلی راحت می توانید در Cell ها دنبال موردی بگردید که می خواهید و حتی برای اون ارقام و حروف نام گروه مشخص کنید تا بشه تفکیک شون کرد و بعد چسبوند بهم.
    مثلا کد زیر طبق تعریق TRegEx میگه دنبال رشته مورد نظر شما بگرده و اسم گروه دو رقم اول رو بذاره p1 و اسم حرف بعدی رو p2 و اسم سه رقم بعدی رو p3 بذاره :

    \A(?<p1>\p{Nd}\p{Nd}) (?<p2>\p{L}) (?<p3>\p{Nd}\p{Nd}\p{Nd}) \p{Nd}\p{Nd}\z

    اون A\ یعنی ابتدای رشته و Z\ یعنی انتهای رشته. <p1>? اسم گروه رو مشخص می کنه که بین پارانتز باز و بسته مقدار داخل گروه خواهد بود. p{Nd}\ یعنی یک رقم و p{L}\ یعنی یک حرف.
    عمدا خلاصه اش نکردم تا بهتر متوجه الگوی اون بشید. وقتی این الگو در رشته پیدا شد میشه گفت متن گروه p1 و p2 و p3 رو بچسبون بهم تا رشته خروجی شما ایجاد بشه.
    من برنامه نویس دلفی نیستم که بتونم کد بی نقصی براتون بنویسم که اینکار رو انجام بده، لذا اگه ایرادی در کد بود عذر خواهی می کنم :

    var
    MatchResults: TMatch;
    ResultString: string;
    try
    MatchResults := TRegEx.Match(SubjectString, '\A(?<p1>\p{Nd}\p{Nd}) (?<p2>\p{L}) (?<p3>\p{Nd}\p{Nd}\p{Nd}) \p{Nd}\p{Nd}\z');
    if MatchResults.Success then begin
    ResultString := MatchResults.Groups['p1'].Value + MatchResults.Groups['p2'].Value + MatchResults.Groups['p3'].Value;
    end
    else begin
    // Match attempt failed
    end
    except
    on E: ERegularExpressionError do begin
    // Syntax error in the regular expression
    end;
    end;

  3. #3

    نقل قول: عملیات پیشرفته Replace در فایل متنی

    بسیار عالی
    خیلی ممنون به خاطر سرنخ خیلی خوبی که دادی.


    هر چند با سرچی که من زدم، کدینگ regular expression در دلفی به شکل زیر هست:
    Capture.jpg
    کد HTML:
    http://docwiki.embarcadero.com/RADStudio/Rio/en/Regular_Expressions

  4. #4

    نقل قول: عملیات پیشرفته Replace در فایل متنی

    من بعد از یه جستجوی کوچیک یه همچین کدی رو برای دلفی تهیه کردم:


    procedure TForm1.FindStyle(searchMe : string);
    var
    RegEx: TRegEx;
    Match: TMatch;
    Group: TGroup;
    I: integer;
    begin
    RegEx := TRegEx.Create(Edit1.Text, [roIgnoreCase,roMultiline]);
    Match := RegEx.Match(searchMe);
    if not Match.Success then
    begin
    // Memo2.Lines.Add('No Match Found');
    exit;
    end;


    while Match.Success do
    begin
    Memo2.Lines.Add('Match: [' + Match.Value + ']');
    if Match.Groups.Count > 1 then
    begin
    for I := 1 to Match.Groups.Count -1 do
    Memo2.Lines.Add(' Group[' + IntToStr(i) + ']: [' + Match.Groups.Item[i].Value + ']');
    end;
    Match:= Match.NextMatch;
    end;
    end;





    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
    I: Integer;
    S: String;
    begin
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
    S:= Memo1.Lines[I];
    FindStyle(S);
    end;
    end;





    در این کد، experssion موجود در Edit1 رو در محتوای Memo1 جستجو می کنه و نتیجه رو در Memo2 نمایش میده.
    برای همون مثال قبل، من با کد به نتیجه رسیدم:
    (?<G1>\d\d) (?<G2>\N) (?<G1>\d\d\d)



    اما در این بین به یه مشکلی برخوردم. وقتی برای تست، متن اولیه رو شماره پلاک ماشین قرار دادم، اعداد بعد از حرف «ع»، به صورت فارسی نوشته شدند که در سرچ، پیدا نشدند:

    Sheme.jpg

    هر چند جابجایی ارقام، فقط در ظاهر هست و در باطن به همون فرمت پلاک هست؛ اما مشکل اصلی در فارسی شدن ارقام هست که کلا محدوده جستجو رو خیلی پیچیده می کنه.
    عکس های ضمیمه عکس های ضمیمه

  5. #5
    کاربر دائمی
    تاریخ عضویت
    تیر 1391
    پست
    1,021

    نقل قول: عملیات پیشرفته Replace در فایل متنی

    نقل قول نوشته شده توسط hamedjim مشاهده تاپیک
    من بعد از یه جستجوی کوچیک یه همچین کدی رو برای دلفی تهیه کردم:


    procedure TForm1.FindStyle(searchMe : string);
    var
    RegEx: TRegEx;
    Match: TMatch;
    Group: TGroup;
    I: integer;
    begin
    RegEx := TRegEx.Create(Edit1.Text, [roIgnoreCase,roMultiline]);
    Match := RegEx.Match(searchMe);
    if not Match.Success then
    begin
    // Memo2.Lines.Add('No Match Found');
    exit;
    end;


    while Match.Success do
    begin
    Memo2.Lines.Add('Match: [' + Match.Value + ']');
    if Match.Groups.Count > 1 then
    begin
    for I := 1 to Match.Groups.Count -1 do
    Memo2.Lines.Add(' Group[' + IntToStr(i) + ']: [' + Match.Groups.Item[i].Value + ']');
    end;
    Match:= Match.NextMatch;
    end;
    end;





    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
    I: Integer;
    S: String;
    begin
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
    S:= Memo1.Lines[I];
    FindStyle(S);
    end;
    end;





    در این کد، experssion موجود در Edit1 رو در محتوای Memo1 جستجو می کنه و نتیجه رو در Memo2 نمایش میده.
    برای همون مثال قبل، من با کد به نتیجه رسیدم:
    (?<G1>\d\d) (?<G2>\N) (?<G1>\d\d\d)



    اما در این بین به یه مشکلی برخوردم. وقتی برای تست، متن اولیه رو شماره پلاک ماشین قرار دادم، اعداد بعد از حرف «ع»، به صورت فارسی نوشته شدند که در سرچ، پیدا نشدند:

    Sheme.jpg

    هر چند جابجایی ارقام، فقط در ظاهر هست و در باطن به همون فرمت پلاک هست؛ اما مشکل اصلی در فارسی شدن ارقام هست که کلا محدوده جستجو رو خیلی پیچیده می کنه.
    می توانید بجای d\ تمامی ارقام قابل قبول رو مشخص کنید، گروه دومی ارقام عربی و گروه سوم ارقام فارسی :

    [0-9٠-٩۰-۹]

    بصورت غیر فشرده :

    [0123456789٠١٢٣٤٥٦٧٨٩۰۱۲۳۴۵۶۷۸۹]

  6. #6

    نقل قول: عملیات پیشرفته Replace در فایل متنی

    ممنون. خیلی خیلی مفید بود.

    فقط یه سوال دیگه. برای Replace کردن چه متودی رو باید استفاده کرد.
    فرض کنید در runtime می خوایم تاریخ های یک متن رو که به صورت YYYY/MM/DD‌ هست رو به شکل MM-DD-YY‌ نمایش بدیم. اول کد پیدا کردن تاریخ رو به شکل زیر تعریف می کنیم:
    (?<Year>\d\d\d\d)/(?<Month>\d\d)/(?<Day>\d\d)


    برای replace کردن به صورت runtime باید چه کاری انجام بدیم؟
    آخرین ویرایش به وسیله hamedjim : جمعه 15 آذر 1398 در 11:11 صبح

تاپیک های مشابه

  1. سوال: مشکل در تابع Replace
    نوشته شده توسط omid93gh در بخش برنامه نویسی در 6 VB
    پاسخ: 7
    آخرین پست: شنبه 28 آذر 1394, 02:17 صبح
  2. Search & replace از نوع پیشرفته و دقیق و مطمئن
    نوشته شده توسط freeman99 در بخش PHP
    پاسخ: 2
    آخرین پست: دوشنبه 18 اسفند 1393, 09:05 صبح
  3. سوال: تابع Replace
    نوشته شده توسط Mr.305 در بخش برنامه نویسی در 6 VB
    پاسخ: 6
    آخرین پست: یک شنبه 23 شهریور 1393, 23:36 عصر
  4. سوال: Replace پیشرفته
    نوشته شده توسط قله بلند در بخش Access
    پاسخ: 1
    آخرین پست: یک شنبه 25 خرداد 1393, 11:41 صبح
  5. پیش فرض Replace و InStr
    نوشته شده توسط aleas2 در بخش برنامه نویسی در 6 VB
    پاسخ: 3
    آخرین پست: چهارشنبه 08 آذر 1391, 23:03 عصر

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •