[+10 Puan] String Manipülasyon İşlemleri

[ismailkocacan]

1. Sağdan N Karakter Alma

function IsoRightStr(Value: string; Count: Integer): string;
begin
 Result := String(PWideChar(Value) + (Value.Length - Count));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption := IsoRightStr('DelphiCan', 3);
end;

---

1. Sağdan N Karakter Alma

unsafe class Program
{
   static string IsoRightStr(string Value, int Count)
   {
       fixed (char* p = Value)
       {
           return new string(p + (Value.Length - Count));
       }
   }

   static void Main(string[] args)
   {
       string result = IsoRightStr("DelphiCan", 3);
       Console.WriteLine(result);
   }
}

Bugünlük bu kadar...

[ssahinoglu]

Bunlar fazla basit gibi geldi.

[Fesih ARSLAN]

(13-11-2018, Saat: 01:07)ssahinoglu Adlı Kullanıcıdan Alıntı: Bunlar fazla basit gibi geldi.

Algoritmanın amacı da bu değil mi? İşi en basite indirgemek.

[sabanakman]

(13-11-2018, Saat: 01:07)ssahinoglu Adlı Kullanıcıdan Alıntı: Bunlar fazla basit gibi geldi.

İyi günler. İşin aslı öncelik sıralamasına göre kodların;
-Doğru çalışması,
-Hızlı çalışması,
-(mümkün olduğu kadar) Kısa yazılmış olması,
-Basit ve okunabilir yazılmış olması
sağlanmalıdır. Bütün bunları sağlayacak en yakın kodlama en iyi kodlamadır denilebilir. Tabi her bir madde ayrı bir boyuta kapı açacağı için meseleler kısaca yazıldığı kadar basit olmayabiliyor . İyi çalışmalar.

[elixir84]

(12-11-2018, Saat: 15:15)yhackup Adlı Kullanıcıdan Alıntı: Bende ek soru sorayım en hızlı cevaplayana +4


verdiğim stringi sağdan veya soldan verdiğim karakter ile tamamlayacak.

function LeftPad(S: string; Ch: Char; Len: Integer): string;
function RightPad(S: string; Ch: Char; Len: Integer): string;

Function tana.StringPad(
  InputStr,//tamamlanacak metin
 FillChar: String;//tamamlama karakteri
 StrLen: Integer;//uzunluk
 StrJustify: Boolean): String;//tamamlama yönü
Var
 TempFill: String;
 Counter : Integer;
Begin
 If Not (Length(InputStr) = StrLen) Then
 Begin
   If Length(InputStr) > StrLen Then
   Begin
     InputStr := copy(InputStr,1,StrLen);
   End
   Else
   Begin
     TempFill := '';
     For Counter := 1 To StrLen-Length(InputStr) Do
     Begin
       TempFill := TempFill + FillChar;
     End;
     If StrJustify Then
     Begin
       InputStr := InputStr + TempFill;
     End
     Else
     Begin
       InputStr := TempFill + InputStr ;
     End;
   End;
 End;
 Result := InputStr;
End;

[Tuğrul HELVACI]

Ben de değişik bir kaç metod yazdım. Onları paylaşayım:

function GetData(const ASource : String; const AStart, ALen : Integer) : String;
var
 ASize,
 AIndex : Integer;
begin
 ASize := ALen;
 AIndex:= AStart;

 if ASource.IsEmpty then
   Exit('');

 if ASize <= 0 then
   Exit('');

 if ASize > ASource.Length then
   ASize := ASource.Length;

 if not AIndex in [1..ASize] then
   AIndex := 1;

 SetLength(Result, ASize);

 Move(ASource[AIndex], Pointer(Result)^, ASize * SizeOf(Char));
end;

function FromRight(const ASource : String; const ALen : Integer) : String;
begin
 Result := GetData(ASource, (ASource.Length - ALen) + 1, ALen);
end;

function FromLeft(const ASource : String; const ALen : Integer) : String;
begin
 Result := GetData(ASource, 1, ALen);
end;

function FromRightEx(const ASource : String; const ALen : Integer) : String;
var
 PCurrent,
 PEnd,
 PTarget : PChar;
begin
 SetLength(Result, ALen);

 PCurrent  := @ASource[(ASource.Length - ALen) + 1];
 PEnd      := @ASource[ASource.Length];
 PTarget   := @Result[1];

 while PCurrent <= PEnd do
 begin
   PTarget^ := PCurrent^;

   Inc(PCurrent);
   Inc(PTarget);
 end;
end;

function FromLeftEx(const ASource : String; const ALen : Integer) : String;
var
 PCurrent,
 PEnd,
 PTarget : PChar;
begin
 SetLength(Result, ALen);

 PCurrent  := @ASource[1];
 PEnd      := @ASource[ALen];
 PTarget   := @Result[1];

 while PCurrent <= PEnd do
 begin
   PTarget^ := PCurrent^;

   Inc(PCurrent);
   Inc(PTarget);
 end;
end;

GetData metodunda bazı güvenlik kontrolleri koydum, diğerlerine de ekleyip eklememek tamamen sizin tasarrufunuz.

[onurcan1977]

En güzel örnekler verilmiş. Benim nacizane katı kod olmadan yaptığım:

procedure TForm1.FormCreate(Sender: TObject);
var
 Str: String;
 TempStr: String;
 Num: Integer;
 Count: Integer;
begin
 Str:='';
 Str:='DelphiCan'; // Girdi
 TempStr:='';
 Count:=3; // Girdi
 Num:=Str.Length - Count + 1;
 while Num <= Str.Length do
 begin
   TempStr:=TempStr + Copy(Str, Num, 1);
   Num:=Num + 1;
 end;
 Label1.Caption:=TempStr;
end;