codesys璇诲彇csv鏂囦欢

鏃犲績椋炴壃

鏈�杩戝湪椤圭洰閬囧埌浜嗛渶姹傦細瑕佹眰鑳藉�熶互鍙�缂栬緫鏂囦欢鐨勬柟寮忎繚瀛樹袱鐧句釜杩愬姩鍜岀偣浣嶅埌浣嶅欢杩熸椂闂达紝鐒跺悗杩愬姩鎺у埗閫氳繃璇诲彇鏂囦欢鐨勬柟寮忓皢鐐逛綅璇诲嚭鏉ャ�備竴涓�鐐逛綅涓�涓�鐐逛綅鐨勬墽琛岋紝鏂囦欢淇濆瓨鏂瑰紡鏈�濂戒负Excel琛ㄦ牸鏂瑰紡銆傛煡璇�浜嗙浉鍏宠祫鏂欎互鍚庯紝鍙戠幇Codesys鏄�鏀�鎸乧sv鏂囦欢璇诲啓鐨勶紝鑰屾伆濂紼xcel涔熷彲浠ユ墦寮�csv鏂囦欢銆備簬鏄�锛屾垜寮�濮嬩簡锛氭湰娆℃祴璇曠幆澧冨熀浜�3.5.12寮�鍙戠幆澧�

1銆侀�栧厛锛屼綘闇�瑕佸紩鍏ヤ竴浜涘簱锛岀敤浜庤�诲啓鏂囦欢娴�



2銆佸叾娆★紝浣犻渶瑕佹寚瀹氫綘瑕佽�诲埌鏁版嵁鏍煎紡锛屼緥濡傛垜瑕佽�籜锛孻锛孼1锛孼2锛孼3锛孶1锛孶2锛學aitTime銆備竴琛岄渶瑕佹湁杩欎簺鏁版嵁锛屾瘡涓�鏁版嵁鐢ㄩ�楀彿闅斿紑銆傚悓鏃跺湪棣栦綅娣诲姞1浣嶅崰浣嶆爣蹇椼�傜敤鏉ュ尯鍒嗘暟鎹�鐨勫紑澶村拰缁撳熬銆傜ず渚嬶細1,101,301,1,2,3,4,5,1001$R$N锛堣繖涓�灏辨槸浣犱細璇诲埌鐨勬暟鎹�锛�

3銆佺壒鍒�瑙ｉ噴锛�$R$N鏄�鍐欒繘鍘绘椂鍊欑殑鎹㈣�岀�︺�傛病鏈夎繖涓�鏃犳硶瀹炵幇鍦‥xcel涓�鐨勬崲琛�

4銆佽�绘枃浠舵簮鐮侊細
----------------------------鍙橀噺澹版槑鍖哄煙------------------

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

FUNCTION ReadFileToBuffer : BOOL
 VAR_INPUT
     strIniPath              :STRING;
     pBuffer                    :POINTER TO ARRAY[1..GVL.Cnst_MaxFileLine] OF STRING;
 END_VAR
 VAR
     hFile            :DWORD;
     dwFileSize        :DINT;
     strLine            :STRING;
     iLnCnt           :INT:=1;
     iFileLine        :INT;
     dwRead            :DWORD;
     STR                :STRING;(*璇诲埌鐨勫瓧绗︿覆*)
     iEndPos            :INT;
     dwFileCurPos    :DINT;(*褰撳墠鏂囦欢鍏夋爣浣嶇疆*)
 END_VAR

----------------------------杩愯�屼唬鐮佸尯鍩�------------------

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

hFile     :=SysFileOpen(FileName:=strIniPath,Mode:='r');
 dwFileCurPos:=0;
 IF (hFile =0) THEN
     ReadFileToBuffer:=FALSE;
        SysFileClose(hFile);
     RETURN;
 END_IFdwFileSize:=SysFileGetSize(FileName:=strIniPath);
 IF (dwFileSize=0)  THEN
     ReadFileToBuffer:=FALSE;
        SysFileClose(hFile);
     RETURN;
 END_IFWHILE(TRUE) DO
       IF  (*(NOT SysFileEOF(hFile)) OR*) dwFileCurPos<dwFileSize   THEN
         dwRead:=SysFileRead(File:=hFile,Buffer :=ADR(STR),60);
         iEndPos:=FIND(STR1:=STR,STR2:='$N');
         dwFileCurPos:=dwFileCurPos+iEndPos;
         SysFileSetPos(hFile,dwFileCurPos);
              pBuffer^[iLnCnt]:=LEFT(STR,iEndPos);
         iLnCnt:=iLnCnt+1;
     ELSE
         SysFileClose(hFile);
         EXIT;
     END_IF
 END_WHILE
 ReadFileToBuffer:=TRUE;

姝ら儴鍒嗕唬鐮佷細鎵ц�屼竴涓�杩囩▼锛屽皢鎸夎�屾暟鏂囦欢鍐呭�瑰叏閮ㄨ�诲彇鍒颁竴涓�鎸囧畾鍒扮殑瀛楃�︿覆锛屾瘡涓�琛屼负涓�涓�瀛楃�︿覆銆�

5銆佸洜姝わ紝鎴戜滑杩橀渶瑕侀�氳繃涓�涓�鏂规硶鏉ュ垎瑙ｅ瓧绗︿覆鏉ュ彇鏁版嵁

----------------------------鍙橀噺澹版槑鍖哄煙------------------

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

FUNCTION_BLOCK GetPointData
 VAR_INPUT
     BuffStr:STRING;
 END_VAR
 VAR_OUTPUT
     OutDutData:DUT_XYZ_WaitTime;
 END_VAR
 VAR
     str1:STRING :='1,101,301,1,2,3,4,5,1001$R$N';     ///娴嬭瘯鏁版嵁
     iStartPoint:INT;
     iEndPoint:INT;
     p,j:INT;
     listPoint:ARRAY [1..8] OF INT; //璁板綍閫楀彿浣嶇疆
 END_VAR

----------------------------杩愯�屼唬鐮佸尯鍩�------------------

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

iStartPoint:=FIND(BuffStr,'1');  //鑾峰彇璧峰�嬩綅缃�
 iEndPoint:=FIND(BuffStr,'$R');  //鑾峰彇鏁版嵁缁撴潫浣嶇疆
 //浠庡瓧绗︿綅缃�1寮�濮嬪惊鐜�鍒版暟鎹�缁撴潫浣嶇疆锛岄�氳繃MID鏂规硶鑾峰緱姣忎竴涓�閫楀彿浣嶇疆锛屽苟璁板綍鍒版暟缁勪腑銆�
 j:=1;
 FOR p:=1 TO iEndPoint DO
     IF','=MID(BuffStr,1,p)THEN
     listPoint[j]:=p;
     j:=j+1;
     END_IF
     IF j>8 THEN
         EXIT;
     END_IF
 END_FOR
 //鎸夌収閫楀彿浣嶇疆鍙栧綋鍓嶉�楀彿鍒颁笂涓�涓�閫楀彿涔嬮棿鐨勫瓧绗︿覆锛岃浆鎹�涓洪暱瀹炴暟绫诲瀷鏁版嵁
 OutDutData.X:=STRING_TO_LREAL( MID(BuffStr,(listPoint[2]-listPoint[1]-1),listPoint[1]+1));
 OutDutData.Y:=STRING_TO_LREAL( MID(BuffStr,(listPoint[3]-listPoint[2]-1),listPoint[2]+1));
 OutDutData.Z1:=STRING_TO_LREAL( MID(BuffStr,(listPoint[4]-listPoint[3]-1),listPoint[3]+1));
 OutDutData.Z2:=STRING_TO_LREAL( MID(BuffStr,(listPoint[5]-listPoint[4]-1),listPoint[4]+1));
 OutDutData.Z3:=STRING_TO_LREAL( MID(BuffStr,(listPoint[6]-listPoint[5]-1),listPoint[5]+1));
 OutDutData.U1:=STRING_TO_LREAL( MID(BuffStr,(listPoint[7]-listPoint[6]-1),listPoint[6]+1));
 OutDutData.U2:=STRING_TO_LREAL( MID(BuffStr,(listPoint[8]-listPoint[7]-1),listPoint[7]+1));
 //鏈�鍚庝竴涓�娌℃湁閫楀彿锛屼絾鏄�鏈夋崲琛屾爣蹇楋紝鎵�浠ュ彇鎹㈣�屾爣蹇楀埌涓婁竴涓�閫楀彿涔嬪墠鐨勬暟鎹�锛屽悓鐞嗚浆鍖�
 OutDutData.WaitTime:=STRING_TO_INT( MID(BuffStr,(iEndPoint-listPoint[8]-1),listPoint[8]+1));

6銆侀�氳繃姝ラ��5鐨勬柟娉曘�傛垜浠�鍙�浠ヤ紶涓�涓�瀛楃�︿覆锛屼粠鑰屽緱鍒颁竴涓�鎴戜滑鍗忚��濂界殑鏁版嵁闆嗗悎

杩欐牱鎴戜滑鍦ㄤ富绋嬪簭涓�锛岃繖鏍疯皟鐢�锛屽嵆鍙�寰楀埌鎯宠�佺殑鍊间簡

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

Cnst_MaxFileLine                :INT:=1000;(*鏂囦欢鐨勬渶澶ц�屾暟*)
IF ReadFileToBuffer(strFilePath,ADR(Buffer))THEN
         FOR i:=1 TO GVL.Cnst_MaxFileLine DO 
             fb_GetData(BuffStr:=Buffer[i],OutDutData=>PointData[i]);
         END_FOR
         iIndex:=1;
     END_IF

瀵逛簡锛屽埆蹇樹簡瀹氫箟浣犵殑鏁版嵁缁撴瀯浣擄細

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

TYPE DUT_XYZ_WaitTime :
 STRUCT
     X:LREAL;
     Y:LREAL;
     Z1:LREAL;
     Z2:LREAL;
     Z3:LREAL;
     U1:LREAL;
     U2:LREAL;
     WaitTime:INT;
 END_STRUCT
 END_TYPE

濂戒簡銆傚氨鏄�杩欐牱锛岀▼搴忎腑浣跨敤灏辫皟鐢∣utDutData鏁扮粍涓嬬殑鐩稿簲鐐逛綅鍗冲彲锛岀粰鐩稿簲鐨刋Y杩愬姩鐐逛綅璧嬪�硷紝鍗冲彲杈炬垚鎯宠�佺殑鏁堟灉銆�