增加一个取出文本重复内容的命令吧

小爬虫

[e]
.版本 2

.子程序 取出文本中的重复内容, 整数型, 公开, 返回值为重复内容数组中的成员个数
.参数 原文本, 文本型
.参数 重复内容数组, 文本型, 数组, 存放重复内容的数组,必须提供数组变量
.局部变量 长度, 整数型
.局部变量 临时, 文本型
.局部变量 重复文本, 文本型
.局部变量 剩余文本长度, 整数型

' ----------------------------初始化开始-------------------------------
原文本 ＝ 到半角 (原文本)
数组清零 (重复内容数组)
剩余文本长度 ＝ 取文本长度 (原文本)
' ----------------------------初始化结束-------------------------------

.循环判断首 ()

    重复文本 ＝ 内部_匹配 (原文本)

    .如果 (重复文本 ≠ “”)
        加入成员 (重复内容数组, 重复文本)
        原文本 ＝ 取文本右边 (原文本, 取文本长度 (原文本) － 取文本长度 (重复文本))
        剩余文本长度 ＝ 剩余文本长度 － 取文本长度 (重复文本)
    .否则
        临时 ＝ 取文本左边 (原文本, 1)
        .如果 (取代码 (临时, ) ＜ 0)
            长度 ＝ 2
        .否则
            长度 ＝ 1
        .如果结束
        原文本 ＝ 取文本右边 (原文本, 取文本长度 (原文本) － 长度)
        剩余文本长度 ＝ 剩余文本长度 － 长度
    .如果结束

.循环判断尾 (剩余文本长度 ＞ 0)
返回 (数组_去重复 (重复内容数组))


.子程序 内部_匹配, 文本型
.参数 原文本, 文本型
.局部变量 待比较文本, 文本型
.局部变量 循环变量, 整数型
.局部变量 临时, 文本型
.局部变量 长度, 整数型
.局部变量 重复文本, 文本型

循环变量 ＝ 取文本长度 (原文本)
待比较文本 ＝ 原文本
重复文本 ＝ “”

.判断循环首 (循环变量 ＞ 0)  ' 待比较文本 ≠ “”
    临时 ＝ 取文本右边 (待比较文本, 1)
    .如果 (取代码 (临时, ) ＜ 0)
        长度 ＝ 2  ' 小于0为汉字
    .否则
        长度 ＝ 1
    .如果结束
    循环变量 ＝ 循环变量 － 长度
    待比较文本 ＝ 取文本左边 (原文本, 循环变量)
    .如果真 (待比较文本 ＝ “”)
        跳出循环 ()
    .如果真结束

    .如果真 (寻找文本 (原文本, 待比较文本, 2, 假) ≠ -1)
        重复文本 ＝ 待比较文本
        跳出循环 ()
    .如果真结束

.判断循环尾 ()  ' 循环变量 ＞ 0

返回 (重复文本)

[/e]

御风软件

没有意思的，如果你是想做一篇文章的，关键词出现次数什么的，这个做不了

而且，这种取也是取单个字/字符的，没有好的分词算法。也不能带DLL什么的

你这只是测试简单的文本，如果你的文本很长，耗费时间会翻倍的，长到你无法忍受

建议不采纳。。

小爬虫

御风软件 发表于 2013-12-21 10:03
没有意思的，如果你是想做一篇文章的，关键词出现次数什么的，这个做不了

而且，这种取也是取单个字/字 ...

  我就是提供这样的代码供参考，看看你们能不能修改修改个好的命令。我会的目前就这样，慢慢学习哈。关键词出现资料，用查找  文本_取出现次数 ()  命令就可以实现了呀

小爬虫

噌经滴承诺 发表于 2013-12-21 09:46
你想表达什么？

看不懂代码，看不到图片吗？

1428655083

麻烦说个明白点

噌经滴承诺

你想表达什么？