分割数据 01会变成1，何解

woyao2991314

  

子程序名	返回值类型	公开	备 注
处理文件内容
参数名	类 型	参考	可空	数组	备 注
处理序号	整数型
文件路径	文本型

变量名	类 型	静态	数组	备 注
分割	文本型		0
a	整数型
数组	文本型		0
文本	文本型
启动时间	整数型
文本数组	文本型		0
次数数组	整数型		0
x	整数型
文件内容	文本型
表项	整数型
node	节点
val	整数型
i	整数型
ic	整数型

临界.进入 ()
线程使用数 ＝ 线程使用数 ＋ 1
临界.退出 ()
文件内容 ＝ 到文本 (读入文件 (文件路径))
分割 ＝ 分割文本 (文件内容, “,”, )
计次循环首 (取数组成员数 (分割), i)
分割 [i] ＝ 到文本 (到整数 (分割 [i]))
计次循环尾 ()
计次循环首 (取数组成员数 (分割), i)
如果真 (node.加入属性 (分割 [i], 1) ＝ 假)
node.取数值 (分割 [i], val)
node.修改属性 (分割 [i], val ＋ 1)

计次循环尾 ()
计次循环首 (取数组成员数 (分割), i)
val ＝ 0
node.取数值 (到文本 (i), val)
分割 [i] ＝ 到文本 (val)
计次循环尾 ()
计次循环首 (取数组成员数 (分割), ic)
' 调试输出 (分割 [ic])
排数据结果 ＝ 排数据结果 ＋ 到文本 (ic) ＋ “ ” ＋ 分割 [ic] ＋ #换行符
计次循环尾 ()
临界.进入 ()
线程使用数 ＝ 线程使用数 － 1
临界.退出 ()

i支持库列表	支持库注释
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .子程序 处理文件内容<br /> .参数 处理序号, 整数型<br /> .参数 文件路径, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 文本, 文本型<br /> .局部变量 启动时间, 整数型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 次数数组, 整数型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 表项, 整数型<br /> .局部变量 node, 节点<br /> .局部变量 val, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 ic, 整数型<br /> <br /> 临界.进入 ()<br /> 线程使用数 ＝ 线程使用数 ＋ 1<br /> 临界.退出 ()<br /> 文件内容 ＝ 到文本 (读入文件 (文件路径))<br /> <br /> <br /> <br /> 分割 ＝ 分割文本 (文件内容, “,”, )<br /> .计次循环首 (取数组成员数 (分割), i)<br />     分割 <i> ＝ 到文本 (到整数 (分割 <i>))<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (分割), i)<br />     .如果真 (node.加入属性 (分割 <i>, 1) ＝ 假)<br />         node.取数值 (分割 <i>, val)<br />         node.修改属性 (分割 <i>, val ＋ 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割), i)<br />     val ＝ 0<br />     node.取数值 (到文本 (i), val)<br />     分割 <i> ＝ 到文本 (val)<br /> .计次循环尾 ()<br /> <br /> <br /> .计次循环首 (取数组成员数 (分割), ic)<br />     ' 调试输出 (分割 [ic])<br /> <br />     排数据结果 ＝ 排数据结果 ＋ 到文本 (ic) ＋ “ ” ＋ 分割 [ic] ＋ #换行符<br /> <br /> .计次循环尾 ()<br /> 临界.进入 ()<br /> 线程使用数 ＝ 线程使用数 － 1<br /> 临界.退出 ()

[e=1][/e]

如果数据= 前面有0 例如01 会精简成1，要保持原样 何解

JY暗影

分割 [i] ＝ 到文本 (到整数 (分割 [i]))   改成   分割 [i] ＝ 分割 [i]

woyao2991314

JY暗影 发表于 2025-3-25 12:59
分割  ＝ 到文本 (到整数 (分割 ))   改成   分割  ＝ 分割

计次循环首 (取数组成员数 (分割), ic)
' 调试输出 (分割 [ic])
排数据结果 ＝ 排数据结果 ＋ 到文本 (ic) ＋ “ ” ＋ 分割 [ic] ＋ #换行符
计次循环尾 ()