首页 > 单独文章 > 正文

教你做干扰码和用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>后记:仔细看上边几个函数产生的干扰码,它们的位置是有规律的:为了不影响阅读就必须将干扰码置于fontspan标签中。这样有规律很容易就能用正则表达式将其替换,干扰效果也随之打了个折扣。
俗话说道高一尺魔高一丈,你能产生干扰码,我就能删除干扰码!我们就利用WORD的查找替换功能来去之而后快。以WORD2007为例:
点击编辑菜单里的查换替换,或直接按CTRL+H,打开查找替换框!再点击“更多”按钮,将对话框展开,(其它版本可能有所区别,象WORD2003是“高级”这个按键)    接着,将光标定位到查找文本框中,然后单击“格式”按钮,在弹出的菜单中选择“字体”命令,打开“查找字体”对话框,字体颜色选择“白色”,,这时查找内容的格式项就会显示“字体颜色白色”字样,同样的操作可以用到替换内容框。利用这一功能 就可以快速删除干扰码!
大家可以看看WORD2007相关查找替换文章:

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

解决Word2007/2003替换时的“反引号”问题225

为Word2007全文替换半角引号 295

巧用格式替换特殊任务一键搞定171

Word2007日期格式批量“替换” 225

在Word2007中键入内容替换所选文字 222

Word2007搜索代码之“查找内容”和“替换为”代码 214

Word2003中剪贴板快速替换上(下)标 230

EXCEL函数(查找替换类)的应用 832

Word2007文档处理中的“替换”技巧 226

在Word2007中如何替换为彩色文字486

用更高版本的模板部件替换现有模板部件37

用更高版本的模板部件替换现有模板部件22

在office 2007中查找和替换印度语、东南亚语或从右到左语言的字符概述101

Word技巧大集合之使用通配符进行模糊替换 340

Word中妙用查找替换功能来制作试卷98


相关文章

同类最新