小歪:取歌词软件 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮_select_被单击

取歌词 (“http://www.lrcgc.com/so/?q=” ＋编码_URL编码 (编辑框_Name.内容, 真, 真) ＋ “&csrf_token=4e6d8e5a66cdad3b”)

子程序名	返回值类型	公开	备注
取歌词
参数名	类型	参考	可空	数组	备注
address	文本型

变量名	类型	静态	数组	备注
源文件	文本型
标志	文本型
歌词	文本型
歌词段	文本型		0
i	整数型

列表框1.清空 ()
源文件＝网页_访问S (address, 0, , , , )

如果真 (寻找文本 (源文件, #address_left, , 假) ＝ -1)

信息框 (“没有标志文本！”, 0, , )

返回 ()
标志＝文本_取出中间文本 (源文件, #address_left, #address_right, )
标志＝ “http://www.lrcgc.com/lyric-” ＋标志
源文件＝网页_访问S (标志, 0, , , , )
歌词＝文本_取出中间文本 (源文件, #geci_left, #geci_right, )
歌词段＝分割文本 (歌词, “
”, )

如果真 (取数组成员数 (歌词段) ＝ 0)

信息框 (“没有找到歌词段！”, 0, , )

返回 ()

计次循环首 (取数组成员数 (歌词段), i)

列表框1.加入项目 (歌词段 [i], )

计次循环尾 ()

子程序名	返回值类型	公开	备注
_按钮_Copy_被单击

变量名	类型	静态	数组	备注
i	整数型
复制歌词	文本型

计次循环首 (列表框1.取项目数 (), i)

复制歌词＝复制歌词＋列表框1.取项目文本 (i － 1)

计次循环尾 ()
置剪辑板文本 (复制歌词)

常量名称	常量值	公开	备注
address_left	<文本长度: 16>
address_right	<文本长度: 18>
geci_left	<文本长度: 26>
geci_right	<文本长度: 4>

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮_select_被单击<br />
<br />
取歌词 (“http://www.lrcgc.com/so/?q=” ＋ 编码_URL编码 (编辑框_Name.内容, 真, 真) ＋ “&csrf_token=4e6d8e5a66cdad3b”)<br />
<br />
.子程序 取歌词<br />
.参数 address, 文本型<br />
.局部变量 源文件, 文本型<br />
.局部变量 标志, 文本型<br />
.局部变量 歌词, 文本型<br />
.局部变量 歌词段, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
<br />
列表框1.清空 ()<br />
源文件 ＝ 网页_访问S (address, 0, , , , )<br />
.如果真 (寻找文本 (源文件, #address_left, , 假) ＝ -1)<br />
    信息框 (“没有标志文本！”, 0, , )<br />
    返回 ()<br />
.如果真结束<br />
标志 ＝ 文本_取出中间文本 (源文件, #address_left, #address_right, )<br />
标志 ＝ “http://www.lrcgc.com/lyric-” ＋ 标志<br />
源文件 ＝ 网页_访问S (标志, 0, , , , )<br />
歌词 ＝ 文本_取出中间文本 (源文件, #geci_left, #geci_right, )<br />
歌词段 ＝ 分割文本 (歌词, “<br />
”, )<br />
.如果真 (取数组成员数 (歌词段) ＝ 0)<br />
    信息框 (“没有找到歌词段！”, 0, , )<br />
    返回 ()<br />
.如果真结束<br />
.计次循环首 (取数组成员数 (歌词段), i)<br />
    列表框1.加入项目 (歌词段 <i>, )<br />
.计次循环尾 ()<br />
<br />
<br />
.子程序 _按钮_Copy_被单击<br />
.局部变量 i, 整数型<br />
.局部变量 复制歌词, 文本型<br />
<br />
.计次循环首 (列表框1.取项目数 (), i)<br />
    复制歌词 ＝ 复制歌词 ＋ 列表框1.取项目文本 (i － 1)<br />
.计次循环尾 ()<br />
置剪辑板文本 (复制歌词)<br />
.版本 2<br />
<br />
.常量 address_left, "<文本长度: 16>"<br />
.常量 address_right, "<文本长度: 18>"<br />
.常量 geci_left, "<文本长度: 26>"<br />
.常量 geci_right, "<文本长度: 4>"