\u4ee5\u4e0b\u662f\u5927\u5bcc\u7fc1cee\u5199\u7684\u4e00\u4e2a\u5b9e\u7528\u51fd\u6570\uff0c\u5b9e\u73b0HTML\u5230TXT\u683c\u5f0f\u7684\u8f6c\u6362\u3002
\u4ee5\u4e0b\u8fc7\u7a0b\u7ecf\u8fc7\u4e86\u51e0\u5e74\u7684\u65e0\u6570\u7684\u6d4b\u8bd5\uff0c\u7a33\u5b9a\u6027\u76f8\u5f53\u597d\u3002\u8f93\u51fa\u7684\u7ed3\u679c\u4e5f\u8f83\u7f8e\u89c2\u3002<\/p>\n
function HtmlToTxt(const HTMLText:string;MarkLinks:boolean):string;
const
CR=#13#10;
var
NextToken,s0:string;
i:integer;
HelpIdx:integer;
inQuot:boolean; \/\/ \u53bb\u9664<script>\u6bb5\u4e4b\u7528
InputLen:integer;
InputIdx:integer; \/\/ \u6307\u5411\u8f93\u5165\u5b57\u7b26\u7684\u4e0b\u4e00\u4e2a\u5f85\u5904\u7406\u5b57\u7b26
inPre:boolean; \/\/ \u8868\u793a\u662f\u5426\u5728<pre>…<\/pre>\u6bb5\u5185
CurrLink:string;<\/p>\n
function MakeStr(C: Char; N: Integer): string;
begin
if N < 1 then Result := ''
else begin
{$IFNDEF WIN32}
if N > 255 then N := 255;
{$ENDIF WIN32}
SetLength(Result, N);
FillChar(Result[1], Length(Result), C);
end;
end;<\/p>\n
function NPos(const C: string; S: string; N: Integer): Integer;
var
I, P, K: Integer;
begin
Result := 0;
K := 0;
for I := 1 to N do begin
P := Pos(C, S);
Inc(K, P);
if (I = N) and (P > 0) then begin
Result := K;
Exit;
end;
if P > 0 then Delete(S, 1, P)
else Exit;
end;
end;<\/p>\n
function ReplaceStr(const S, Srch, Replace: string): string;
var
I: Integer;
Source: string;
begin
Source := S;
Result := '';
repeat
I := Pos(Srch, Source);
if I > 0 then begin
Result := Result + Copy(Source, 1, I – 1) + Replace;
Source := Copy(Source, I + Length(Srch), MaxInt);
end
else Result := Result + Source;
until I <= 0;
end;<\/p>\n
function UnixToDos(const s:string):string;
begin
result:=AdjustLineBreaks(s);
end;<\/p>\n
\/\/ \u53d6\u5f97\u4e0b\u4e00\u6bb5\u5b57\u7b26\u4e32
function GetNextToken(const s:string; const StartIdx:integer):string;
var
i:integer;
begin
if StartIdx>length(s) then
begin
result:='';
exit;
end;
result:=s[StartIdx];
if result='&' then
begin
for i:=StartIdx+1 to length(s) do
begin
if s[i] in ['&',' ',#13,'<'] then break;
result:=result+s[i];
if s[i]=';' then break;
end;
end
else if result='<' then
begin
for i:=StartIdx+1 to length(s) do
begin
result:=result+s[i];
if s[i]='>' then break;
end;
end
else
begin
for i:=StartIdx+1 to length(s) do
if s[i] in ['&','<'] then break
else result:=result+s[i];
end;
end;
\/\/ \u8f93\u5165\uff1a<a href="http:\/\/anjo.delphibbs.com">
\/\/ \u8f93\u51fa\uff1ahttp:\/\/anjo.delphibbs.com
function GetLink(s:string):string;
var
LPos,RPos,LQuot,RQuot:integer;
begin
result:='';<\/p>\n
\/\/ \u53bb\u6389'….<'
LPos:=pos('<',s);
if LPos=0 then exit;
delete(s,1,LPos);
s:=Trim(s);<\/p>\n
\/\/ \u53bb\u6389'>….'
RPos:=pos('>',s);
if RPos=0 then exit;
delete(s,RPos,MaxInt);<\/p>\n
if uppercase(copy(s,1,2))='A ' then
begin
LPos:=pos('HREF',uppercase(s));
if LPos=0 then exit;<\/p>\n
LQuot:=NPos('"',s,1);
RQuot:=NPos('"',s,2);<\/p>\n
if (LQuot<LPos) or (RQuot>RPos) then exit;<\/p>\n
\/\/ \u5f00\u5934\u5e26'#'\u7684\u8d85\u94fe\u63a5\uff0c\u89c6\u4e3a\u65e0\u6548
if s[LQuot+1]='#' then exit;<\/p>\n
\/\/ \u5f00\u5934\u5e26'javascript:'\u7684\u8d85\u94fe\u63a5\uff0c\u4e5f\u89c6\u4e3a\u65e0\u6548
\/\/ \u5982\uff1a<div align=right><a href="javascript:window.close()"><IMG SRC="button_close.gif"><\/a><\/div>
if copy(s,LQuot+1,11)='javascript:' then exit;<\/p>\n
result:=copy(s,LQuot+1,RQuot-LQuot-1);
end;
end;<\/p>\n","protected":false},"excerpt":{"rendered":"
\u4ee5\u4e0b\u662f\u5927\u5bcc\u7fc1cee\u5199\u7684\u4e00\u4e2a\u5b9e\u7528\u51fd\u6570\uff0c\u5b9e\u73b0HTML\u5230TXT\u683c\u5f0f…<\/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-650","post","type-post","status-publish","format-standard","hentry","category-technogy"],"_links":{"self":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/650","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=650"}],"version-history":[{"count":0,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/650\/revisions"}],"wp:attachment":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=650"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=650"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=650"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}