.版本 2 .支持库 iext .支持库 RegEx .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 文件号 .局部变量 netinfo, 文本型 .局部变量 连接名称, 文本型, , "0" .局部变量 网卡名称, 文本型, , "0" .局部变量 MAC地址, 文本型, , "0" .局部变量 i .局部变量 sy 删除文件 (“C:\NETWORK”) 运行 (“CMD /c GETMAC /V /FO LIST>>C:\NETWORK”, 真, 1) 文件号 ＝ 打开文件 (“C:\NETWORK”, , ) netinfo ＝ 读入文本 (文件号, ) 关闭文件 (文件号) 取数据 (netinfo, “连接名:”, “网络适配器:”, 连接名称) 取数据 (netinfo, “网络适配器:”, “物理地址:”, 网卡名称) 取数据 (netinfo, “物理地址:”, “传输名称:”, MAC地址) ' 调试输出 (连接名称, 网卡名称, MAC地址) .计次循环首 (取数组成员数 (连接名称), i) sy ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (sy, 0, 删首尾空 (连接名称 [i])) 超级列表框1.置标题 (sy, 1, 删首尾空 (网卡名称 [i])) 超级列表框1.置标题 (sy, 2, 删首尾空 (MAC地址 [i])) .计次循环尾 () .子程序 取数据, 整数型 .参数 原文本, 文本型 .参数 左边文本, 文本型 .参数 右边文本, 文本型 .参数 返回数组, 文本型, 参考 可空 数组 .局部变量 正则, 正则表达式 .局部变量 搜索结果, 搜索结果, , "0" .局部变量 i, 整数型 正则.创建 (“(?<=\Q” ＋ 左边文本 ＋ “\E).*?(?=\Q” ＋ 右边文本 ＋ “\E)”, ) 搜索结果 ＝ 正则.搜索全部 (原文本) .如果真 (取数组成员数 (搜索结果) ＝ 0) 返回 (0) .如果真结束 清除数组 (返回数组) .计次循环首 (取数组成员数 (搜索结果), i) 加入成员 (返回数组, 搜索结果 [i].取匹配文本 (原文本, )) .计次循环尾 () 返回 (取数组成员数 (返回数组))