求一个函数.100分

Question

效果是这样的
content:='sdkd中国你号遵守中华人民共和国有关法律、法规,尊重网上道德) tiandi123'content:=getcontent(content,'中国',123)最后content的值为 "你号遵守中华人民共和国有关法律、法规,尊重网上道德) tiandi"求getcontent函数的正确答案.ps:content里面可能含有换行 等不可见字符.谢谢各位了.在线等.

Answer 1

content:=getcontent(content,'中国',123)写错了.应该是 content:=getcontent(content,'中国','123')

Answer 2

你试试：
function TForm1.getcontent(str1, str2, str3: String): String;
begin
  result:=copy(str1,Pos(str2,str1)+Length(str2),length(str1)-Pos(str2,str1)-Length(str2)+1);
  result:=stringReplace(result,str3,'',[]);
end;

Answer 3

function getcontent(content,startstr,endstr:string):string;
var
  p1,p2:integer;
begin
  p1:=pos(content,startstr);
  p2:=pos(content,endstr);
  value:=copy(content,p1+length(startstr)+1,p2-1);
end;
没有测试,随想随写的.

Answer 4

xxmmmx(踢踏) 结束关键字后面的字符串不能完全虑掉...

Answer 5

mrzho(mrzhou) 你的函数取不到...

Answer 6

xxmmmx(踢踏) 
是删除第一个key之前和key1
同时删除key2和key2之后的内容

Answer 7

那你举例子也该举的好一点。function TForm1.getcontent(str1, str2, str3: String): String;
begin
  result:=copy(str1,Pos(str2,str1)+Length(str2),length(str1)-Pos(str2,str1)-Length(str2)+1);
  result:=copy(result,1, pos(str3,result)-1);
  //result:=stringReplace(result,str3,'',[]);
end;