求随机取文章内容

hj0810

要混合的文本，然后自动判断去的是汉字还是数值？

kingsee

[e].版本 2



.子程序 _按钮1_被单击
.局部变量 文本, 文本型

文本 ＝ 到文本 (读入文件 (“C:\Documents and Settings\Administrator\桌面\1.txt”))
编辑框1.内容 ＝ 子程序1 (文本, 100)

.子程序 子程序1, 文本型
.参数 文本, 文本型
.参数 取出长度, 整数型
.局部变量 位置1, 整数型
.局部变量 位置2, 整数型
.局部变量 i, 整数型
.局部变量 结果1, 文本型
.局部变量 结果, 文本型


位置1 ＝ 取随机数 (1, 取文本长度 (文本) － 取出长度)
位置2 ＝ 取出长度 ÷ 10
.计次循环首 (10, i)
    结果1 ＝ 取文本中间 (文本, 位置1, 位置2)
    结果 ＝ 结果 ＋ 结果1 ＋ 到文本 (i)
    位置1 ＝ 位置1 ＋ 位置2
.计次循环尾 ()
返回 (结果)
[/e]

kingsee

怎么可能呢，我测试过的

补充内容 (2012-3-26 20:27):
那个读入文件的路径你要修改下啊