Udskær ting fra string

kig på pos og copy

frit fra leveren:

function getOptionText(option) : string;
var
  pos1,pos2 : integer;
begin
  pos1 := Pos(option,\'>\');
  pos2 := Pos(option,\'</\');

  result := Copy(option,pos1+1,pos2-pos1+1);
end;

function getOptionText(option : string) : string;

men som gusse foreslår skal du ta og kigge på pos() og copy() funktionerne, da ovenstående svar er meget specifikt. Det kunne jo være du ville hente value-værdie ud istedet...

rendte lige på en fejl... hvordan udskifter jeg dele af strengen med min egen tekst?

var pos1 : integer;
var s : string;

begin
  s = \'henrik havde en hest\';
  pos1 = Pos(s,\'hest\');
  Delete(s,pos1,4); // hest er 4 karaterer langt
  Insert(\'dims\',s,pos1);

  ShowMessage(s);
end;


jeg kan ikke lige huske parametreringen af Insert() funktioenen...

ehhh - fejl:

s :=
pos1 :=

Jeg har lavet 2 functions der kan det:


function TForm1.GetTagText(Tag: string): string;
Var s1:string;
begin
s1 := copy(Tag, pos(\'>\', Tag)+1, pos(\'</\', Tag)-1);
Result := copy(s1, 1, pos(\'</\', s1)-1);
end;
//Sample call:
edit1.Text := GetTagText(\'<option value=2>Her</option>\');


function TForm1.ReplaceTagText(Tag, ReplaceText: string): string;
Var
s2, s3, s4:string;
begin
s2 := Tag;
s3 := Copy(s2, 1, pos(\'>\', s2));
delete(s2, 1, pos(\'>\', s2));
s4 := Copy(s2, pos(\'</\', s2), pos(\'>\', s2));
result := s3+ReplaceText+s4;
end;
//Sample call:
edit1.Text := ReplaceTagText(\'<option value=2>Her</option>\', \'Hej med dig\');


Dennis

Check StringReplace

Har du nogle problemmer???