Pos, SplitString

[Henry Olive 5]

Good Day,

MyString could be  'Aaaa Bbbb <Axx Bxx>'  or just  '<Axx Bxx>'

In any case i'd like delete just the part of  <Axx Bxx> (Including < and >)

What is the shortest way ?

 

Thank You

[Lars Fosdal 1782]

Result := MyString
StartPos := Pos('<', Result);
if StartPos > 0
 then  Delete(Result, StartPos, Pos('>', Result) - StartPos + 1); 

Something like this?
Note that it doesn't handle a missing '>', nor does it trim. 

[Remy Lebeau 1370]

3 hours ago, Lars Fosdal said:

Delete(Result, StartPos, Pos('>', Result) - StartPos + 1); 

 

Minor nitpick - you should pass in StartPos as a 3rd parameter to the 2nd Pos() call:

Delete(Result, StartPos, Pos('>', Result, StartPos+1) - StartPos + 1)

You might also want to Trim/Right() the Result after deleting the characters.

[David Heffernan 2344]

What do you mean by "shortest"? 

[Remy Lebeau 1370]

If the '<...>' is always at end of the string then you could just SetLength() the string to truncate it, eg:

Result := MyString;
StartPos := Pos('<', Result);
if StartPos > 0 then begin
  SetLength(Result, StartPos - 1); 
  Result := TrimRight(Result);
end;

 

[corneliusdavid 207]

If by "shortest" you're trying to keep it to one line, this will work (you have to use the Math and StrUtils units):

Result := IfThen(Pos('<', MyStr) > 0, Trim(LeftStr(MyStr, Pos('<', MyStr) - 1)), MyStr);

 

[Lars Fosdal 1782]

@corneliusdavid I replaced shortest with most readable years ago. 😛

 

[corneliusdavid 207]

2 minutes ago, Lars Fosdal said:

I replaced shortest with most readable years ago

I agree it's not near as readable. But it was sure fun to see if I could do it!

[Uwe Raabe 2045]

It could be even shorter:

Result := MyStr.Remove(MyStr.IndexOf('<')).Trim;

No need to check for existence as the internally called _UStrDelete already handles that case pretty well.

[corneliusdavid 207]

6 hours ago, Uwe Raabe said:

No need to check for existence as the internally called _UStrDelete already handles that case pretty well.

Ah Yes! I love it!

[Lars Fosdal 1782]

6 hours ago, Uwe Raabe said:

It could be even shorter:

Result := MyStr.Remove(MyStr.IndexOf('<')).Trim;

No need to check for existence as the internally called _UStrDelete already handles that case pretty well.

Ok, that is pretty neat!

[pmcgee 10]

 

   Result  := MyStr.Split( ['<'] ) [0];