.版本 2
.子程序 _删除_被选择
.局部变量 当前选中, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本数组2, 文本型, , "0"
.局部变量 删除容器, 字节集
.局部变量 x, 整数型
.如果真 (列表框1.现行选中项 = -1)
信息框 (“请在列表中选中需要删除的会员!”, 0, )
返回 ()
.如果真结束
当前选中 = 列表框1.现行选中项
移到文件首 (文件号)
删除容器 = 读入字节集 (文件号, 取文件长度 (文件号))
文本数组 = 分割文本 (到文本 (删除容器), #换行符, )
.计次循环首 (取数组成员数 (文本数组), x)
.如果 (当前选中 + 1 = x)
文本数组2 = 分割文本 (文本数组 [x], “,”, )
.如果真 (信息框 (“会员卡号:” + 文本数组2 [1] + #换行符 + “会员名字:” + 文本数组2 [2] + #换行符 + “卡类型:” + 文本数组2 [4] + #换行符 + “您确定要删除?”, #警告图标 + #是否钮, “删除会员信息:”) = 5)
删除成员 (文本数组, x, )
跳出循环 ()
.如果真结束
返回 ()
.否则
.如果结束
.计次循环尾 ()
移到文件首 (文件号)
删除数据 (文件号, 取文件长度 (文件号))
.计次循环首 (取数组成员数 (文本数组), x)
.如果 (取数组成员数 (文本数组) = x)
写出字节集 (文件号, 到字节集 (文本数组 [x]))
.否则
写出字节集 (文件号, 到字节集 (文本数组 [x] + #换行符))
.如果结束
.计次循环尾 ()
子程序载入数据 ()
.子程序 子程序删除会员
.参数 会员号, 文本型
.局部变量 删除容器, 字节集
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本数组2, 文本型, , "0"
.局部变量 x, 整数型
.' 如果 (会员号 ≠ “”)
' 移到文件首 (文件号)
' 删除容器 = 读入字节集 (文件号, 取文件长度 (文件号))
' 文本数组 = 分割文本 (到文本 (删除容器), #换行符, )
.' 计次循环首 (取数组成员数 (文本数组), x)
' 文本数组2 = 分割文本 (文本数组 [x], “,”, )
.' 如果真 (文本数组2 [1] = 会员号)
.' 如果真 (信息框 (“会员卡号:” + 文本数组2 [1] + #换行符 + “会员名字:” + 文本数组2 [2] + #换行符 + “卡类型:” + 文本数组2 [4] + #换行符 + “您确定要删除?”, #警告图标 + #是否钮, “删除会员信息:”) = 5)
' 删除成员 (文本数组, x, )
' 跳出循环 ()
.如果真结束
' 返回 ()
.如果真结束
.' 计次循环尾 ()
' 移到文件首 (文件号)
' 删除数据 (文件号, 取文件长度 (文件号))
.' 计次循环首 (取数组成员数 (文本数组), x)
.' 如果 (取数组成员数 (文本数组) = x)
' 写出字节集 (文件号, 到字节集 (文本数组 [x]))
.否则
' 写出字节集 (文件号, 到字节集 (文本数组 [x] + #换行符))
.如果结束
.' 计次循环尾 ()
' 会员号 = “”
' 子程序载入数据 ()
.否则
.如果结束
.子程序 _导入_被选择
.局部变量 导入容器, 字节集
.局部变量 文本数组, 文本型, , "0"
.局部变量 文件号2, 整数型
.局部变量 临时变量, 文本型
信息框 (“本导入程序不会对您所导入的数据进行校验,请正确选择需要导入的数据备份!” + #换行符 + “否则将会导致不可逆的数据损坏!”, #警告图标, “警告!!”)
.如果真 (通用对话框1.打开 () = 假)
返回 ()
.如果真结束
关闭所有文件 ()
文件号2 = 打开加密文件 (通用对话框1.文件名, 3, , “19@85(32%71&BvC”, )
移到文件首 (文件号2)
导入容器 = 读入字节集 (文件号2, 取文件长度 (文件号2))
临时变量 = 子文本替换 (取当前目录 (), “\bakup”, “”, 1, , 真)
文件号 = 打开加密文件 (临时变量 + “\data.dat”, 4, , “19@85(32%71&BvC”, )
移到文件首 (文件号)
写出字节集 (文件号, 导入容器)
关闭所有文件 ()
信息框 (“为让系统正确运行,请关闭程序重新运行!”, #信息图标, )