如何用易语言做一个诗词歌赋生成器

1、打开易语言，新建一个Windows窗口程序

2、在组件栏，添加一个编辑框到新窗口。修改编辑框的字体为五号字体，背景颜色为灰色，多行显示，纵向滚动等。

3、在新的窗口左侧，双击“程序”中“模块引用表”，加入“精益模块”

4、加入一个常量，命名为常量_表达式：<p><a style=".*?" href=".*?&鳎溻趄酃quot; target="_blank"><b>(.*?)</b></a></p><p class="source"><a href=".*?">(.*?)</a><span>：</span><a href=".*?">(.*?)</a></p><div class="contson" id=".*?">(.*?)</div>

5、左键点击编辑框组件，在左侧点开属性事件，打开后选鼠标左键被按下事件。

6、跳转到_编辑框1_鼠标左键被按下子程序后声明如下变量。

7、_编辑框1_鼠标左键被按下子程序下，写如下代码。置随机数种子 ()编辑框1.内容 ＝ “”搜索链接 ＝ “http://www.gushiw髫潋啜缅en.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)) ＋ #换行符)

8、添加一个文本处理子程序，用来出来诗歌文本。代码如下：返回文本 ＝ 子文本替换 (诗词, “<br />”, “”, , , 真)返回揍茏壅混文本 ＝ 子文本替换 (返回文本, “ ”, , , , 真)返回文本 ＝ 子文本替换 (返回文本, “<p>”, , , , 真)返回文本 ＝ 子文本替换 (返回文本, “</p>”, , , , 真)返回文本 ＝ 子文本替换 (返回文本, “。”, #换行符 ＋ #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “，”, #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “；”, #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “？”, #换行符, , , 真)返回文本 ＝ 子文本替换 (返回文本, “！”, #换行符, , , 真)返回 (返回文本)

9、点击运行，点鼠标左键单击，会显示运行结果。成功后“编译”-“静态编译”成一个可执行程序。这样一个生产诗词歌赋的工具就做好了。