用易语言制作一个小程序的问题 输入身份z 直接 得到 出生年月日

.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

编辑框1.输入方式 ＝ 3

编辑框1.最大允许长度 ＝ 18

.子程序 _按钮1_被单击

.局部变量 年, 文本型

.局部变量 月, 文本型

.局部变量 日, 文本型

.判断开始 (取文本长度 (编辑框1.内容) ≠ 18)

信息框 (“身份z号码错误！”, 0, )

.默认

年 ＝ 取文本中间 (编辑框1.内容, 7, 4)

月 ＝ 取文本中间 (编辑框1.内容, 11, 2)

日 ＝ 取文本中间 (编辑框1.内容, 13, 2)

调试输出 (年, 月, 日)

.判断结束

你给的 INI 里面有 三个 节名

可以判断每个节名下的 IpAddr=192.168.1.70 时 BootDisk=XP3*0|DPAN*0|GAME*0|NETGAME*0

否则 BootDisk=SYS*0|DPAN*0|GAME*0|NETGAME*0

但 里面 ini文件名 的 路径 你要改一下哦

/////////////////////////////////////////////////////////////////////////////////////////////////////

.版本 2

.子程序 _按钮1_被单击

.局部变量 ini文件名, 文本型

.局部变量 配置节名, 文本型, , "0"

.局部变量 IpAddr, 文本型

.局部变量 i, 整数型

ini文件名 ＝ 取运行目录 () ＋ “\ini.ini”

配置节名 ＝ 取配置节名 (ini文件名)

.计次循环首 (取数组成员数 (配置节名), i)

IpAddr ＝ 读配置项 (ini文件名, 配置节名 [i], “IpAddr”, )

.判断开始 (IpAddr ＝ “192.168.1.” ＋ 编辑框1.内容)

写配置项 (ini文件名, 配置节名 [i], “BootDisk”, “XP3*0|DPAN*0|GAME*0|NETGAME*0”)

.默认

写配置项 (ini文件名, 配置节名 [i], “BootDisk”, “SYS*0|DPAN*0|GAME*0|NETGAME*0”)

.判断结束

.计次循环尾 ()

.子程序 _按钮2_被单击

.局部变量 ini文件名, 文本型

.局部变量 配置节名, 文本型, , "0"

.局部变量 IpAddr, 文本型

.局部变量 i, 整数型

ini文件名 ＝ 取运行目录 () ＋ “\ini.ini”

配置节名 ＝ 取配置节名 (ini文件名)

.计次循环首 (取数组成员数 (配置节名), i)

IpAddr ＝ 读配置项 (ini文件名, 配置节名 [i], “IpAddr”, )

.判断开始 (IpAddr ≠ “192.168.1.” ＋ 编辑框1.内容)

写配置项 (ini文件名, 配置节名 [i], “BootDisk”, “XP3*0|DPAN*0|GAME*0|NETGAME*0”)

.默认

写配置项 (ini文件名, 配置节名 [i], “BootDisk”, “SYS*0|DPAN*0|GAME*0|NETGAME*0”)

.判断结束

.计次循环尾 ()