String içinden bir parçayı alma

[ertline]

S.A. Arkadaşlar,
bir edit in içine "C:\program\db\data.fdb" bu veriyi yazdırıyorum bu verinin içinden "data" yazan kısmı nasıl alıpta başka bir edit içine yazdırabilirim.Bu "data" şirket ismini temsil ediyor yani farklı isimlerde olabilir.(örn:ayyildiz,sirket1,sirket2..)gibi .

C:\program\db\ "seçilecek string".fdb koyu yazıyı nasıl seçipte farklı bir editin içine yazdırabilirim.

Hayırlı çalışmalar..

[hdayi]

Az önce yazıyordum, ne oldu anlamadım. Neyse...

Copy ve Pos senin işini görür. Bunları bi ara.

Kod: Tümünü seç

path='C:\program\db\data.fdb';
txt:=Copy(Path,Pos('\',Path)+1,Pos('.',path)- Pos('\',Path)-1);

Gibi bişey olması lazım. Deneyemiyorum şu an.

Kolay Gelsin...

[Hakan Can]

Şu fonksiyonu kullanabilirsin:

Kod: Tümünü seç

function ExtractFileNameWithoutExtension(const aPathAndFileName: string): string;
begin
  Result := ExtractFileName(aPathAndFileName);
  Result := System.Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result)));
end;

İyi çalışmalar.

[ertline]

Hdayi hocam sonuc "Zytin_prog\db\data" bu şekilde döndü.
bana sadece data yazan yer lazım forumda aradım ama istediğim gibi malesef yok.Yardımcı olursanız sevinirim.

Hayırlı çalışmalar.

[ylmz]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  arananstr,Str: String;
  mypos: Integer;
begin
  Str := 'C:\program\db\data.fdb';  //aranacak string
  mypos := Pos('\', Str);
  while (Pos('\', Str) > 0) do
  begin
    mypos := Pos('\', Str);
    Str[mypos] := 'x';
  end;
  arananstr := copy(Str, mypos + 1, length(str) - mypos - 4);
end;

[hdayi]

Hocam birden fazla "\" olduğu için yanlış dönmüş tabi. En son "\" ı bulman lazım. Ancak @Hakan Can'ın önerdiği yol güzel, hoşuma gitti. Bi onu dene.

Kolay Gelsin...

[ertline]

Teşekkürler arkadaşlar yılmaz beyin verdiği örnek çalışıyor.
Tam istediğim gibi.
Allah Razı Olsun..

Hayırlı çalışmalar

[Hakan Can]

@ertline benim verdiğim örnek çalışmadı mı?

[aLonE CoDeR]

Bu tür parserler iyi analiz edilmediğinde kimi zaman hatalı sonuçlar döndürebilir.Delphi'de, verilen bir dosya isminin (pathiyle birlikte..) analizini sağlayan, yani cürücü harfini, klasör hiyerarşisini, dosya adını, uzantısını vs.hazır fonksiyonlar var..Şu an tam olarak syntaxlarını hatırlayamadım ama kullanılmasını salık veririm.

Kolay gele..