1.5 Codesys鍦ㄨ秴闀垮瓧绗︿覆锛堝ぇ浜�255锛夊垽鏂�涓�鑷寸殑鍔熻兘

钃濊壊娓�婀�

1銆佸垽鏂�瓒呴暱瀛楃�︿覆1涓庤秴闀垮瓧绗︿覆2瀹屽叏涓�鑷淬�傚叿浣撳姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION StringEquals : BOOL
2. VAR_INPUT
3.         InString1 : STRING(1000);
4.         InString2 : STRING(1000);
5. END_VAR
6. VAR       
7.         pbyTemp1  : POINTER TO BYTE;
8.         pbyTemp2  : POINTER TO BYTE;
9. END_VAR
11. //姣旇緝瓒呴暱瀛楃�︿覆1鍜岃秴闀垮瓧绗︿覆2鍏ㄩ儴涓�鑷�
12. StringEquals := TRUE;
13. pbyTemp1 := ADR(InString1);
14. pbyTemp2 := ADR(InString2);
15. WHILE pbyTemp1^ <> 0 DO
16.         IF pbyTemp1^ <> pbyTemp2^ THEN
17.                 StringEquals := FALSE;
18.                 EXIT;
19.         END_IF;
20.         pbyTemp1 := pbyTemp1 + 1;
21.         pbyTemp2 := pbyTemp2 + 1;
22. END_WHILE;
24. IF pbyTemp2^ <> 0 THEN
25.         StringEquals := FALSE;
26. END_IF;

澶嶅埗浠ｇ爜

2銆佸垽鏂�瓒呴暱瀛楃�︿覆1涓庤秴闀垮瓧绗︿覆2涓�鑷达紝浣嗗厑璁歌秴闀垮瓧绗︿覆2姣斿瓧绗︿覆1闀裤�傚叿浣撳姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION StringEqualsAtStart : BOOL
2. VAR_INPUT
3.         InString1 : STRING(1000);
4.         InString2 : STRING(1000);
5. END_VAR
6. VAR
7.         pbyTemp1  : POINTER TO BYTE;
8.         pbyTemp2  : POINTER TO BYTE;
9. END_VAR
11. //姣旇緝瓒呴暱瀛楃�︿覆1鍜岃秴闀垮瓧绗︿覆2涓�鑷�,瓒呴暱瀛楃�︿覆2鍙�浠ラ暱浜庤秴闀垮瓧绗︿覆1
12. StringEqualsAtStart := TRUE;
13. pbyTemp1 := ADR(InString1);
14. pbyTemp2 := ADR(InString2);
15. WHILE pbyTemp1^ <> 0 DO
16.         IF pbyTemp1^ <> pbyTemp2^ THEN
17.                 StringEqualsAtStart := FALSE;
18.                 EXIT;
19.         END_IF;
20.         pbyTemp1 := pbyTemp1 + 1;
21.         pbyTemp2 := pbyTemp2 + 1;
22. END_WHILE;

澶嶅埗浠ｇ爜

2銆佸垽鏂�瓒呴暱瀛楃�︿覆1涓庤秴闀垮瓧绗︿覆2鐨勫墠鍗婇儴鍒嗕竴鑷达紝涓旇秴闀垮瓧绗︿覆2鏈夋寚瀹氱殑鍒嗛殧绗︺�傚叿浣撳姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION StringEqualsAtStartWithDelimiter : BOOL
2. VAR_INPUT
3.         InString1   : STRING(1000);
4.         InString2   : STRING(1000);
5.         InDelimiter : BYTE;
6. END_VAR
7. VAR
8.         pbyTemp1    : POINTER TO BYTE;
9.         pbyTemp2    : POINTER TO BYTE;
10. END_VAR
12. //姣旇緝瓒呴暱瀛楃�︿覆1鍜岃秴闀垮瓧绗︿覆2涓�鑷�,骞朵笖鏈�鍚庝负鎸囧畾鐨勫垎闅旂��
13. StringEqualsAtStartWithDelimiter := TRUE;
14. pbyTemp1 := ADR(InString1);
15. pbyTemp2 := ADR(InString2);
16. WHILE pbyTemp1^ <> 0 AND pbyTemp2^<> 0 DO
17.         IF pbyTemp1^ <>pbyTemp2^ THEN
18.            StringEqualsAtStartWithDelimiter := FALSE;
19.            EXIT;
20.         END_IF;
21.         pbyTemp1 := pbyTemp1 + 1;
22.         pbyTemp2 := pbyTemp2 + 1;
23. END_WHILE;
25. IF pbyTemp2^ <> InDelimiter THEN
26.         StringEqualsAtStartWithDelimiter := FALSE;
27. END_IF;

澶嶅埗浠ｇ爜

浠ヤ笂鍔熻兘鐨勫疄鐜颁緷闈犳寚閽堟柟娉曪紝瀵规瘮瀛楃�︿覆闀垮害鐞嗚�轰笂娌℃湁闄愬埗銆�