读入歌词

三晨

  

子程序名	返回值类型	公开	备 注
读入歌词
参数名	类 型	参考	可空	数组	备 注
歌词地址	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
位置号	整数型
位置号2	整数型
结点个数	整数型
无序区首	整数型
插入点	整数型
暂存变量	文本型
移动点	整数型
首位置	整数型
末位置	整数型
中间位置	整数型
偏移时间	整数型
计次	整数型
物体标识	整数型
字节集	字节集
转换后内容	文本型

背景动画框.销毁所有物体 ()
文件号 ＝ 打开文件 (歌词地址, #读入, )
重定义数组 (歌词, 假, 0)
如果 (文件号 ＝ 0)
加入成员 (歌词, “”)
加入成员 (歌词, “”)
加入成员 (歌词, “2&”)
读入一行 (文件号)
读入一行 (文件号)
读入一行 (文件号)
暂存文本 ＝ 读入一行 (文件号)
' 暂存文本 ＝ “歌词编辑：” ＋ 取文本中间 (暂存文本, 5, 取文本长度 (暂存文本) － 5)
加入成员 (歌词, “”)
加入成员 (歌词, “”)
加入成员 (歌词, “” ＋ “&” ＋ 暂存文本)
暂存文本 ＝ 读入一行 (文件号)
偏移时间 ＝ 到数值 (取文本中间 (暂存文本, 9, 取文本长度 (暂存文本) － 9))
循环判断首 ()
暂存文本 ＝ 读入一行 (文件号)
判断循环首 (倒找文本 (暂存文本, “[”, , 假) ≠ -1)
位置号 ＝ 倒找文本 (暂存文本, “[”, , 假)
位置号2 ＝ 倒找文本 (暂存文本, “]”, , 假)
歌词时间 ＝ 到文本 (到数值 (取文本中间 (暂存文本, 位置号 ＋ 2, 2)) × 60000 ＋ 到数值 (取文本中间 (暂存文本, 位置号 ＋ 4, 2)) × 1000 ＋ 到数值 (取文本中间 (暂存文本, 位置号 ＋ 6, 2)) × 10)
如果真 (到数值 (歌词时间) ＞ 取绝对值 (偏移时间))
歌词时间 ＝ 到文本 (到数值 (歌词时间) ＋ 偏移时间)
加入成员 (歌词, 歌词时间 ＋ “&” ＋ 取文本中间 (暂存文本, 位置号 ＋ 10, 取文本长度 (暂存文本) － 位置号2))
暂存文本 ＝ 取文本左边 (暂存文本, 位置号 － 1) ＋ 取文本右边 (暂存文本, 取文本长度 (暂存文本) － 位置号2)
判断循环尾 ()
循环判断尾 (是否在文件尾 (文件号, ) ＝ 假)
结点个数 ＝ 取数组成员数 (歌词)
如果真 (结点个数 ≤ 1)
返回 ()
变量循环首 (2, 结点个数, 1, 无序区首)
首位置 ＝ 1
末位置 ＝ 无序区首 － 1
判断循环首 (首位置 ≤ 末位置)
中间位置 ＝ 取整 ( (首位置 ＋ 末位置) ÷ 2)
如果 (到数值 (取文本左边 (歌词 [无序区首], 寻找文本 (歌词 [无序区首], “&”, , 假))) ＜ 到数值 (取文本左边 (歌词 [中间位置], 寻找文本 (歌词 [中间位置], “&”, , 假))))
插入点 ＝ 中间位置
末位置 ＝ 中间位置 － 1
如果 (到数值 (取文本左边 (歌词 [无序区首], 寻找文本 (歌词 [无序区首], “&”, , 假))) ＞ 到数值 (取文本左边 (歌词 [中间位置], 寻找文本 (歌词 [中间位置], “&”, , 假))))
首位置 ＝ 中间位置 ＋ 1
插入点 ＝ 中间位置
跳出循环 ()


判断循环尾 ()
如果真 (插入点 ≠ 0)
暂存变量 ＝ 歌词 [无序区首]
变量循环首 (无序区首, 插入点 ＋ 1, -1, 移动点)
歌词 [移动点] ＝ 歌词 [移动点 － 1]
变量循环尾 ()
歌词 [插入点] ＝ 暂存变量
插入点 ＝ 0

变量循环尾 ()
背景动画框.销毁所有物体 ()
动画物体_歌词.文字 ＝ 取文本右边 (歌词 [1], 取文本长度 (歌词 [1]) － 寻找文本 (歌词 [1], “&”, , 假))
物体标识 ＝ 背景动画框.创建物体 (, 0, 背景动画框.高度, 真, )
物体标识 ＝ 背景动画框.创建物体 (动画物体_歌词, (背景动画框.宽度 － 动画物体_歌词.取内容宽度 ()) ÷ 2, 背景动画框.高度 ÷ 3 ＋ 26, 真, )
标识开始位置 ＝ 物体标识 － 1
计次循环首 (取数组成员数 (歌词) － 1, 计次)
暂存文本 ＝ 取文本右边 (歌词 [计次 ＋ 1], 取文本长度 (歌词 [计次 ＋ 1]) － 寻找文本 (歌词 [计次 ＋ 1], “&”, , 假))
如果真 (暂存文本 ＝ “”)
暂存文本 ＝ “  ”
动画物体_歌词.文字 ＝ 暂存文本
物体标识 ＝ 背景动画框.创建物体 (动画物体_歌词, (背景动画框.宽度 － 动画物体_歌词.取内容宽度 ()) ÷ 20, 背景动画框.取物体顶边 (物体标识) ＋ 到数值 (动画物体_歌词.取内容高度 () ＋ 3.5), 真, )
计次循环尾 ()
关闭文件 (文件号)

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 读入歌词<br /> .参数 歌词地址, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 位置号, 整数型<br /> .局部变量 位置号2, 整数型<br /> .局部变量 结点个数, 整数型<br /> .局部变量 无序区首, 整数型<br /> .局部变量 插入点, 整数型<br /> .局部变量 暂存变量, 文本型<br /> .局部变量 移动点, 整数型<br /> .局部变量 首位置, 整数型<br /> .局部变量 末位置, 整数型<br /> .局部变量 中间位置, 整数型<br /> .局部变量 偏移时间, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 物体标识, 整数型<br /> .局部变量 字节集, 字节集<br /> .局部变量 转换后内容, 文本型<br /> <br /> 背景动画框.销毁所有物体 ()<br /> 文件号 ＝ 打开文件 (歌词地址, #读入, )<br /> 重定义数组 (歌词, 假, 0)<br /> .如果 (文件号 ＝ 0)<br />     加入成员 (歌词, “”)<br />     加入成员 (歌词, “”)<br />     加入成员 (歌词, “2&”)<br /> .否则<br />     读入一行 (文件号)<br />     读入一行 (文件号)<br />     读入一行 (文件号)<br />     暂存文本 ＝ 读入一行 (文件号)<br />     ' 暂存文本 ＝ “歌词编辑：” ＋ 取文本中间 (暂存文本, 5, 取文本长度 (暂存文本) － 5)<br /> <br /> <br />     加入成员 (歌词, “”)<br />     加入成员 (歌词, “”)<br />     加入成员 (歌词, “” ＋ “&” ＋ 暂存文本)<br /> .如果结束<br /> 暂存文本 ＝ 读入一行 (文件号)<br /> 偏移时间 ＝ 到数值 (取文本中间 (暂存文本, 9, 取文本长度 (暂存文本) － 9))<br /> <br /> .循环判断首 ()<br />     暂存文本 ＝ 读入一行 (文件号)<br />     .判断循环首 (倒找文本 (暂存文本, “[”, , 假) ≠ -1)<br />         位置号 ＝ 倒找文本 (暂存文本, “[”, , 假)<br />         位置号2 ＝ 倒找文本 (暂存文本, “]”, , 假)<br />         歌词时间 ＝ 到文本 (到数值 (取文本中间 (暂存文本, 位置号 ＋ 2, 2)) × 60000 ＋ 到数值 (取文本中间 (暂存文本, 位置号 ＋ 4, 2)) × 1000 ＋ 到数值 (取文本中间 (暂存文本, 位置号 ＋ 6, 2)) × 10)<br />         .如果真 (到数值 (歌词时间) ＞ 取绝对值 (偏移时间))<br />             歌词时间 ＝ 到文本 (到数值 (歌词时间) ＋ 偏移时间)<br />         .如果真结束<br />         加入成员 (歌词, 歌词时间 ＋ “&” ＋ 取文本中间 (暂存文本, 位置号 ＋ 10, 取文本长度 (暂存文本) － 位置号2))<br />         暂存文本 ＝ 取文本左边 (暂存文本, 位置号 － 1) ＋ 取文本右边 (暂存文本, 取文本长度 (暂存文本) － 位置号2)<br /> <br /> <br />     .判断循环尾 ()<br /> .循环判断尾 (是否在文件尾 (文件号, ) ＝ 假)<br /> 结点个数 ＝ 取数组成员数 (歌词)<br /> .如果真 (结点个数 ≤ 1)<br />     返回 ()<br /> .如果真结束<br /> .变量循环首 (2, 结点个数, 1, 无序区首)<br />     首位置 ＝ 1<br />     末位置 ＝ 无序区首 － 1<br />     .判断循环首 (首位置 ≤ 末位置)<br />         中间位置 ＝ 取整 ((首位置 ＋ 末位置) ÷ 2)<br />         .如果 (到数值 (取文本左边 (歌词 [无序区首], 寻找文本 (歌词 [无序区首], “&”, , 假))) ＜ 到数值 (取文本左边 (歌词 [中间位置], 寻找文本 (歌词 [中间位置], “&”, , 假))))<br />             插入点 ＝ 中间位置<br />             末位置 ＝ 中间位置 － 1<br />         .否则<br />             .如果 (到数值 (取文本左边 (歌词 [无序区首], 寻找文本 (歌词 [无序区首], “&”, , 假))) ＞ 到数值 (取文本左边 (歌词 [中间位置], 寻找文本 (歌词 [中间位置], “&”, , 假))))<br />                 首位置 ＝ 中间位置 ＋ 1<br />             .否则<br />                 插入点 ＝ 中间位置<br />                 跳出循环 ()<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .判断循环尾 ()<br />     .如果真 (插入点 ≠ 0)<br />         暂存变量 ＝ 歌词 [无序区首]<br />         .变量循环首 (无序区首, 插入点 ＋ 1, -1, 移动点)<br />             歌词 [移动点] ＝ 歌词 [移动点 － 1]<br />         .变量循环尾 ()<br />         歌词 [插入点] ＝ 暂存变量<br />         插入点 ＝ 0<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> <br /> 背景动画框.销毁所有物体 ()<br /> 动画物体_歌词.文字 ＝ 取文本右边 (歌词 [1], 取文本长度 (歌词 [1]) － 寻找文本 (歌词 [1], “&”, , 假))<br /> 物体标识 ＝ 背景动画框.创建物体 (, 0, 背景动画框.高度, 真, )<br /> 物体标识 ＝ 背景动画框.创建物体 (动画物体_歌词, (背景动画框.宽度 － 动画物体_歌词.取内容宽度 ()) ÷ 2, 背景动画框.高度 ÷ 3 ＋ 26, 真, )<br /> 标识开始位置 ＝ 物体标识 － 1<br /> .计次循环首 (取数组成员数 (歌词) － 1, 计次)<br />     暂存文本 ＝ 取文本右边 (歌词 [计次 ＋ 1], 取文本长度 (歌词 [计次 ＋ 1]) － 寻找文本 (歌词 [计次 ＋ 1], “&”, , 假))<br />     .如果真 (暂存文本 ＝ “”)<br />         暂存文本 ＝ “  ”<br />     .如果真结束<br />     动画物体_歌词.文字 ＝ 暂存文本<br />     物体标识 ＝ 背景动画框.创建物体 (动画物体_歌词, (背景动画框.宽度 － 动画物体_歌词.取内容宽度 ()) ÷ 20, 背景动画框.取物体顶边 (物体标识) ＋ 到数值 (动画物体_歌词.取内容高度 () ＋ 3.5), 真, )<br /> <br /> <br /> .计次循环尾 ()<br /> 关闭文件 (文件号)

已注销400338

好!,很有精神