大家好，我是公众号3分钟学堂的郭立员，今天继续按键精灵安卓版教程的讲解，这一期我们来讲一下怎么用脚本对文章进行伪原创。
伪原创是指把一篇原创的文章进行再加工，使其让搜索引擎认为是一篇原创文章，从而提高网站权重。编辑方法有修改标题是关键和首尾段落总结两种。
分别指数字替换法、词语替换法、文字排序法、首段总结法、尾部总结法、新增加图片、段落替换法、关键词替换添加法。
这玩意其实现在用处不大了，一般是seo用，它就是“骗”搜索引擎（百度、谷歌、360搜索），让搜索引擎以为你发的文章是原创的，以为你的文章有价值，然后给你网页的搜索排名更靠前。
那为啥说它用处不大了呢？
一是搜索引擎（百度、谷歌、360搜索）越来越聪明了，你稍微改动它能判断出来。
二是本身搜索引擎都没有流量了，靠它们吃饭还有啥前途。
伪原创的词语替换法就是用近义词替换，比如：
原文：女人大多都爱购买化妆品。
伪原创：女士很多都喜欢购买护肤品。
这两句话从文字层面是不一样的，但是从句意方面是很相近的，这种就是伪原创。
上面例子我们具体都替换哪些词语呢，我们逐个提取出来：
女人=>女士
大多=>很多
爱=>喜欢
化妆品=>护肤品
一个伪原创工具的近义词“库”里面的词语越多，伪原创的越好。所以我们自己做伪原创脚本的时候，近义词库要不断更新完善。
当然伪原创也有弊端，我们知道中国文字博大精深，有时候稍微改动换词以后，就不像人话了，所以伪原创之后需要稍微读一下，看看有没有明显的语病的地方，如果有手动修改一下。
一、伪原创脚本用到的命令：
（1）for循环，用于遍历所有近义词
（2）replace替换命令，用于近义词的替换
这两个是主要的命令，还有读取文本命令、写入文本命令啥的。
二、脚本思路
（1）先把近义词写入到库（文本）里面。
考虑到文本utf8编码因为bom头会在文字开头有问号，所以文本第一行空着，从第二行开始写。
注意：库里近义词越多越好，如果需要伪原创平时多积累近义词，或者百度去查一下近义词。
（2）读取测试
Dim ku=file.readlines("/sdcard/pictures/伪原创.txt")
For i = 0 To UBOUND(ku)
TracePrint ku(i)
Next
（3）把相近词拆分开
Dim ku=file.readlines("/sdcard/pictures/伪原创.txt")
Dim ci
For i = 1 To UBOUND(ku)
ci = Split(ku(i), "----")
TracePrint ci(0)
TracePrint ci(1)
Next
（4）单向替换
所谓单向替换就是用后面词替换前面的词，比如女人----女士，单向替换，就是只能用女士替换女人。
Dim ku=file.readlines("/sdcard/pictures/伪原创.txt")
Dim str="女人大多都爱购买化妆品。"
Dim ci
For i = 1 To UBOUND(ku)
ci = Split(ku(i), "----")
TracePrint ci(0), ci(1)
str = Replace(str, ci(0), ci(1))
Next
TracePrint str
单向替换是有问题的，会少一半的近义词，所以我们要用双向替换。
（5）双向替换
双向替换，第一反应就是在反向执行一遍近义词替换，就是用前面的词替换后面的词。
思路是对的，但是实际写的时候会有问题。
我们还是以女人和女士这对近义词举例子，比如一篇文章中同时有这两个词语。
如原文：女人和女士是一组近义词。
替换①：女士替换女人
伪原创：女士和女士是一组近义词。
在替换①的基础上做反向替换：
替换②：女人替换女士
伪原创：女人和女人是一组近义词。
经过双向替换以后，我们会发现根本不是我们想要的，我们想要的是：
原文：女人和女士是一组近义词。
伪原创：女士和女人是一组近义词。
那问题出在哪里呢？
出在第一次替换的内容，被二次替换了，实际我们希望的时候，替换完的关键词不会在变化了。
我想到的办法就是把替换后的词“保护”起来，那么怎么保护呢？
用特殊符号把替换后的词语，拆分包裹起来。
比如女士替换女人，我们用※保护起来：
如原文：女人和女士是一组近义词。
保护替换①：女士替换女人
伪原创：※女※士※和女士是一组近义词。
在替换①的基础上做反向替换：
替换②：女人替换女士
伪原创：※女※士※和※女※人※是一组近义词。
TracePrint baohu("abc")
Function baohu(n)
Dim arr()
For i = 1 To UTF8.Len(replace(n," ",""))
arr[i]=UTF8.StrGetAt(n,i)
Next
baohu="※"&join(arr,"※")&"※"
End Function
当全部替换完以后，我们再把※保护去掉，恢复成正常的文章。
这里特别强调一下，用于保护的符号，要非常少见，如果文章有此符号，也会被一并去掉了。
关于file命令，如果你是低版本按键助手，可以直接用，如果你是高版本的按键助手用自带的fileEx命令，防止因为命令bug出现代码不能用的情况。
这里我按键助手的版本是3.6.5，所以我用的是fileEx命令。
Import "fileEx.lua"
Dim ku=fileEx.readlines("/sdcard/pictures/伪原创.txt")
Dim str="女人和女士是一组近义词"
Dim ci,qian,hou,ret
For i = 1 To 1
ci = Split(ku(i), "----")
qian = baohu(ci(0))
hou = baohu(ci(1))
str = Replace(str, ci(0), hou)
str = Replace(str, ci(1), qian)
Next
ret = Replace(str, "※", "")
TracePrint ret
Function baohu(n)
Dim arr()
For i = 1 To UTF8.Len(replace(n," ",""))
arr[i]=UTF8.StrGetAt(n,i)
Next
baohu="※"&join(arr,"※")&"※"
End Function
最新评论