如何从一个文章中随机取出指定字节数的文本？

努力加油学YI

如何从一个长文章中随机取出指定字节数或者字数的文本？
小弟菜鸟，不知道怎么写，麻烦大神写个例子或者提示下啊！感激不尽！{:soso_e154:}

紅顏じ亦沉淪ジ

[e]
.版本 2

.子程序 开始分割
.参数 文本, 文本型
.参数 分割方法, 整数型, , 1-每份大小 2-分割数量
.参数 参数, 整数型
.参数 书名字, 文本型
.参数 目录, 文本型, , 以"\"结尾
.局部变量 位置始, 整数型
.局部变量 当前文本, 文本型
.局部变量 i, 整数型
.局部变量 位置尾, 整数型
.局部变量 e1, 整数型
.局部变量 分割每份大小, 整数型
.局部变量 按份分割, 逻辑型
.局部变量 e2, 整数型
.局部变量 位置尾z, 整数型

创建目录 (目录)
.如果真 (分割方法 ＝ 1)
    分割每份大小 ＝ 参数
.如果真结束
.如果真 (分割方法 ＝ 2)
    分割每份大小 ＝ 取文本长度 (文本) ＼ 到整数 (参数) ＼ 1024
.如果真结束
位置始 ＝ 1
.循环判断首 ()
    i ＝ i ＋ 1
    位置尾 ＝ 位置始 ＋ 分割每份大小 × 1024

    .如果真 (取文本长度 (文本) ≥ 位置尾)
        位置尾z ＝ 倒找文本 (文本, #换行符, 位置尾, 假)

        .如果真 (位置尾 － 位置尾z ＜ 3000)
            位置尾 ＝ 位置尾z


        .如果真结束


    .如果真结束

    当前文本 ＝ 取文本中间2 (文本, 位置始 ＋ 1, 位置尾)
    当前文本 ＝ #换行符 ＋ 当前文本 ＋ #换行符 ＋ “”
    写到文件 (目录 ＋ 书名字 ＋ “_” ＋ 对齐文本到3位 (到文本 (i)) ＋ “.txt”, 到字节集 (当前文本))
    位置始 ＝ 位置尾
.循环判断尾 (取文本长度 (文本) ≥ 位置尾)


.子程序 对齐文本到3位, 文本型
.参数 欲对齐的文本, 文本型
.局部变量 i, 文本型

i ＝ 欲对齐的文本

.判断循环首 (取文本长度 (i) ＜ 3)
    i ＝ “0” ＋ i
.判断循环尾 ()
返回 (i)




.子程序 取文本中间2, 文本型
.参数 欲取出其部分的文本, 文本型
.参数 取出的起始位置, 整数型
.参数 取出的结尾位置, 整数型

返回 (取文本中间 (欲取出其部分的文本, 取出的起始位置 ＋ 1, 取出的结尾位置 － 取出的起始位置 － 1))

[/e]

紅顏じ亦沉淪ジ

不是很理解楼主的意思啊。。

在123456789中取出3个就是123？

紅顏じ亦沉淪ジ

这个应该可以满足楼主要求了 取随机长度文本.zip (143.13 KB, 下载次数: 6)

2013-5-5 20:37 上传

点击文件名下载附件

努力加油学YI

紅顏じ亦沉淪ジ 发表于 2013-5-5 20:31
不是很理解楼主的意思啊。。

在123456789中取出3个就是123？

对啊，随机取的。如果随机取3个，就是123.567.345这样的。求前辈指点！

紅顏じ亦沉淪ジ

努力加油学YI 发表于 2013-5-5 20:39
对啊，随机取的。如果随机取3个，就是123.567.345这样的。求前辈指点！

我的那个例程你看看。板凳哪里，用到了正则，如果看不懂在vip群里找我我给你解释。叫做 沉沦

紅顏じ亦沉淪ジ

弄好了就采纳一下板凳最佳撒

胆小的老虎

紅顏じ亦沉淪ジ 发表于 2013-5-5 20:45
弄好了就采纳一下板凳最佳撒

我觉得高手应该低调点

紅顏じ亦沉淪ジ

胆小的老虎 发表于 2013-5-5 21:15
我觉得高手应该低调点

你觉得我低调吗？