\/\/ \u628a\u6240\u6709&xxx\u7684\u8f6c\u4e49\uff1b\u6240\u6709<xxx>\u53d6\u6d88\uff1b\u5176\u5b83\u7167\u6837\u8fd4\u56de
function ConvertHTMLToken(const s:string;var inPre:boolean):string;
var
s0,s0_2,s0_3,s0_4:string;
begin
if s='' then
begin
result:='';
exit;
end;
if s[1]='&' then
begin
s0:=lowerCase(s);
result:='';
if s0=' ' then result:=' '
else if s0='"' then result:='"'
else if s0='>' then result:='>'
else if s0='<' then result:='<'
else if s0='·' then result:='\u00b7'
else if s0='™' then result:=' TM '
else if s0='©' then result:='(c)'
else if s0='®' then result:='(R)'
else if s0='&' then result:='&';
end
else if s[1]='<' then
begin
s0:=lowerCase(s);
s0_2:=copy(s0,1,2);
s0_3:=copy(s0,1,3);
s0_4:=copy(s0,1,4);
result:='';
\/\/ \u5c06\u6240\u6709<hr>\u66ff\u6362\u6210\u4e3a'——'
if s0='<br>' then result:=CR
else if s0_4='<pre' then \/\/ <pre \u4e00\u5b9a\u8981\u5728 <p \u4e4b\u524d\u5224\u65ad\uff01
begin inPre:=true;result:=CR; end
else if s0_2='<p' then result:=CR+CR
else if s0_3='<hr' then result:=CR+MakeStr('-',40)+CR
else if s0_3='<ol' then result:=CR
else if s0_3='<ul' then result:=CR
else if s0_3='<li' then result:='\u00b7'
else if s0_4='<\/li' then result:=CR
else if s0_4='<\/tr' then result:=CR
else if s0='<\/td>' then result:=#9
else if s0='<title>' then result:='\u300a'
else if s0='<\/title>' then result:='\u300b'+CR+CR
else if s0='<\/pre>' then inPre:=false
else if copy(s0,1,6)='<table' then result:=CR
else if MarkLinks and (s0[2]='a') then
begin
CurrLink:=GetLink(s);
if CurrLink<>'' then result:='[';
end
else if MarkLinks and (s0='<\/a>') then
if CurrLink<>'' then result:=format(' %s ]',[CurrLink]);
end
else if inPre then
result:=s
else \/\/ \u4e0d\u5728<pre>..<\/pre>\u5185\uff0c\u5219\u5220\u9664\u6240\u6709CR
result:=ReplaceStr(s,CR,'');
end;<\/p>\n
begin
s0:=UnixToDos(HTMLText);
result:='';
InputLen:=length(s0);
InputIdx:=1;
inPre:=false;
CurrLink:='';<\/p>\n
while InputIdx<=InputLen do
begin
NextToken:=GetNextToken(s0,InputIdx);<\/p>\n
\/\/ \u53bb\u9664<style …> — <\/style>\u4e4b\u95f4\u7684\u5185\u5bb9
if lowercase(copy(NextToken,1,6))='<style' then
begin
while lowercase(NextToken)<>'<\/style>' do
begin
inc(InputIdx,length(NextToken));
NextToken:=GetNextToken(s0,InputIdx);
end;
inc(InputIdx,length(NextToken));
NextToken:=GetNextToken(s0,InputIdx);
end;<\/p>\n
\/\/ \u53bb\u9664<Script …> — <\/Script>\u4e4b\u95f4\u7684\u5185\u5bb9
if lowercase(copy(NextToken,1,7))='<script' then
begin
inc(InputIdx,length(NextToken));
inQuot:=false;
i:=InputIdx-1;
while I<InputLen do
begin
inc(i);
if s0[i]='"' then
begin
inQuot:=not inQuot;
continue;
end;
if not inQuot then
\/\/ \u53bb\u9664<script>\u6bb5\u91cc\u7684<!– … –>\u6ce8\u91ca\u6bb5, 99.8.2
if copy(s0,i,4)='<!–' then
begin
HelpIdx:=pos('–>',copy(s0,i+4,MaxInt));
if HelpIdx>0 then
begin
&
\nnbsp; inc(i,4+HelpIdx+2);
end
else
begin
i:=InputLen;
break;
end;
end;
if lowercase(copy(s0,i,9))='<\/script>' then
begin
break;
end;
end;
InputIdx:=i;
end;<\/p>\n
NextToken:=GetNextToken(s0,InputIdx);
inc(InputIdx,length(NextToken));
result:=result+ConvertHTMLToken(NextToken,inPre);
end;
end;<\/p>\n","protected":false},"excerpt":{"rendered":"
\/\/ \u628a\u6240\u6709&xxx\u7684\u8f6c\u4e49\uff1b\u6240\u6709<…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_lmt_disableupdate":"","_lmt_disable":"","footnotes":""},"categories":[104],"tags":[],"class_list":["post-651","post","type-post","status-publish","format-standard","hentry","category-technogy"],"_links":{"self":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/651","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=651"}],"version-history":[{"count":0,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/651\/revisions"}],"wp:attachment":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=651"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=651"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=651"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}