需要處理點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...