教你做干扰码和用WORD快速清除干扰码

时间：2009-01-02 23:39:35 作者：officeba 【认证】

我们平时在一些论坛看到对自己有实际用途的帖子内容时，都想复制下来保存，但经常发现莫名其妙夹杂着一些乱七八糟的乱码呢，这些乱码我们称为“干扰码”。我们在好奇他们如何产生的同时也很烦这些影响美观的乱码。OFFICEBA就是为大家解除这个疑问，不仅教大家自己设计干扰码，也同时教大家如何用WORD2007快速删除干扰码！

先说说如何制作干扰码！

下边自定义了一个VBScript干扰码产生函数：程序代码<script language="VBScript">function getcode(icolor)Dim iLen,irandomizeiLen = int(31*rnd+20) '设置干扰码长度，范围[20,50]for i = 1 to iLen randomize getcode = getcode & chr(int(127*rnd+1))nextgetcode = replace(getcode,"<","")getcode = replace(getcode,">","")getcode = "<span style=""font-size:0px;color:bgcolor"">" & getcode & "</span>" '只能置于段尾'getcode = "<span style=""display:none"">" & getcode & "</span>" '可置于任意位置end function</script>干扰码应放在什么地方呢？有两种做法。常见的是放在每个段落后面，将"<br/>"替换成"干扰码+<br/>"，这也是为什么要用style="font-size:0px;color:bgcolor"；另一种方法是随机的在文章中放置，此时必须用style="display:none"。示例一： HTML代码<script language="vbscript">'*******************************************'产生干扰码函数'*******************************************function mzcode()Dim iLen,irandomizeiLen = int(31*rnd+20) '设置干扰码长度，范围[20,50]for i = 1 to iLenrandomizemzcode = mzcode & chr(int(127*rnd+1))nextmzcode = replace(mzcode,"<","")mzcode = replace(mzcode,">","")mzcode = "<span style=""display:none"">" & mzcode & "</span>"end function'*******************************************'寻找<brbr/>个数'*******************************************function mzbr(temp)Dim ii = 1mzbr = 0do while i <> 0i = instr(i,temp,"<brbr/>",1)if i <> 0 then mzbr = mzbr + 1 i = i + 1end ifloopend functionDim str,istr = "我是中国<brbr/>人aaaa我是中<brbr/>国人aaa我是中国人<brbr/>aa"For i = 1 to mzbr(str)str = replace(str,"<brbr/>",mzcode,1,1,1)NextDocument.write str</script>示例二： HTML代码<script language="vbscript">'*******************************************'产生干扰码函数'*******************************************function mzcode()Dim iLen,irandomizeiLen = int(31*rnd+20) '设置干扰码长度，范围[20,50]for i = 1 to iLenrandomizemzcode = mzcode & chr(int(127*rnd+1))nextmzcode = replace(mzcode,"<","")mzcode = replace(mzcode,">","")mzcode = "<span style=""display:none"">" & mzcode & "</span>"end function'*******************************************'插入干扰码'*******************************************Const iMzcode = 20 '设置干扰字符串个数function mzcode2(content)Dim t_c,iLen,i,j,contentL,contentRt_c = contentFor i = 1 to iMzcodeiLen = Len(t_c)randomizej = int(iLen*rnd+1)if asc(mid(t_c,j,1))<0 then contentL = left(t_c,j) contentR = right(t_c,iLen - j) t_c = contentL & "↓" & contentRend ifNextFor i = 1 to iMzcodet_c = replace(t_c,"↓",mzcode,1,1,1)Nextmzcode2 = t_cend functionDim strstr = "我是中国人aaaa我是中国人aaa我是中国人aa"document.write mzcode2(str)</script>后记：仔细看上边几个函数产生的干扰码，它们的位置是有规律的：为了不影响阅读就必须将干扰码置于font或span标签中。这样有规律很容易就能用正则表达式将其替换，干扰效果也随之打了个折扣。
俗话说道高一尺魔高一丈，你能产生干扰码，我就能删除干扰码！我们就利用WORD的查找替换功能来去之而后快。以WORD2007为例：
点击编辑菜单里的查换替换，或直接按CTRL+H，打开查找替换框！再点击“更多”按钮，将对话框展开，（其它版本可能有所区别，象WORD2003是“高级”这个按键）接着，将光标定位到查找文本框中，然后单击“格式”按钮，在弹出的菜单中选择“字体”命令，打开“查找字体”对话框，字体颜色选择“白色”，，这时查找内容的格式项就会显示“字体颜色白色”字样，同样的操作可以用到替换内容框。利用这一功能　就可以快速删除干扰码！
大家可以看看WORD2007相关查找替换文章：

Word2007/2003中利用“查找和替换”批量设置文字格式418