把导入放到菜单里面~~~

zzz77f

[e=0].版本 2
.支持库 spec
.支持库 iext

.子程序 _按钮_导入账号_被单击
.局部变量 取运行目录, 文本型
.局部变量 ret, 逻辑型
.局部变量 FilePath, 文本型
.局部变量 FileData, 文本型
.局部变量 DataArr, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 Data, 文本型, , "0"
.局部变量 Index




' 判断是否正在运行
.' 如果真 (更新控件 ())
    ' 返回 ()
.如果真结束
' 执行到这里说明未存在任何执行的线程
' 导入帐号
' 1设置通用对话框属性
_软件窗口.通用对话框_导入路径.初始目录 ＝ 取运行目录 ()
' 2.打开文件
ret ＝ _软件窗口.通用对话框_导入路径.打开 ()
.如果真 (ret ＝ 假)
    ' 给用户一个提示
    信息框 (“打开文件失败”, 0, , )
    返回 ()

.如果真结束
' 3.获取文件路径
FilePath ＝ _软件窗口.通用对话框_导入路径.文件名
' 4.更新空间内容
_软件窗口.编辑框_导入帐号.内容 ＝ FilePath
' 5.获取文件内容
FileData ＝ 到文本 (读入文件 (FilePath))
调试输出 (FileData)
' 获取帐号数据成功之后 分割文本 按照换行符来分割
DataArr ＝ 分割文本 (FileData, #换行符, )
' 添加前清空数组 避免重复添加
_软件窗口.超级列表框_中控显示.全部删除 ()

' 遍历获取到的数组内容
.计次循环首 (取数组成员数 (DataArr), i)
    Data ＝ 分割文本 (DataArr [i], “----”, )
    ' 判断用户格式是否错误
    .如果真 (取数组成员数 (Data) ≠ 3)
        _软件窗口.超级列表框_中控显示.全部删除 ()
        信息框 (“帐号格式错误”, 0, , )
        返回 ()

    .如果真结束

    ' 插入索引从0开始
    Index ＝ _软件窗口.超级列表框_中控显示.插入表项 (, , , , , )
    调试输出 (Index)

    ' 序号
    _软件窗口.超级列表框_中控显示.置标题 (Index, 0, 到文本 (Index ＋ 1))
    ' 状态
    ' _软件窗口.超级列表框_中控显示.置标题 (Index, 5, “已完成”)

    ' 添加默认帐号数据
    _软件窗口.超级列表框_中控显示.置标题 (Index, 1, Data [1])
    _软件窗口.超级列表框_中控显示.置标题 (Index, 2, Data [2])
    _软件窗口.超级列表框_中控显示.置标题 (Index, 3, Data [3])
    ' _软件窗口.超级列表框_中控显示.置标题 (Index, 4, Data [4])
    ' _软件窗口.超级列表框_中控显示.置标题 (Index, 5, Data [5])
    ' 判断是否存在金币数据
    .如果真 (取数组成员数 (Data) ＝ 6)
        _软件窗口.超级列表框_中控显示.置标题 (Index, 9, Data [6])

    .如果真结束

.计次循环尾 ()

.版本 2
.支持库 spec

.子程序 _导入_被选择
.局部变量 取运行目录, 文本型
.局部变量 ret, 逻辑型
.局部变量 FilePath, 文本型
.局部变量 FileData, 文本型
.局部变量 DataArr, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 Data, 文本型, , "0"
.局部变量 Index




' 判断是否正在运行
.' 如果真 (更新控件 ())
    ' 返回 ()
.如果真结束
' 执行到这里说明未存在任何执行的线程
' 导入帐号
' 1设置通用对话框属性
_启动窗口.通用对话框_导入路径.初始目录 ＝ 取运行目录 ()
' 2.打开文件
ret ＝ _启动窗口.通用对话框_导入路径.打开 ()
.如果真 (ret ＝ 假)
    ' 给用户一个提示
    信息框 (“打开文件失败”, 0, , )
    返回 ()

.如果真结束
' 3.获取文件路径
FilePath ＝ _启动窗口.通用对话框_导入路径.文件名
' 4.更新空间内容
_启动窗口.编辑框_导入帐号.内容 ＝ FilePath
' 5.获取文件内容
FileData ＝ 到文本 (读入文件 (FilePath))
调试输出 (FileData)
' 获取帐号数据成功之后 分割文本 按照换行符来分割
DataArr ＝ 分割文本 (FileData, #换行符, )
' 添加前清空数组 避免重复添加
_启动窗口.超级列表框_中控显示.全部删除 ()

' 遍历获取到的数组内容
.计次循环首 (取数组成员数 (DataArr), i)
    Data ＝ 分割文本 (DataArr [i], “----”, )
    ' 判断用户格式是否错误
    .如果真 (取数组成员数 (Data) ≠ 3)
        _启动窗口.超级列表框_中控显示.全部删除 ()
        信息框 (“帐号格式错误”, 0, , )
        返回 ()

    .如果真结束

    ' 插入索引从0开始
    Index ＝ _启动窗口.超级列表框_中控显示.插入表项 (, , , , , )
    调试输出 (Index)

    ' 序号
    _启动窗口.超级列表框_中控显示.置标题 (Index, 0, 到文本 (Index ＋ 1))
    ' 状态
    ' _启动窗口.超级列表框_中控显示.置标题 (Index, 5, “已完成”)

    ' 添加默认帐号数据
    _启动窗口.超级列表框_中控显示.置标题 (Index, 1, Data [1])
    _启动窗口.超级列表框_中控显示.置标题 (Index, 2, Data [2])
    _启动窗口.超级列表框_中控显示.置标题 (Index, 3, Data [3])
    ' _启动窗口.超级列表框_中控显示.置标题 (Index, 4, Data [4])
    ' _启动窗口.超级列表框_中控显示.置标题 (Index, 5, Data [5])
    ' 判断是否存在金币数据
    .如果真 (取数组成员数 (Data) ＝ 6)
        _启动窗口.超级列表框_中控显示.置标题 (Index, 9, Data [6])

    .如果真结束

.计次循环尾 ()

.版本 2
.支持库 spec

.子程序 _导入_被选择
.局部变量 取运行目录, 文本型
.局部变量 ret, 逻辑型
.局部变量 FilePath, 文本型
.局部变量 FileData, 文本型
.局部变量 DataArr, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 Data, 文本型, , "0"
.局部变量 Index




' 判断是否正在运行
.' 如果真 (更新控件 ())
    ' 返回 ()
.如果真结束
' 执行到这里说明未存在任何执行的线程
' 导入帐号
' 1设置通用对话框属性
_启动窗口.通用对话框_导入路径.初始目录 ＝ 取运行目录 ()
' 2.打开文件
ret ＝ _启动窗口.通用对话框_导入路径.打开 ()
.如果真 (ret ＝ 假)
    ' 给用户一个提示
    信息框 (“打开文件失败”, 0, , )
    返回 ()

.如果真结束
' 3.获取文件路径
FilePath ＝ _启动窗口.通用对话框_导入路径.文件名
' 4.更新空间内容
_启动窗口.编辑框_导入帐号.内容 ＝ FilePath
' 5.获取文件内容
FileData ＝ 到文本 (读入文件 (FilePath))
调试输出 (FileData)
' 获取帐号数据成功之后 分割文本 按照换行符来分割
DataArr ＝ 分割文本 (FileData, #换行符, )
' 添加前清空数组 避免重复添加
_启动窗口.超级列表框_中控显示.全部删除 ()

' 遍历获取到的数组内容
.计次循环首 (取数组成员数 (DataArr), i)
    Data ＝ 分割文本 (DataArr [i], “----”, )
    ' 判断用户格式是否错误
    .如果真 (取数组成员数 (Data) ≠ 3)
        _启动窗口.超级列表框_中控显示.全部删除 ()
        信息框 (“帐号格式错误”, 0, , )
        返回 ()

    .如果真结束

    ' 插入索引从0开始
    Index ＝ _启动窗口.超级列表框_中控显示.插入表项 (, , , , , )
    调试输出 (Index)

    ' 序号
    _启动窗口.超级列表框_中控显示.置标题 (Index, 0, 到文本 (Index ＋ 1))
    ' 状态
    ' _启动窗口.超级列表框_中控显示.置标题 (Index, 5, “已完成”)

    ' 添加默认帐号数据
    _启动窗口.超级列表框_中控显示.置标题 (Index, 1, Data [1])
    _启动窗口.超级列表框_中控显示.置标题 (Index, 2, Data [2])
    _启动窗口.超级列表框_中控显示.置标题 (Index, 3, Data [3])
    ' _启动窗口.超级列表框_中控显示.置标题 (Index, 4, Data [4])
    ' _启动窗口.超级列表框_中控显示.置标题 (Index, 5, Data [5])
    ' 判断是否存在金币数据
    .如果真 (取数组成员数 (Data) ＝ 6)
        _启动窗口.超级列表框_中控显示.置标题 (Index, 9, Data [6])

    .如果真结束

.计次循环尾 ()

heyi8831

来了来了

zzz77f

源码在这里~~~

zzz77f

搞定了，随便回复一下结帖了兄弟们~~