CheckIpList » 历史记录 » 版本 3
yangdefeng, 2022-06-22 11:22
| 1 | 3 | yangdefeng | h4. _*%{color:green}checkIpList%*_ |
|---|---|---|---|
| 2 | 2 | machenhe | 检测人物登录ip是否匹配指定文件的某行 |
| 3 | 1 | machenhe | |
| 4 | |||
| 5 | 标签:命令定义|checkIpList |
||
| 6 | |||
| 7 | *格式* |
||
| 8 | |命令名 |参数1 | |
||
| 9 | |checkIpList |文件路径 | |
||
| 10 | |||
| 11 | *说明* |
||
| 12 | * 参数1: 检测文件路径 |
||
| 13 | 3 | yangdefeng | 路径需要基于..\Mir200\Envir |
| 14 | 1 | machenhe | %{color:lightGrey}举例 |
| 15 | 设定检测路径为 |
||
| 16 | 3 | yangdefeng | \testlist.txt |
| 17 | 1 | machenhe | 完整检测路径 |
| 18 | 3 | yangdefeng | ..\Mir200\Envir\testlist.txt% |
| 19 | 1 | machenhe | |
| 20 | - |
||
| 21 | - |
||
| 22 | |||
| 23 | 3 | yangdefeng | h4. *%{color:deepskyblue}特戒引擎脚本示例:%* |
| 24 | 1 | machenhe | |
| 25 | bq. [<notextile>@</notextile>main] |
||
| 26 | #act |
||
| 27 | 3 | yangdefeng | [[mov]] s$file \数据文件\测试非预制数据文件.txt |
| 28 | 1 | machenhe | #say |
| 29 | 3 | yangdefeng | <添加ip到指定文件/<notextile>@</notextile>添加>\ \ |
| 30 | <清理ip列表文件/<notextile>@</notextile>清理>\ \ |
||
| 31 | <检测ip是否在文件中/<notextile>@</notextile>检测ip>\ \ |
||
| 32 | <检测文件存在/<notextile>@</notextile>存在>\ \ |
||
| 33 | 1 | machenhe | |
| 34 | [<notextile>@</notextile>添加] |
||
| 35 | #if |
||
| 36 | #act |
||
| 37 | [[addIpList]] <$str(s$file)> |
||
| 38 | [[readTxt]] <$str(s$file)> s0 |
||
| 39 | %{color:lightGrey};print命令在控制台输出文件内容% |
||
| 40 | print 文件内容-> s0 |
||
| 41 | |
||
| 42 | [<notextile>@</notextile>清理] |
||
| 43 | #if |
||
| 44 | #act |
||
| 45 | delIPList <$str(s$file)> |
||
| 46 | readTxt <$str(s$file)> s0 |
||
| 47 | print 文件内容-> s0 |
||
| 48 | |
||
| 49 | [<notextile>@</notextile>检测ip] |
||
| 50 | #if |
||
| 51 | *%{color:green}checkIpList%* <$str(s$file)> |
||
| 52 | #act |
||
| 53 | print ip存在于文件中 |
||
| 54 | #elseAct |
||
| 55 | print ip不存在于文件中 |
||
| 56 | |
||
| 57 | #if |
||
| 58 | #act |
||
| 59 | readTxt <$str(s$file)> s0 |
||
| 60 | print 文件内容-> s0 |
||
| 61 | |
||
| 62 | [<notextile>@</notextile>存在] |
||
| 63 | #if |
||
| 64 | [[fileExist]] <$str(s$file)> |
||
| 65 | #act |
||
| 66 | print 文件存在 |
||
| 67 | readTxt <$str(s$file)> s0 |
||
| 68 | print 文件内容-> s0 |
||
| 69 | #elseAct |
||
| 70 | print 文件不存在 |