.版本 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”, )
移到文件首 (文件号)
写出字节集 (文件号, 导入容器)
关闭所有文件 ()
信息框 (“为让系统正确运行，请关闭程序重新运行！”, #信息图标, )
扫一扫
564
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
