字节集替换，自定义标题生成软件

' 只能修改50个字节内的标题，因为源程序的标题只设置了50个字节
.如果真 (取文本长度 (编辑框1.内容) ＞ 50 或 编辑框1.内容 ＝ “”)
返回 ()
.如果真结束
局_原标题 ＝ “XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX”
局_新标题 ＝ 编辑框1.内容
局_补长度 ＝ 取文本长度 (局_原标题) － 取文本长度 (局_新标题)
.计次循环首 (局_补长度, )
局_新标题 ＝ 局_新标题 ＋ “ ”
.计次循环尾 ()
局_新程序 ＝ 子字节集替换 (#源程序, 到字节集 (局_原标题), 到字节集 (局_新标题), , )
写到文件 (取运行目录 () ＋ “\新程序.exe”, 局_新程序) ' 将新程序生成到运行目录下命名为 新程序.exe
信息框 (“已生成”, 0, )