|
导入数组, 再剔除。
TrimX.WCS.zip
(732 Bytes, 下载次数: 6)
- ENVI^ ForceLocal=1
- @IFEX %CurFile%.LOG, LOGS * %CurFile%.LOG
- SET$ NL=0d 0a
- SET &VS=
- \1,,53335.730,31347.620,52.460
- \%NL%2,,53331.150,31333.340,49.379
- \%NL%3,,53331.150,31333.340,49.379
- \%NL%4,,53335.730,31347.620,52.460
- \%NL%13,,53362.800,31340.890,53.642
- \%NL%14,,53362.800,31340.890,53.642
- \%NL%15,,53344.100,31322.260,48.737
- \%NL%16,,53362.800,31340.890,53.642
- \%NL%17,,53348.660,31364.210,56.508
- \%NL%18,,53331.840,31362.690,53.322
- \%NL%19,,53362.800,31340.890,53.642
- //剔除重复行
- _SUB TrimX // &VS 3 [,]
- FIND $%~3=,SET &tr=,! SET &tr=%~3
- SET id=%~2
- SET &I=0
- FORX *NL %~1,&&Vi, @TEAM @CALC #I=%I%+1| SET &Vi[%&I%]=%Vi%
- SET &N=%I%
- SET &V2=
- SET &I=0
- LOOP #%I%<%N%,
- { CALC #&I=%I% + 1
- ^FIND *Vi[%I%]=, EXIT -
- ^SET< V2=%%NL%%%%Vi[%I%]%%
- ^MSTR * -delims:%tr% &&Vi3=<%id%->&Vi[%I%]
- CALC #&&J=%I%
- LOOP #%J%<%N%,
- { CALC #&J=%J% + 1
- ^MSTR * -delims:%tr% &&VJ3=<%id%->&Vi[%J%]
- ^FIND *Vi3=Vj3, SET Vi[%J%]=
- }
- }
- MSTR * V2=3,0,V2
- ENVI-ret~ %~1=&V2
- _END
- TrimX &VS 3 , //逗号分开, 第3列开始
- MESS. %&VS%
复制代码
|
|