保存数组成员数

qwe850197907

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
c	整数型
y	文本型

计次循环首 (取数组成员数 (记录), c)
如果真 (记录 [c] ＝ 1)
y ＝ y ＋ “|” ＋ 到文本 (记录 [c])
如果真 (记录 [c] ＝ 2)
y ＝ y ＋ “|” ＋ 到文本 (记录 [c])
如果真 (记录 [c] ＝ 3)
y ＝ y ＋ “|” ＋ 到文本 (记录 [c])
如果真 (记录 [c] ＝ 4)
y ＝ y ＋ “|” ＋ 到文本 (记录 [c])

计次循环尾 ()
调试输出 (y)

子程序名	返回值类型	公开	备 注
删除成员_整数型_按数据
参数名	类 型	参考	可空	数组	备 注
欲删除成员的数组变量	整数型
欲删除的成员数据	整数型

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (欲删除成员的数组变量), i)
如果真 (欲删除成员的数组变量 [i] ＝ 欲删除的成员数据)
删除成员 (欲删除成员的数组变量, i, 1)
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
加入成员_不重复_文本型
参数名	类 型	参考	可空	数组	备 注
欲加入成员的数组变量	文本型
欲加入的成员数据	文本型

变量名	类 型	静态	数组	备 注
i	整数型
tf	逻辑型

计次循环首 (取数组成员数 (欲加入成员的数组变量), i)
如果真 (欲加入成员的数组变量 [i] ＝ 欲加入的成员数据)
tf ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (tf))
加入成员 (欲加入成员的数组变量, 欲加入的成员数据)

子程序名	返回值类型	公开	备 注
加入成员_不重复_整数型
参数名	类 型	参考	可空	数组	备 注
欲加入成员的数组变量	整数型
欲加入的成员数据	整数型

变量名	类 型	静态	数组	备 注
i	整数型
tf	逻辑型

计次循环首 (取数组成员数 (欲加入成员的数组变量), i)
如果真 (欲加入成员的数组变量 [i] ＝ 欲加入的成员数据)
tf ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (tf))
加入成员 (欲加入成员的数组变量, 欲加入的成员数据)

子程序名	返回值类型	公开	备 注
_选择框1_被单击

判断 (选择框1.选中)
加入成员_不重复_整数型 (记录, 1)
删除成员_整数型_按数据 (记录, 1)

子程序名	返回值类型	公开	备 注
_选择框2_被单击

判断 (选择框2.选中)
加入成员_不重复_整数型 (记录, 2)
删除成员_整数型_按数据 (记录, 2)

子程序名	返回值类型	公开	备 注
_选择框3_被单击

判断 (选择框3.选中)
加入成员_不重复_整数型 (记录, 3)
删除成员_整数型_按数据 (记录, 3)

子程序名	返回值类型	公开	备 注
_选择框4_被单击

判断 (选择框4.选中)
加入成员_不重复_整数型 (记录, 4)
删除成员_整数型_按数据 (记录, 4)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 c, 整数型<br /> .局部变量 y, 文本型<br /> <br /> .计次循环首 (取数组成员数 (记录), c)<br />     .如果真 (记录 [c] ＝ 1)<br /> <br />         y ＝ y ＋ “|” ＋ 到文本 (记录 [c])<br />     .如果真结束<br />     .如果真 (记录 [c] ＝ 2)<br /> <br />         y ＝ y ＋ “|” ＋ 到文本 (记录 [c])<br />     .如果真结束<br />     .如果真 (记录 [c] ＝ 3)<br /> <br />         y ＝ y ＋ “|” ＋ 到文本 (记录 [c])<br />     .如果真结束<br />     .如果真 (记录 [c] ＝ 4)<br /> <br />         y ＝ y ＋ “|” ＋ 到文本 (记录 [c])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (y)<br /> <br /> .子程序 删除成员_整数型_按数据<br /> .参数 欲删除成员的数组变量, 整数型, 数组<br /> .参数 欲删除的成员数据, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (欲删除成员的数组变量), i)<br />     .如果真 (欲删除成员的数组变量 <i> ＝ 欲删除的成员数据)<br />         删除成员 (欲删除成员的数组变量, i, 1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 加入成员_不重复_文本型<br /> .参数 欲加入成员的数组变量, 文本型, 数组<br /> .参数 欲加入的成员数据, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 tf, 逻辑型<br /> <br /> .计次循环首 (取数组成员数 (欲加入成员的数组变量), i)<br />     .如果真 (欲加入成员的数组变量 <i> ＝ 欲加入的成员数据)<br />         tf ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取反 (tf))<br />     加入成员 (欲加入成员的数组变量, 欲加入的成员数据)<br /> .如果真结束<br /> <br /> <br /> .子程序 加入成员_不重复_整数型<br /> .参数 欲加入成员的数组变量, 整数型, 数组<br /> .参数 欲加入的成员数据, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 tf, 逻辑型<br /> <br /> .计次循环首 (取数组成员数 (欲加入成员的数组变量), i)<br />     .如果真 (欲加入成员的数组变量 <i> ＝ 欲加入的成员数据)<br />         tf ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取反 (tf))<br />     加入成员 (欲加入成员的数组变量, 欲加入的成员数据)<br /> .如果真结束<br /> <br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .判断开始 (选择框1.选中)<br />     加入成员_不重复_整数型 (记录, 1)<br /> .默认<br />     删除成员_整数型_按数据 (记录, 1)<br /> .判断结束<br /> <br /> <br /> .子程序 _选择框2_被单击<br /> <br /> .判断开始 (选择框2.选中)<br />     加入成员_不重复_整数型 (记录, 2)<br /> .默认<br />     删除成员_整数型_按数据 (记录, 2)<br /> .判断结束<br /> <br /> <br /> .子程序 _选择框3_被单击<br /> <br /> .判断开始 (选择框3.选中)<br />     加入成员_不重复_整数型 (记录, 3)<br /> .默认<br />     删除成员_整数型_按数据 (记录, 3)<br /> .判断结束<br /> <br /> <br /> .子程序 _选择框4_被单击<br /> <br /> .判断开始 (选择框4.选中)<br />     加入成员_不重复_整数型 (记录, 4)<br /> .默认<br />     删除成员_整数型_按数据 (记录, 4)<br /> .判断结束

如何 保存 数组成员数    下次运行软件的时候可以   恢复数组

宇智波·晓易

qwe850197907 发表于 2015-4-26 18:29
问题 要怎么写  我没写过 保存配置。  不知道怎么写。

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 记录, 文本型, , "0"

.子程序 __启动窗口_创建完毕
.局部变量 str, 文本型

str ＝ 到文本 (读入文件 (取运行目录 () ＋ “\arrydata.txt”))
记录 ＝ 分割文本 (str, “-2-3c-4-!5!A6!3!-”, )

.子程序 __启动窗口_可否被关闭, 逻辑型
.局部变量 i, 整数型
.局部变量 str, 文本型

.计次循环首 (取数组成员数 (记录), i)
    str ＝ str ＋ 记录 ＋ “-2-3c-4-!5!A6!3!-”
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\arrydata.txt”, 到字节集 (str))

.子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。
.参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。
.参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分    真 = 区分大小写。
.局部变量 局_位置, 整数型
.局部变量 局_位置1, 整数型
.局部变量 局_前面文本, 文本型
.局部变量 局_后面文本, 文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
是否区分大小写 ＝ 取反 (是否区分大小写)
局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ≠ -1)
    局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本)
.如果真结束
局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)
.如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)
    返回 (“”)
.如果真结束
返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))


QQ2225788927

宇智波·晓易

保存为txt，启动后在读入分割

qwe850197907

宇智波·晓易 发表于 2015-4-26 18:24
保存为txt，启动后在读入分割

问题 要怎么写  我没写过 保存配置。  不知道怎么写。

哭泣的訫

写个ini文件或者文本   ini 是写配置项   文本是写到文件

qwe850197907

宇智波·晓易 发表于 2015-4-26 18:32
.版本 2

.程序集 窗口程序集_启动窗口

错误(10044): 不能将“文本型 数组”数据转换到“整数型”数据。