SCL 实现字符串比较

[table]
[tr][td]西门子博途编写程序：
1.数据块中定义的数组中含有N个元素，数组元素中类型是字符串；
2.输入字符与目标数据块中的N个元素中的字符数据比较；[/td][/tr]
[/table]

下面是一个实现字符串比较的SCL代码示例：

[code]DATA_BLOCK DB_TEST
    ARRAY_STRINGS : ARRAY[1..N] 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[i] THEN  // 如果匹配到了
        match_found := TRUE;  // 设为已匹配到
    END_IF
    i := i + 1; // 索引加1
END_WHILE[/code]

这段代码首先定义了一个包含N个长度为20的字符串数组的数据块，然后定义了一个输入参数 `input_string` 和一个输出参数 `match_found`，其中 `match_found` 表示是否匹配到输入的字符串。

在变量定义中，我们初始化了一个循环索引 `i`，一开始设为1，表示从第一个字符串开始比较。

然后使用一个 `WHILE` 循环来逐一比较每个字符串，只要匹配到其中任何一个，就将 `match_found` 设为 `TRUE`，并跳出循环。如果比较完了所有字符串还是没有匹配到，那么 `match_found` 保持为 `FALSE`。

当然，在实际应用中可能还需要加上一些判断，比如输入的字符串是否符合要求等等。