SCL 实现字符串比较
西门子博途编写程序：
1.数据块中定义的数组中含有N个元素，数组元素中类型是字符串；
2.输入字符与目标数据块中的N个元素中的字符数据比较；
下面是一个实现字符串比较的SCL代码示例：
DATA_BLOCK DB_TEST
ARRAY_STRINGS : ARRAY OF STRING(20);// N个长度为20的字符串数组
END_DATA_BLOCK
VAR_INPUT
input_string : STRING(20); // 输入的字符串，长度为20
END_VAR
VAR_OUTPUT
match_found : BOOL;// 是否匹配到
END_VAR
VAR
i : INT := 1; // 循环索引
END_VAR
match_found := FALSE;// 预设为未匹配到
WHILE NOT match_found AND i <= N DO// 如果未匹配到且还没比较完N个元素，则继续比较
IF input_string = DB_TEST.ARRAY_STRINGS THEN// 如果匹配到了
match_found := TRUE;// 设为已匹配到
END_IF
i := i + 1; // 索引加1
END_WHILE
这段代码首先定义了一个包含N个长度为20的字符串数组的数据块，然后定义了一个输入参数 `input_string` 和一个输出参数 `match_found`，其中 `match_found` 表示是否匹配到输入的字符串。
在变量定义中，我们初始化了一个循环索引 `i`，一开始设为1，表示从第一个字符串开始比较。
然后使用一个 `WHILE` 循环来逐一比较每个字符串，只要匹配到其中任何一个，就将 `match_found` 设为 `TRUE`，并跳出循环。如果比较完了所有字符串还是没有匹配到，那么 `match_found` 保持为 `FALSE`。
当然，在实际应用中可能还需要加上一些判断，比如输入的字符串是否符合要求等等。
页:
[1]