随机字符插入 2
.版本 2.子程序 随机字符, 文本型, 公开
.参数 文本, 文本型
.局部变量 数字变量, 整数型
.局部变量 汉字1, 文本型
.局部变量 定位数, 整数型
.局部变量 随机字符本体, 文本型
.局部变量 附加随机字符, 文本型
.局部变量 随机字符位置, 整数型
汉字1 ＝ 文本区分_只取汉字 (文本)
数字变量 ＝ 取文本长度 (汉字1) ÷ 2
置随机数种子 ()
定位数 ＝ 取随机数 (1, 26)
随机字符本体 ＝ 取文本中间 (“qwertyuioplkjmhngbfvdcsxazd”, 定位数, 1)
随机字符位置 ＝ 取随机数 (2, 到整数 (数字变量 × 9÷ 10))
附加随机字符 ＝ 取文本中间 (汉字1, 随机字符位置, 2) ＋ 随机字符本体
返回 (子文本替换 (文本, 取文本中间 (汉字1, 随机字符位置, 2), 附加随机字符, , 1, 真))
需要 引用精易模块 ，之前发错地方了，现搬过来
本帖最后由 761355061 于 2021-9-16 12:35 编辑
.版本 2
.子程序 插入随机字母, 文本型
.参数 文本, 文本型
.局部变量 字, 文本型, , "0"
置随机数种子 ()
返回 (文本 ＝ 文本_插入文本到某位置 (文本, 文本_取随机字母 (1, 2), 取随机数 (0, 文本_逐字分割 (文本, 字))))
精益模块文本处理挺全面的
页:
[1]