如何做伪原创(来讲一下怎么用脚本对文章进行伪原创(图) )

　　如何做伪原创(来讲一下怎么用脚本对文章进行伪原创(图)

)

　　大家好，我是公众号3分钟学校的郭丽媛。今天继续讲解Android版的按键精灵。在本期中，我们将讨论如何使用脚本来伪原创 文章。

　　什么是文章伪原创

　　伪原创 表示对 原创 的 文章 进行重新处理，使搜索引擎认为它是 原创文章，从而提高 网站 的权重。编辑方法有两种：修改标题是关键，总结首末段落。

　　它们指的是数字替换法、单词替换法、文本排序法、首段摘要法、尾部摘要法、新增图片、段落替换法和关键词替换法。

　　文章伪原创有什么用

　　这个东西现在其实用处不大。一般用于seo。就是“欺骗”搜索引擎（百度、谷歌、360搜索），让搜索引擎认为你发的文章来自原创，认为你的文章有价值，给你的网页搜索排名更高。

　　那为什么说它没用呢？

　　首先，搜索引擎（百度、谷歌、360搜索）越来越智能，稍微改一下就可以判断了。

　　二是搜索引擎本身没有流量，没有未来可吃。

　　文章伪原创的字替换方法

　　伪原创的换词方法是用同义词替换，如：

　　原文：大部分女人都爱买化妆品。

　　伪原创：很多女性都喜欢买护肤品。

　　这两个句子在字面层面上是不同的，但是从句的意思却非常相似。这是 伪原创。

　　我们在上面的例子中替换了哪些词？让我们一一提取：

　　女人 => 女士

　　大部分 => 很多

　　爱 => 喜欢

　　化妆品 => 护肤品

　　伪原创 工具的同义词“库”中的单词越多，伪原创 就越好。因此，当我们制作自己的伪原创 脚本时，同义词数据库必须不断更新和完善。

　　当然，伪原创 也有它的缺点。我们知道，汉字是博大精深的。有时，稍微改变一下单词后，它们看起来就不像人类的单词了。因此，伪原创 需要稍后阅读，看看有没有明显的语言问题。地方，如果有任何手动修改。

　　伪原创脚本说明

　　一、伪原创脚本使用的命令：

　　(1）for 循环遍历所有同义词

　　(2）replace替换命令用于替换同义词

　　这两个是主要的命令，还有读文本命令、写文本命令等等。

　　二、脚本创意

　　(1）先将同义词写入库（文本）。

　　

　　考虑到文本的utf8编码，因为bom头会在文本开头有一个问号，所以文本的第一行是空的，从第二行开始写。

　　注意：Curry 中的同义词越多越好。如果平时需要伪原创积累更多的同义词，或者百度查同义词。

　　(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）单向替换

　　所谓单向替换，就是将前面的单词替换为后面的单词，比如woman-Ms。单向替换意味着只有女人可以被女人代替。

　　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）双向替换

　　双向替换，第一反应是反向进行同义词替换，即将后面的单词替换为前面的单词。

　　思路是对的，但是实际写的时候会出现问题。

　　让我们以女人和女士的同义词为例。例如，一篇 文章 文章同时收录这两个词。

　　如原文：woman和lady是一组同义词。

　　替换①：女士替换女人

　　伪原创：lady 和lady 是一组同义词。

　　在代入①的基础上做反向代入：

　　换人②：女换女

　　伪原创：女人和女人是一组同义词。

　　双向替换后，我们会发现根本不是我们想要的，我们想要的是：

　　原文：woman和lady是一组同义词。

　　伪原创：lady 和woman 是一组同义词。

　　哪里有问题？

　　第一次替换的内容被第二次替换了。实际上，当我们希望时，被替换的 关键词 不会改变。

　　我想到的方式是“保护”被替换的词，那么如何保护呢？

　　使用特殊符号拆分和换行替换的单词。

　　例如，当一个女人代替一个女人时，我们用※来保护它：

　　如原文：woman和lady是一组同义词。

　　卫兵换位①：女换女

　　伪原创：※Ms.※Ms.※和Ms.是一组同义词。

　　在代入①的基础上做反向代入：

　　换人②：女换女

　　伪原创：※Female ※Ms.※和※Female ※People※是一组同义词。

　　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

　　全部更换完毕后，解除※保护，恢复正常文章。

　　这里要强调的是，用于保护的符号非常少见。如果 文章 有这个符号，它也会被删除。

　　脚本代码及注意事项

　　关于文件命令，如果你是低级的关键助手，可以直接使用。如果您是高级关键助手，请使用内置的fileEx命令，以防止由于命令错误导致代码不可用。

　　这里我的密钥助手版本是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