سلام
نیاز به یه برنامه برای تغییر نام فایلهای شاخه به دسته ای داشتم یه برنامه ساده نوشتم.تستش کردم ان شاء الله درست کار میکنه!!(مثل وقتی توی Total Commander ترکیب Ctrl+M رو فشار میدیم!)
یه برنامه ساده هم میخواستم که با فشاز ترکیب خاصی از کلیدها تصویر پنجره زیر ماوس یا قسمتی قابل انتخاب از دسکتاپ رو بگیره بفرسته به کلیپ برد یا ذخیره کنه!(برای گرفتن تصویر بازی از شبیه ساز بازی موبایل!)
چند تا تابع هم نیاز داشتم که قسمتی از رشته رو بگیرم.(مثلا گرفتن آدرس تصویر از لینک تصویر Google!)
گفتم شاید به درد کسی خورد براتون میذارم:
توابع رشته ای:
Uses
StrUtils;
Function CopyBetween(S,St,En:String):String;
begin
Result:=Copy(S,pos(St,S)+Length(St),pos(En,S)-pos(St,S)-Length(St));
end;
Function CopyAfter(S,St:String):String;
begin
Result:=Copy(S,pos(St,S)+Length(St),Length(S));
end;
Function CopyAfterLastTo(S,St,En:String):String;
Var
N:Word;
begin
N:=Pos(ReverseString(St),ReverseString(S));
Result:=RightStr(S,n-1);
If En<>'' then
Result:=LeftStr(Result,pos(En,Result)-1);
end;
Function LastPos(S,S2:String):Integer;
begin
Result:=Length(S)-
Pos(ReverseString(S2),ReverseString(S))+1;
end;
این هم دو برنامه ذکر شده:
پاسخ با نقل قول
