1.4 Codesys鍦ㄥ瓧绗︿覆1鏌ユ壘瀛楃�︿覆2鐨勪綅缃�(浠庡乏鍚戝彸銆佷粠鍙冲悜宸�)鍔熻兘

tt99166

1銆佸湪闀垮瓧绗︿覆String1涓�鐨勬寚瀹氫綅缃�寮�濮嬶紝浠庡乏鍚戝彸鏌ユ壘鐭�瀛楃�︿覆String2鏈�鍏堝嚭鐜扮殑浣嶇疆銆傚叿浣撳姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION FINDP : INT
2. VAR_INPUT
3.         InString1 : STRING(255);          //闀垮瓧绗︿覆
4.         InString2 : STRING(255);          //鐭�瀛楃�︿覆
5.         InPos     : INT;                  //鏌ユ壘璧峰�嬩綅缃�
6. END_VAR
7. VAR
8.         iPostion  : INT;
9.         iLength1  : INT;       
10.         iLength2  : INT;
11. END_VAR
14. //璁＄畻浠庡瓧绗︿覆String1鎸囧畾鐨勪綅缃�寮�濮嬪嚭鐜癝tring2鐨勪綅缃�锛堜粠宸﹀線鍙筹級
15. iLength1 := Standard.LEN(InString1);
16. iLength2 := Standard.LEN(InString2);
17. IF iLength1 < iLength2 OR iLength2 = 0 THEN
18.    RETURN;
19. END_IF;
21. FOR iPostion := MAX(InPos,1) TO (iLength1 - iLength2 + 1) BY 1 DO
22.         IF Standard.MID(InString1,iLength2,iPostion) = InString2 THEN
23.                 FINDP := iPostion;
24.                 RETURN;
25.         END_IF;
26. END_FOR;
27. FINDP := 0;

澶嶅埗浠ｇ爜

娴嬭瘯缁撴灉濡備笅锛�

2銆佸湪闀垮瓧绗︿覆String1涓�鐨勬渶鍙崇��寮�濮嬶紝浠庡彸鍚戝乏鏌ユ壘鐭�瀛楃�︿覆String2鏈�鍏堝嚭鐜扮殑浣嶇疆銆傚叿浣撳姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION FINDB : INT
2. VAR_INPUT
3.         InString1 : STRING(255);          //闀垮瓧绗︿覆
4.         InString2 : STRING(255);          //鐭�瀛楃�︿覆
5. END_VAR
6. VAR
7.         iPosition : INT;
8.         iLength1  : INT;       
9.         iLength2  : INT;
10. END_VAR
12. //璁＄畻String2鍦⊿tring1鍑虹幇鐨勪綅缃�锛堜粠鍙冲線宸︼級
13. iLength1 := Standard.LEN(InString1);
14. iLength2 := Standard.LEN(InString2);
15. IF iLength1 < iLength2 THEN
16.    FindB := 0;
17.    RETURN;
18. END_IF;
19. FOR iPosition := iLength1 - iLength2 + 1 TO 1 BY -1 DO
20.         IF Standard.MID(InString1,iLength2,iPosition) = InString2 THEN
21.            FindB := iPosition;
22.            RETURN;
23.         END_IF;
24. END_FOR;
25. FindB := 0;

澶嶅埗浠ｇ爜

娴嬭瘯缁撴灉濡備笅锛�

   浠ヤ笂鍔熻兘鐨勫疄鐜颁緷闈燬tandard搴撶殑瀛楃�︿覆鍔熻兘锛屽洜姝ゆ煡鎵惧瓧绗︿覆闀垮害鏈�澶ч暱搴�255銆�