易语言
精益模块
打开易语言，新建一个Windows窗口程序
在组件栏，添加一个编辑框到新窗口。修改编辑框的字体为五号字体，背景颜色为灰色，多行显示，纵向滚动等。
在新的窗口左侧，双击“程序”中“模块引用表”，加入“精益模块”
左键点击编辑框组件，在左侧点开属性事件，打开后选鼠标左键被按下事件。
跳转到_编辑框1_鼠标左键被按下子程序后声明如下变量。
_编辑框1_鼠标左键被按下子程序下，写如下代码。置随机数种子 ()编辑框1.内容 ＝ “”搜索链接 ＝ “http://www.gushiwen.org/default_” ＋ 到文本 (取随机数 (1, 72458)) ＋ “.aspx”搜索结果 ＝ 网页_访问S (搜索链接)z.创建 (#常量_表达式, 搜索结果)i ＝ 取随机数 (1, z.取匹配数量 ())编辑框1.加入文本 (#换行符 ＋ #换行符)编辑框1.加入文本 (z.取子匹配文本 (i, 1) ＋ #换行符 ＋ #换行符)编辑框1.加入文本 (“朝代：” ＋ z.取子匹配文本 (i, 2) ＋ #换行符)编辑框1.加入文本 (“作者：” ＋ z.取子匹配文本 (i, 3) ＋ #换行符 ＋ #换行符)编辑框1.加入文本 (文本处理 (z.取子匹配文本 (i, 4)) ＋ #换行符)
添加一个文本处理子程序，用来出来诗歌文本。代码如下：返回文本 ＝ 子文本替换 (诗词, “
”, “”, , , 真)返回文本 ＝ 子文本替换 (返回文本, “ ”, , , , 真)返回文本 ＝ 子文本替换 (返回文本, “
”, , , , 真)返回文本 ＝ 子文本替换 (返回文本, “
”, , , , 真)返回文本 ＝ 子文本替换 (返回文本, “。”, #换行符 ＋ #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “，”, #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “；”, #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “？”, #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “！”, #换行符, , , 真)返回 (返回文本)点击运行，点鼠标左键单击，会显示运行结果。成功后“编译”-“静态编译”成一个可执行程序。这样一个生产诗词歌赋的工具就做好了。