易语言批量生成随机姓名的源码

易语言批量生成随机姓名的源码

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 局_性别, 文本型
.局部变量 局_姓名, 文本型
.局部变量 局_三字否, 逻辑型
.局部变量 局_字串, 文本型
.局部变量 局_计次, 整数型
.局部变量 局_循环次数, 整数型

置随机数种子 ()
局_循环次数 ＝ 到整数 (编辑框2.内容)
.计次循环首 (局_循环次数, 局_计次)
    局_姓名 ＝ 取文本中间 (#单姓, 子_随机取位置 (#单姓), 2)  ' 先随机取姓氏
    .如果真 (局_姓名 ＝ “”)
        局_姓名 ＝ “---------”
    .如果真结束
    .如果 (取随机数 (0, 100) ＞ 75)  ' 随机确定是否取三字姓名
        局_三字否 ＝ 假
    .否则
        局_三字否 ＝ 真
    .如果结束
    .如果 (取随机数 (0, 100) ＞ 55)  ' 取男女性别
        局_性别 ＝ “女”
        .如果真 (局_三字否)
            局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#女第二字, 子_随机取位置 (#女第二字), 2)
        .如果真结束
        局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#女常用字, 子_随机取位置 (#女常用字), 2)
    .否则
        局_性别 ＝ “男”
        .如果真 (局_三字否)
            局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#男第二字, 子_随机取位置 (#男第二字), 2)
        .如果真结束
        局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#男常用字, 子_随机取位置 (#男常用字), 2)
    .如果结束
    .如果 (局_字串 ＝ “”)
        局_字串 ＝ 到文本 (局_计次) ＋ “,” ＋ 局_姓名 ＋ “,” ＋ 局_性别 ＋ #换行符
    .否则
        局_字串 ＝ 局_字串 ＋ 到文本 (局_计次) ＋ “,” ＋ 局_姓名 ＋ “,” ＋ 局_性别 ＋ #换行符
    .如果结束

.计次循环尾 ()
编辑框1.内容 ＝ 局_字串

.子程序 子_随机取位置, 整数型
.参数 参_字串, 文本型

返回 (取整 (取随机数 (1, 取文本长度 (参_字串) ÷ 2)) × 2 － 1)

@myxf