HTML內容加工處理方法小試

2021-10-22 15:03:57 字數 2373 閱讀 8624

需要處理點html內容,幾個大家都熟知的軟體使用、學習費時,自己寫了兩個函式。

處理html內容就是找標籤,剔除,拿到需要的。作為碼農,求人哪如求己。

太簡單,無需正則介入。

//處理:或 形式內容

function rep1(c,tag,new:string):string;

c:內容

tag:標籤,p div span 等

new:替換的新內容

返回想要的內容。

//處理:形式內容

function rep2(c,tag,new:string;deletedcontent:boolean=false):string;

c:內容

tag:標籤,p div span 等

new:替換的新內容

deletedcontent:是否刪除改標籤內容,預設否。

返回想要的內容。

function rep1

(c, tag,

new: string)

: string;

var p1,p2:integer;

s:string;

begin

result:= c;

p1:=

pos(

'<'

+tag,c)

; while (p1 >

0) do

begin

p2:=

pos(

'>'

,copy

(result,p1));

if p2<

1 then

p2:=

pos(

'/>'

,copy

(result,p1));

if p2>

0 then

begin

s:=copy

(result,p1,p2)

; result:=

stringreplace

(result,s,

new,

[rfreplaceall, rfignorecase]);

end;

p1:=

pos(

'<'

+tag,result)

; end;

end;

function rep2

(c, tag,

new: string;deletedcontent:boolean)

: string;

var p1,p2:integer; s:string;

begin

result:= c;

p1:=

pos(

'<'

+tag,c)

; while (p1 >

0) do

begin

if not deletedcontent then

begin

p2:=

pos(

'>'

,copy

(result,p1));

if p2>

0 then

begin

s:=copy

(result,p1,p2)

; result:=

stringreplace

(result,s,'',

[rfreplaceall, rfignorecase]);

result:=

stringreplace

(result,

'+tag+

'>'

,new

,[rfreplaceall, rfignorecase]);

end;

endelse

begin

p2:=

pos(

'+tag+

'>'

,copy

(result,p1));

if p2>

0 then

begin

s:=copy

(result,p1,p2+

length

(tag)+2

);result:=

stringreplace

(result,s,'',

[rfreplaceall, rfignorecase]);

end;

end;

p1:=

pos(

'<'

+tag,result)

; end;

end;

以上為delphi實現。

@2021-03-19

CSS隱藏div及html內容方法

網頁製作中我們經常會人為的隱藏一些網頁元素,比如站長統計的圖示,或者滑鼠滑過隱藏效果,現在我們來講講css如何隱藏div及html內容。css隱藏div盒子及html內容方法 html中怎麼使用css樣式隱藏內容,又不影響 功能使用。我們常常想隱藏一些內容,比如 新增第三方統計顯示的圖示,如何通過c...

php 處理html標籤的方法

清除空格和換行 str trim str 清除字串兩邊的空格 str strip tags str,利用php自帶的函式清除html格式 str preg replace t str 使用正規表示式替換內容,如 空格,換行,並將替換為空。str preg replace r n str str pr...

PHP處理postfix郵件內容的方法

email fd fopen php stdin r while feof fd fclose fd 記錄所有的內容,測試 file put contents tmp mail time email 處理郵件程式設計客棧 lines explode n email empty vars from d...