导入之后变成倒序了,

zzz77f · 发表于 2025-1-26 03:19:28

变量名	类型	静态	数组	备注
取运行目录	文本型
ret	逻辑型
FilePath	文本型
FileData	文本型
DataArr	文本型		0
i	整数型
Data	文本型		0
Index	整数型

' 添加前清空数组避免重复添加
' _启动窗口.超级列表框_中控.全部删除 ()
_启动窗口.超级列表框_未用.全部删除 ()
' 导入帐号
' 1设置通用对话框属性
_启动窗口.通用对话框_导入路径.初始目录＝取运行目录 ()
' 2.打开文件
ret ＝ _启动窗口.通用对话框_导入路径.打开 ()

如果真 (ret ＝假)

' 给用户一个提示

信息框 (“打开文件失败”, 0, , )

返回 ()

' 3.获取文件路径
FilePath ＝ _启动窗口.通用对话框_导入路径.文件名
' 4.更新空间内容
_启动窗口.编辑框_导入帐号.内容＝ FilePath
' 5.获取文件内容
FileData ＝到文本 (读入文件 (FilePath))
' 获取帐号数据成功之后分割文本按照换行符来分割
DataArr ＝分割文本 (FileData, #换行符, )
' 遍历获取到的数组内容

计次循环首 (取数组成员数 (DataArr), i)

Data ＝分割文本 (DataArr [i], “----”, )

' 判断用户格式是否错误

如果真 (取数组成员数 (Data) ≠ 3)

_启动窗口.超级列表框_未用.全部删除 ()

信息框 (“帐号格式错误”, 0, , )

返回 ()

' 插入索引从0开始

Index ＝ _启动窗口.超级列表框_未用.插入表项 (, , , , , )

_启动窗口.超级列表框_未用.置标题 (Index, 0, 到文本 (Index ＋ i)) ' 序号

' 添加默认帐号数据

_启动窗口.超级列表框_未用.置标题 (Index, 1, Data [1])

_启动窗口.超级列表框_未用.置标题 (Index, 2, Data [2])

_启动窗口.超级列表框_未用.置标题 (Index, 3, Data [3])

如果真 (取数组成员数 (Data) ＝ 4)

_启动窗口.超级列表框_未用.置标题 (Index, 4, Data [4])

如果 (取数组成员数 (Data) ≠ 5)

_启动窗口.超级列表框_未用.置标题 (Index, 5, “未运行”)

_启动窗口.超级列表框_未用.置标题 (Index, 5, Data [5])

如果真 (取数组成员数 (Data) ＝ 6)

_启动窗口.超级列表框_未用.置标题 (Index, 9, Data [6])

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext<br />
<br />
.局部变量 取运行目录, 文本型<br />
.局部变量 ret, 逻辑型<br />
.局部变量 FilePath, 文本型<br />
.局部变量 FileData, 文本型<br />
.局部变量 DataArr, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 Data, 文本型, , "0"<br />
.局部变量 Index, 整数型<br />
<br />
<br />
' 添加前清空数组 避免重复添加<br />
' _启动窗口.超级列表框_中控.全部删除 ()<br />
_启动窗口.超级列表框_未用.全部删除 ()<br />
<br />
' 导入帐号<br />
' 1设置通用对话框属性<br />
_启动窗口.通用对话框_导入路径.初始目录 ＝ 取运行目录 ()<br />
' 2.打开文件<br />
ret ＝ _启动窗口.通用对话框_导入路径.打开 ()<br />
.如果真 (ret ＝ 假)<br />
    ' 给用户一个提示<br />
    信息框 (“打开文件失败”, 0, , )<br />
    返回 ()<br />
<br />
.如果真结束<br />
<br />
' 3.获取文件路径<br />
FilePath ＝ _启动窗口.通用对话框_导入路径.文件名<br />
' 4.更新空间内容<br />
_启动窗口.编辑框_导入帐号.内容 ＝ FilePath<br />
' 5.获取文件内容<br />
FileData ＝ 到文本 (读入文件 (FilePath))<br />
' 获取帐号数据成功之后 分割文本 按照换行符来分割<br />
DataArr ＝ 分割文本 (FileData, #换行符, )<br />
<br />
' 遍历获取到的数组内容<br />
.计次循环首 (取数组成员数 (DataArr), i)<br />
    Data ＝ 分割文本 (DataArr <i>, “----”, )<br />
    ' 判断用户格式是否错误<br />
    .如果真 (取数组成员数 (Data) ≠ 3)<br />
        _启动窗口.超级列表框_未用.全部删除 ()<br />
        信息框 (“帐号格式错误”, 0, , )<br />
        返回 ()<br />
    .如果真结束<br />
<br />
    ' 插入索引从0开始<br />
    Index ＝ _启动窗口.超级列表框_未用.插入表项 (, , , , , )<br />
    _启动窗口.超级列表框_未用.置标题 (Index, 0, 到文本 (Index ＋ i))  ' 序号<br />
<br />
    ' 添加默认帐号数据<br />
    _启动窗口.超级列表框_未用.置标题 (Index, 1, Data [1])<br />
    _启动窗口.超级列表框_未用.置标题 (Index, 2, Data [2])<br />
    _启动窗口.超级列表框_未用.置标题 (Index, 3, Data [3])<br />
<br />
    .如果真 (取数组成员数 (Data) ＝ 4)<br />
        _启动窗口.超级列表框_未用.置标题 (Index, 4, Data [4])<br />
    .如果真结束<br />
    .如果 (取数组成员数 (Data) ≠ 5)<br />
        _启动窗口.超级列表框_未用.置标题 (Index, 5, “未运行”)<br />
<br />
    .否则<br />
        _启动窗口.超级列表框_未用.置标题 (Index, 5, Data [5])<br />
    .如果结束<br />
    .如果真 (取数组成员数 (Data) ＝ 6)<br />
        _启动窗口.超级列表框_未用.置标题 (Index, 9, Data [6])<br />
    .如果真结束<br />
<br />
<br />
.计次循环尾 ()