最佳答案

使用Replace Pioneer更改B目錄下的html標題，使其包含A目錄下相似html標題的詳細步驟如下： 注意：你說的相似標題，因為很難區分關鍵字和非關鍵字，所以這里用字符串相似性函數來實現，凡相似性超過70%的就認為相似。 1. 把A目錄下的所有html文件的title放入系統字典中 (1)ctrl-h打開replace窗口 在search for pattern輸入"<title.*?>(.*?)</title>@"(不帶雙引號) 在replace with pattern輸入"set_value(\\1,1)"(不帶雙引號) (2)點擊Batch打開Batch Runner窗口 把A目錄下的html文件拖拽到Batch Runner窗口中 選中Set output filename選項，把后面的${FILENAME}刪除，即清空 (3)點擊Batch Replace即可。 (4)關閉Batch Runner窗口，把鼠標放到屏幕中間字典的圖標上，能看到網頁標題都收錄了。 2. 對B目錄下的所有html文件的title作修改，使其包含A目錄下相似html標題 (1)ctrl-h打開replace窗口 * 在search for pattern輸入"(<title.*?>)(.*?)(</title>)@"(不帶雙引號) * 在replace with pattern輸入\\1$A\\3(不帶雙引號) 點擊Advanced選項頁: * 在Run following at the beginning of the replace輸入： sub similarity { my ($w1,$w2)=@_; my $l=length($w1)+length($w2); return 0 if ($l==0); return ($l-ldist($w1,$w2))/$l*100; } sub ldist { my @s = split //, shift; my @t = split //, shift; return scalar @t if scalar @s == 0; return scalar @s if scalar @t == 0; my (@prevColumn, @currColumn); @prevColumn = 0..scalar(@t); for my $s (0..$#s) { @currColumn = ( $s + 1 ); for my $t (0..$#t) { push @currColumn, min( $currColumn[$t] + 1 , $prevColumn[$t+1] + 1 , $prevColumn[$t] + ($s[$s] eq $t[$t] ? 0 : 1) ); } @prevColumn = @currColumn; } pop @currColumn } * 在Run following for each matched unit輸入： $A=$var[2]; for(keys %dictionary) { if (similarity($_,$var[2])>70) { $A="$_|$A"; last;} } (2)點擊Batch打開Batch Runner窗口 把B目錄下的html文件拖拽到Batch Runner窗口中 (3)點擊Batch Replace即可。 注意： 1. 一定要提前備份所有待處理的html文件，以防操作失誤。 2. 如有哪步執行有問題請及時與我聯系，不要關閉該問題。 補充： 以下是修正版的similarity函數，把更多無關詞去掉，試試看相似度能否提高？注意你自己要再加詞的話，要把長的詞排在前面才能達到更好的效果。 sub similarity { my ($w1,$w2)=@_; my $common='怎么樣|為什么|最有效|有效果|怎么辦|怎么|效果|如何|怎樣|什么|快速|有效|效果|才能|方法|可以|多少|健康|最好|多長|時間|辦法|哪里|如果|推薦|知道|好嗎|大家|謝謝|問題|最近|而且|產品|作用|牌子|指教|允許|真正|那么|自己|容易|干嘛|好象|辦法|情況|好處|喜歡|東西|做|好|嗎|的|下|哈|啊|最|能|才|去|個|有|假|真|會|誰|太|非|常|能|錢|么|呢|讓|阿|誰|一|兩|個|月'; $w1=~s/$common|\\W+//g; $w2=~s/$common|\\W+//g; my $l=length($w1)+length($w2); return 0 if ($l==0); return ($l-ldist($w1,$w2))/$l*100; }

回答者：plsejfjg2016-01-13 00:00