|
地下
发表于 2013-1-29 11:46:03
|
只看该作者
河北省承德市
[e]
.版本 2
.支持库 spec
.子程序 子程序1
调试输出 (随机插入自定义字符 (取出一段话 (“*&()#HBd#J#Bb0易语言真是一门很好学的语言IUG(#*YD)(#*E#H”), “大美女”))
.子程序 取出一段话, 文本型, , 随机取出10-15字的一段话
.参数 文章, 文本型
.局部变量 length, 整数型
.局部变量 开头_lengh, 整数型
.局部变量 Text, 文本型
置随机数种子 ()
length = 取随机数 (20, 30)
开头_lengh = 取随机数 (1, 取文本长度 (文章) - length)
Text = 取文本中间 (文章, 开头_lengh, length)
返回 (Text)
.子程序 随机插入自定义字符, 文本型, , 把插入的字符随机插入到被插入的字符中
.参数 被插入的字符, 文本型
.参数 插入的字符, 文本型
.局部变量 开头_length, 整数型
.局部变量 left_, 文本型
.局部变量 right_, 文本型
置随机数种子 ()
开头_length = 取随机数 (1, 取文本长度 (被插入的字符))
.如果真 (寻找文本 (到文本 (开头_length ÷ 2), “.”, , 假) ≠ -1)
开头_length = 开头_length + 1
.如果真结束
left_ = 取文本左边 (被插入的字符, 开头_length)
right_ = 取文本右边 (被插入的字符, 取文本长度 (被插入的字符) - 开头_length)
返回 (left_ + 插入的字符 + right_)
[/e] |
|