CODESYS 涓�鐨勫瓧绗︿覆鍙婂叾鍩烘湰鎿嶄綔

鏃犲績椋炴壃

寮曡█

鍦ㄥ伐涓氳嚜鍔ㄥ寲缂栫▼涓�锛屽瓧绗︿覆鎿嶄綔鏄�涓�涓�甯歌�佷笖閲嶈�佺殑閮ㄥ垎銆侰ODESYS 浣滀负涓�涓�寮哄ぇ鐨勭紪绋嬪钩鍙帮紝涔熸彁渚涗簡涓板瘜鐨勫瓧绗︿覆澶勭悊鍔熻兘銆傛湰鏂囧皢璇︾粏浠嬬粛 CODESYS 涓�鐨勫瓧绗︿覆绫诲瀷銆佸熀鏈�鎿嶄綔鍑芥暟锛屼互鍙婂�備綍鍦ㄥ疄闄呮�堜緥涓�搴旂敤杩欎簺鎿嶄綔銆傚悓鏃讹紝鎴戜滑杩樹細璁ㄨ�哄�備綍杩涜�屽瓧绗︿覆涓庡叾浠栨暟鎹�绫诲瀷涔嬮棿鐨勮浆鎹�銆�

1  瀛楃�︿覆绫诲瀷

鍦� CODESYS 涓�锛屽瓧绗︿覆绫诲瀷涓昏�佸寘鎷� STRING 鍜� WSTRING銆係TRING 鏄�鐢ㄤ簬琛ㄧず鏍囧噯鐨� ASCII 瀛楃�︿覆锛岃�� WSTRING 鏄�鐢ㄤ簬琛ㄧず瀹藉瓧绗﹀瓧绗︿覆锛屾敮鎸� Unicode 缂栫爜銆傝繖浜涘瓧绗︿覆绫诲瀷鍏佽�稿瓨鍌ㄥ拰鎿嶄綔鏂囨湰鏁版嵁銆�

1.1  瀹氫箟瀛楃�︿覆鍙橀噺

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    MyString : STRING(50); // 瀹氫箟涓�涓�鏈�澶ч暱搴︿负 50 鐨勫瓧绗︿覆
    MyWString : WSTRING(50); // 瀹氫箟涓�涓�鏈�澶ч暱搴︿负 50 鐨勫�藉瓧绗﹀瓧绗︿覆
END_VAR

2  甯哥敤瀛楃�︿覆鐨勫嚱鏁版搷浣�

CODESYS 鎻愪緵浜嗕竴缁勫己澶х殑瀛楃�︿覆鎿嶄綔鍑芥暟锛屽府鍔╂垜浠�杩涜�屽瓧绗︿覆鐨勫悇绉嶅�勭悊銆備互涓嬫槸涓�浜涘父鐢ㄧ殑瀛楃�︿覆鎿嶄綔鍑芥暟鍙婂叾搴旂敤妗堜緥銆�

2.1  瀛楃�︿覆杩炴帴 (CONCAT)

灏嗕袱涓�瀛楃�︿覆杩炴帴鎴愪竴涓�鏂扮殑瀛楃�︿覆銆�

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str1 : STRING := 'Hello, ';
    Str2 : STRING := 'World!';
    Result : STRING;
END_VAR

Result := CONCAT(Str1, Str2); // Result = 'Hello, World!'

2.2  瀛楃�︿覆鍒犻櫎 (DELETE)

浠庡瓧绗︿覆涓�鍒犻櫎鎸囧畾浣嶇疆鐨勫瓙瀛楃�︿覆銆�

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str : STRING := 'Hello, World!';
    Result : STRING;
END_VAR

Result := DELETE(Str, 7, 6); // Result = 'Hello!'

2.3  瀛楃�︿覆鏌ユ壘 (FIND)

鏌ユ壘瀛愬瓧绗︿覆鍦ㄤ富瀛楃�︿覆涓�鐨勪綅缃�銆�

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    MainStr : STRING := 'Hello, World!';
    SubStr : STRING := 'World';
    Position : INT;
END_VAR

Position := FIND(MainStr, SubStr); // Position = 8 (浠� 1 寮�濮嬭�℃暟)

2.4  瀛楃�︿覆鎻掑叆 (INSERT)

鍦ㄦ寚瀹氫綅缃�鎻掑叆瀛愬瓧绗︿覆銆�

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str : STRING := 'Hello, World!';
    SubStr : STRING := ' beautiful ';
    Result : STRING;
END_VAR

Result := INSERT(Str, SubStr, 7); // Result = 'Hello, beautiful World!'

2.5  瀛楃�︿覆鏇挎崲 (REPLACE)

鏇挎崲瀛楃�︿覆涓�鐨勫瓙瀛楃�︿覆銆�

[color=rgba(0, 0, 0, 0.9)]

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
  Str : STRING := 'Hello, World!';
    ReplaceStr : STRING := 'CODESYS';
    len: INT:=5;
    pos: INT:=8;
    Result : STRING;
END_VAR

Result := REPLACE(Str, ReplaceStr, len, pos); // Result = 'Hello, CODESYS!'

2.6  浠庡乏杈瑰彇瀛楃�︿覆 (LEFT)

浠庡瓧绗︿覆宸﹁竟寮�濮嬪彇鎸囧畾闀垮害鐨勫瓙瀛楃�︿覆銆�

[color=rgba(0, 0, 0, 0.9)]

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str : STRING := 'Hello, World!';
    Result : STRING;
END_VAR

Result := LEFT(Str, 5); // Result = 'Hello'

2.7  鑾峰彇瀛楃�︿覆闀垮害 (LEN)

鑾峰彇瀛楃�︿覆鐨勯暱搴︺��

[color=rgba(0, 0, 0, 0.9)]

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str : STRING := 'Hello';
    Length : INT;
END_VAR

Length := LEN(Str); // Length = 5

2.8  浠庝腑闂村彇瀛楃�︿覆 (MID)

浠庡瓧绗︿覆鐨勬寚瀹氫綅缃�寮�濮嬪彇鎸囧畾闀垮害鐨勫瓙瀛楃�︿覆銆�

[color=rgba(0, 0, 0, 0.9)]

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str : STRING := 'Hello, World!';
    Result : STRING;
END_VAR

Result := MID(Str, 5, 8); // Result = 'World'

2.9  浠庡彸杈瑰彇瀛楃�︿覆 (RIGHT)

浠庡瓧绗︿覆鍙宠竟寮�濮嬪彇鎸囧畾闀垮害鐨勫瓙瀛楃�︿覆銆�

[color=rgba(0, 0, 0, 0.9)]

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str : STRING := 'Hello, World!';
    Result : STRING;
END_VAR

Result := RIGHT(Str, 6); // Result = 'World!'

2.10  瀛楃�︿覆澶у啓瀛楁瘝杞�鎹� (ToUCase)

灏嗗瓧绗︿覆涓�鐨勬墍鏈夊瓧姣嶈浆鎹�涓哄ぇ鍐欍��

[color=rgba(0, 0, 0, 0.9)]

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VARhw
    Str : STRING := 'hello, world!';
    Result : STRING;
END_VAR

ToUCase(In := Str, Out =>Result); // Result = 'HELLO, WORLD!'

2.11  瀛楃�︿覆灏忓啓瀛楁瘝杞�鎹� (ToLCase)

灏嗗瓧绗︿覆涓�鐨勬墍鏈夊瓧姣嶈浆鎹�涓哄皬鍐欍��

[color=rgba(0, 0, 0, 0.9)]

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    Str : STRING := 'HELLO, WORLD!';
    Result : STRING;
END_VAR

ToLCase(In := Str, Out =>Result); // Result = 'hello, world!'

3  甯哥敤瀛楃�︿覆鐨勮浆鎹�

鍦ㄧ紪绋嬩腑锛岀粡甯搁渶瑕佸湪瀛楃�︿覆鍜屽叾浠栨暟鎹�绫诲瀷涔嬮棿杩涜�岃浆鎹�銆侰ODESYS 鎻愪緵浜嗕竴浜涘嚱鏁版潵瀹炵幇杩欎簺杞�鎹㈡搷浣溿��

3.1  鍏朵粬绫诲瀷杞�鎹�涓哄瓧绗︿覆

鏁存暟杞�瀛楃�︿覆 (INT_TO_STRING)

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    MyInt : INT := 123;
    MyString : STRING;
END_VAR

MyString := INT_TO_STRING(MyInt); // MyString = '123'

瀹炴暟杞�瀛楃�︿覆 (REAL_TO_STRING)

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    MyReal : REAL := 123.45;
    MyString : STRING;
END_VAR

MyString := REAL_TO_STRING(MyReal); // MyString = '123.45'

3.2  瀛楃�︿覆杞�鎹�涓哄叾浠栫被鍨�

瀛楃�︿覆杞�鏁存暟 (STRING_TO_INT)

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    MyString : STRING := '123';
    MyInt : INT;
END_VAR

MyInt := STRING_TO_INT(MyString); // MyInt = 123

瀛楃�︿覆杞�瀹炴暟 (STRING_TO_REAL)

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

VAR
    MyString : STRING := '123.45';
    MyReal : REAL;
END_VAR

MyReal := STRING_TO_REAL(MyString); // MyReal = 123.450005

4  妗堜緥锛氬瓧绗︿覆澶勭悊鍦ㄦ潯鐮佹壂鎻忕郴缁熶腑鐨勫簲鐢�

鍋囪�炬垜浠�鍦ㄤ竴涓�鐢熶骇绾跨殑鏉＄爜鎵�鎻忕郴缁熶腑锛岄渶瑕佸�勭悊鍜屽垎鏋愭壂鎻忓埌鐨勬潯鐮佸瓧绗︿覆锛屽苟灏嗗叾杞�鎹�涓虹浉搴旂殑浜у搧淇℃伅杩涜�屾樉绀恒��

4.1  缂栫▼鎬濊矾

• 鑾峰彇鏉＄爜瀛楃�︿覆锛氫粠鎵�鎻忎华璇诲彇鏉＄爜瀛楃�︿覆銆�
• 瑙ｆ瀽鏉＄爜淇℃伅锛氭牴鎹�鏉＄爜瀛楃�︿覆瑙ｆ瀽鍑轰骇鍝佺紪鍙枫�佺敓浜ф棩鏈熺瓑淇℃伅銆�
• 杞�鎹�涓哄瓧绗︿覆锛氬皢瑙ｆ瀽鍑虹殑淇℃伅杞�鎹�涓哄瓧绗︿覆鏍煎紡銆�
• 鏄剧ず浜у搧淇℃伅锛氬皢鐢熸垚鐨勫瓧绗︿覆鏄剧ず鍦ㄧ敤鎴风晫闈�涓娿��
  

4.2  绋嬪簭瀹炵幇

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

PROGRAM BarcodeSystem
VAR
    BarcodeStr : STRING := 'P123-20240716'; // 绀轰緥鏉＄爜瀛楃�︿覆
    ProductID : STRING;
    ProductionDate : STRING;
    DisplayMessage : STRING;
    DashPos : INT;
END_VAR

// 鏌ユ壘鏉＄爜涓�鐨勫垎闅旂�︿綅缃�
DashPos := FIND(BarcodeStr, '-');
// 鎻愬彇浜у搧缂栧彿
ProductID := LEFT(BarcodeStr, DashPos - 1);
// 鎻愬彇鐢熶骇鏃ユ湡
ProductionDate := MID(BarcodeStr, DashPos + 1, LEN(BarcodeStr) - DashPos);
// 鐢熸垚鏄剧ず淇℃伅
DisplayMessage := CONCAT('Product ID: ', ProductID);
DisplayMessage := CONCAT(DisplayMessage, ' Production Date: ');
DisplayMessage := CONCAT(DisplayMessage, ProductionDate);
// DisplayMessage = 'Product ID: P123 Production Date: 20240716'

鍦ㄨ繖涓�妗堜緥涓�锛屾垜浠�閫氳繃瀛楃�︿覆鏌ユ壘銆佹彁鍙栧拰杩炴帴绛夋搷浣滐紝瀹炵幇浜嗗�规潯鐮佸瓧绗︿覆鐨勮В鏋愶紝骞剁敓鎴愪簡鐢ㄤ簬鏄剧ず鐨勪骇鍝佷俊鎭�瀛楃�︿覆銆�

鎬荤粨

閫氳繃鏈�鏂囩殑浠嬬粛锛屾垜浠�浜嗚В浜� CODESYS 涓�鐨勫瓧绗︿覆绫诲瀷鍙婂叾鍩烘湰鎿嶄綔鍑芥暟锛屽�︿範浜嗗�備綍鍦ㄧ紪绋嬩腑浣跨敤杩欎簺鍑芥暟杩涜�屽瓧绗︿覆澶勭悊銆傛�ゅ�栵紝鎴戜滑杩樻帰璁ㄤ簡瀛楃�︿覆涓庡叾浠栨暟鎹�绫诲瀷涔嬮棿鐨勮浆鎹�锛屽苟閫氳繃涓�涓�瀹為檯妗堜緥灞曠ず浜嗗瓧绗︿覆澶勭悊鐨勫簲鐢ㄣ�傚笇鏈涢�氳繃杩欎簺鍐呭�癸紝璇昏�呭彲浠ユ洿濂藉湴鎺屾彙 CODESYS 涓�鐨勫瓧绗︿覆鎿嶄綔鎶�宸э紝鎻愬崌缂栫▼鑳藉姏銆�