Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Text bis zu letztem Bestimmten Zeichen kürzen


MDX - Di 05.08.08 17:45
Titel: Text bis zu letztem Bestimmten Zeichen kürzen
Wie kann ich machen, das ich aus folgender URL:

Quelltext 
1:
 
http://de.sevenload.com/videos/kcjxsmba-Miley-Cyrus-7-Things-Official-Music-Video-HQ

das machen kann:

Quelltext 
1:
 
kcjxsmba

also die URL ist nicht immer gleich

man müsste also ab dem letzten "/" bis zum 1. "-" machen, wie geht das?

THX

Moderiert von user profile iconNarses: überflüssige Leerzeilen entfernt


SAiBOT - Di 05.08.08 17:50

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
 
function GetPiece(Source, Praefix, Suffix: String):String;
var
  pos1,restc,resc: Integer;
  rest:String;
begin
  if Praefix = #00 then
    pos1 := 0
  else
    pos1  := Pos(Praefix, Source)+Length(Praefix);
  restc := Length(Source)-Pos1+1;
  rest  := Copy(Source, pos1, restc);
  resc  := Pos(Suffix, rest);
  if resc = 0 then
    Result := rest
  else
    Result := Copy(rest, 0, resc-1);
end;

var
  vid:String;

////////////
vid := Getpiece('http://de.sevenload.com/videos/kcjxsmba-Miley-Cyrus-7-Things-Official-Music-Video-HQ', 
         'videos/', '-'));


MDX - Di 05.08.08 19:32
THX, funktioniert ohne Probs! :zustimm: :zustimm: :zustimm: :zustimm: :zustimm: :zustimm: :zustimm:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!