| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 查找到的文件名 | 文本型 | | |
| 歌词文件 | 文本型 | | |
查找到的文件名 ＝
寻找文件 (取运行目录 () ＋
“\*.lrc”,
)
如果 (查找到的文件名 ＝
“”)
编辑框1.内容 ＝
“请将程序放在歌词文件夹下运行”
判断循环首 (查找到的文件名 ≠
“”) 编辑框1.内容 ＝ 编辑框1.内容 ＋ 查找到的文件名 ＋
#换行符 歌词文件 ＝
到文本 (读入文件 (取运行目录 () ＋
“\” ＋ 查找到的文件名
))
写到文件 (取运行目录 () ＋
“\” ＋ 查找到的文件名,
编码_Ansi到Utf8 (歌词文件
))
查找到的文件名 ＝
寻找文件 (,
)
判断循环尾 ()
[JavaScript] 纯文本查看 复制代码
.版本 2
.支持库 RegEx
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 查找到的文件名, 文本型
.局部变量 歌词文件, 文本型
.局部变量 处理后歌词, 文本型
.局部变量 regexp, 正则表达式
.局部变量 替换位置, 整数型
.局部变量 数组, 搜索结果, , "0"
.局部变量 i, 整数型
.局部变量 子文本处理, 文本型
.局部变量 取子文本, 文本型
.局部变量 临时存储1, 文本型
.局部变量 临时存储2, 文本型
查找到的文件名 ＝ 寻找文件 (取运行目录 () ＋ “\*.lrc”, )
.如果 (查找到的文件名 ＝ “”)
编辑框1.内容 ＝ “请将程序放在歌词文件夹下运行”
.否则
.如果 (文件_取文本编码 (取运行目录 () ＋ “\” ＋ 查找到的文件名) ＝ 4)
.判断循环首 (查找到的文件名 ≠ “”)
调试输出 (查找到的文件名)
编辑框1.内容 ＝ 编辑框1.内容 ＋ 查找到的文件名 ＋ #换行符
歌词文件 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 查找到的文件名))
' 调试输出 (歌词文件)
' 调试输出 (取运行目录 () ＋ “\” ＋ 查找到的文件名)
regexp.多行模式 ＝ 真
regexp.创建 (“[0-9][0-9]:[0-5][0-9].[0-9][0-9][0-9]”, )
数组 ＝ regexp.搜索全部 (歌词文件)
临时存储1 ＝ 歌词文件
.计次循环首 (取数组成员数 (数组), i)
取子文本 ＝ 数组 .取匹配文本 (歌词文件, )
' 调试输出 (取子文本)
子文本处理 ＝ 取文本左边 (取子文本, 取文本长度 (取子文本) － 1)
' 调试输出 (子文本处理)
临时存储2 ＝ 子文本替换 (临时存储1, 取子文本, 子文本处理, 1, 1, 真)
临时存储1 ＝ 临时存储2
.计次循环尾 ()
调试输出 (临时存储1)
歌词文件 ＝ 临时存储1
写到文件 (取运行目录 () ＋ “\” ＋ 查找到的文件名, 编码_Ansi到Utf8 (歌词文件))
查找到的文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
.否则
编辑框1.内容 ＝ “歌词格式非ANSI，本软件不支持转换”
.如果结束
.如果结束