易语言仿写b站up程序员血月python教程实战项目。

飞龙雪狐

飞龙雪狐 发表于 2023-4-6 18:07
[e=0].版本 2
.支持库 spec

用两个循环。第一个执行完后还可以再操作一次

飞龙雪狐

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
数组1	文本型	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
功能选择	整数型
i	整数型
记录文本	文本型
新信息	文本型
索引	整数型

记录文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\数据收集记录.txt”))
调试输出 (记录文本)
数组1 ＝ 分割文本 (记录文本, “,”, )
调试输出 (数组1)
标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符 )
标准输出 (, “请输入选择功能：”)
功能选择 ＝ 到整数 (标准输入 ())
判断 (功能选择 ＝ 1)
计次循环首 (取数组成员数 (数组1), i)
标准输出 (, 数组1 [i] ＋ #换行符 )
计次循环尾 ()
调试输出 (数组1)
标准输入 ()
判断 (功能选择 ＝ 2)
标准输出 (, “请输入新建人物信息：”)
加入成员 (数组1, 标准输入 ())
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 3)
标准输出 (, “请输入cha询人物姓名：”)
新信息 ＝ 标准输入 ()
计次循环首 (取数组成员数 (数组1), i)
调试输出 (数组1 [i])
如果真 (取文本左边 (数组1 [i], 4) ＝ 新信息)
标准输出 (, 数组1 [i])
跳出循环 ()

计次循环尾 ()
标准输入 ()
判断 (功能选择 ＝ 4)
标准输出 (, “请输入修改人物信息索引：”)
索引 ＝ 到整数 (标准输入 ())
标准输出 (, “欲修改人物信息请输入：”)
新信息 ＝ 标准输入 ()
插入成员 (数组1, 索引, 新信息)
删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
判断 (功能选择 ＝ 5)
标准输出 (, “请输入当前欲删除人物信息索引：”)
标准输入 ()
删除成员 (数组1, 到整数 (标准输入 ()), )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 0)
标准输出 (, “稍后退出”)
标准输入 ()
结束 ()
判断 (功能选择 ＝ 9)
标准输出 (, 记录文本)
标准输入 ()



标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符 )
标准输出 (, “请输入选择功能：”)
功能选择 ＝ 到整数 (标准输入 ())
判断 (功能选择 ＝ 1)
计次循环首 (取数组成员数 (数组1), i)
标准输出 (, 数组1 [i] ＋ #换行符 )
计次循环尾 ()
调试输出 (数组1)
标准输入 ()
判断 (功能选择 ＝ 2)
标准输出 (, “请输入新建人物信息：”)
加入成员 (数组1, 标准输入 ())
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 3)
标准输出 (, “请输入cha询人物姓名：”)
新信息 ＝ 标准输入 ()
计次循环首 (取数组成员数 (数组1), i)
调试输出 (数组1 [i])
如果真 (取文本左边 (数组1 [i], 4) ＝ 新信息)
标准输出 (, 数组1 [i])
跳出循环 ()

计次循环尾 ()
标准输入 ()
判断 (功能选择 ＝ 4)
标准输出 (, “请输入修改人物信息索引：”)
索引 ＝ 到整数 (标准输入 ())
标准输出 (, “欲修改人物信息请输入：”)
新信息 ＝ 标准输入 ()
插入成员 (数组1, 索引, 新信息)
删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
判断 (功能选择 ＝ 5)
标准输出 (, “请输入当前欲删除人物信息索引：”)
标准输入 ()
删除成员 (数组1, 到整数 (标准输入 ()), )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 0)
标准输出 (, “稍后退出”)
标准输入 ()
结束 ()
判断 (功能选择 ＝ 9)
标准输出 (, 记录文本)
标准输入 ()


返回 (0)  ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 数组1, 文本型, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 功能选择, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 记录文本, 文本型<br /> .局部变量 新信息, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> 记录文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\数据收集记录.txt”))<br /> 调试输出 (记录文本)<br /> 数组1 ＝ 分割文本 (记录文本, “,”, )<br /> 调试输出 (数组1)<br /> 标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符)<br /> 标准输出 (, “请输入选择功能：”)<br /> 功能选择 ＝ 到整数 (标准输入 ())<br /> .判断开始 (功能选择 ＝ 1)<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         标准输出 (, 数组1 <i> ＋ #换行符)<br />     .计次循环尾 ()<br />     调试输出 (数组1)<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 2)<br />     标准输出 (, “请输入新建人物信息：”)<br />     加入成员 (数组1, 标准输入 ())<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 3)<br />     标准输出 (, “请输入cha询人物姓名：”)<br />     新信息 ＝ 标准输入 ()<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         调试输出 (数组1 <i>)<br />         .如果真 (取文本左边 (数组1 <i>, 4) ＝ 新信息)<br />             标准输出 (, 数组1 <i>)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     标准输入 ()<br /> .判断 (功能选择 ＝ 4)<br />     标准输出 (, “请输入修改人物信息索引：”)<br />     索引 ＝ 到整数 (标准输入 ())<br />     标准输出 (, “欲修改人物信息请输入：”)<br />     新信息 ＝ 标准输入 ()<br />     插入成员 (数组1, 索引, 新信息)<br />     删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br /> <br /> .判断 (功能选择 ＝ 5)<br />     标准输出 (, “请输入当前欲删除人物信息索引：”)<br />     标准输入 ()<br />     删除成员 (数组1, 到整数 (标准输入 ()), )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 0)<br />     标准输出 (, “稍后退出”)<br />     标准输入 ()<br />     结束 ()<br /> .判断 (功能选择 ＝ 9)<br />     标准输出 (, 记录文本)<br />     标准输入 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> 标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符)<br /> 标准输出 (, “请输入选择功能：”)<br /> 功能选择 ＝ 到整数 (标准输入 ())<br /> .判断开始 (功能选择 ＝ 1)<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         标准输出 (, 数组1 <i> ＋ #换行符)<br />     .计次循环尾 ()<br />     调试输出 (数组1)<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 2)<br />     标准输出 (, “请输入新建人物信息：”)<br />     加入成员 (数组1, 标准输入 ())<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 3)<br />     标准输出 (, “请输入cha询人物姓名：”)<br />     新信息 ＝ 标准输入 ()<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         调试输出 (数组1 <i>)<br />         .如果真 (取文本左边 (数组1 <i>, 4) ＝ 新信息)<br />             标准输出 (, 数组1 <i>)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     标准输入 ()<br /> .判断 (功能选择 ＝ 4)<br />     标准输出 (, “请输入修改人物信息索引：”)<br />     索引 ＝ 到整数 (标准输入 ())<br />     标准输出 (, “欲修改人物信息请输入：”)<br />     新信息 ＝ 标准输入 ()<br />     插入成员 (数组1, 索引, 新信息)<br />     删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br /> <br /> .判断 (功能选择 ＝ 5)<br />     标准输出 (, “请输入当前欲删除人物信息索引：”)<br />     标准输入 ()<br />     删除成员 (数组1, 到整数 (标准输入 ()), )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 0)<br />     标准输出 (, “稍后退出”)<br />     标准输入 ()<br />     结束 ()<br /> .判断 (功能选择 ＝ 9)<br />     标准输出 (, 记录文本)<br />     标准输入 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)  ' 可以根据您的需要返回任意数值