多步骤处理数据的问题

awpdragon

NEW SCTN /\111\FLOOR1\GIRD\G22
GTYP XGRD
NUMB 22
BUIL false
SHOP false
DRNS N
DRNE S
POSS E 6250.000 N -2000.000 U 0.000
POSE E 6250.000 N 65650.000 U 0.000
GRADE 0
FIRE 0

END
NEW DATUM /111\FRM_GRIDS/DATUM
HEIG 500

END
NEW ZONE /\111\BEAM
DUNION 2

NEW STRUCTURE /\111\BEAMS\7200
POS E 0 N 0 U 0
BUIL false
DUNION 2

NEW FRMWORK /\111\FLOOR1\MBEAM
BUIL false
SHOP false
GRADE 0
FIRE 0
DUNION 2
PTSP unset
INSC unset

NEW SCTN
GTYP DBEA
DESP 600 300 300 0 0 $
0 0 0 0 0
BUIL false
SHOP false
DRNS E 90 N
DRNE E -90 N
POSS E 7600.000 N -0.000 U 7200.000
POSE E 7600.000 N 3150.000 U 7200.000
JLIN NA
JUSL TOS
CTYS NULL
CTYE NULL
GRADE 0
FIRE 0
SPRE /CONCRETE-BEAMS-SPEC/Rectangular_Profile
MEML NA

END
NEW SCTN
GTYP DBEA
DESP 800 300 300 0 0 $
0 0 0 0 0
BUIL false
SHOP false
DRNS E 90 N
DRNE E -90 N
POSS E 7500.000 N 3150.000 U 7200.000
POSE E 7500.000 N 11900.000 U 7200.000
JLIN NA
JUSL TOS
CTYS NULL
CTYE NULL
GRADE 0
FIRE 0
SPRE /CONCRETE-BEAMS-SPEC/Rectangular_Profile
MEML NA

END
NEW SCTN
GTYP DBEA
DESP 800 300 300 0 0 $
0 0 0 0 0
BUIL false
SHOP false
DRNS E 90 N
DRNE E -90 N
POSS E 7500.000 N 11900.000 U 7200.000
POSE E 7500.000 N 20650.000 U 7200.000
JLIN NA
JUSL TOS
CTYS NULL
CTYE NULL
GRADE 0
FIRE 0
SPRE /CONCRETE-BEAMS-SPEC/Rectangular_Profile
MEML NA

END


如上面的一串数据，我想要判断每个开头是NEW SCTN的语句，然后把DESP行的数据800 300 300取出写成/JIS-SPEC/800x300x300X49.4H，删除掉SPRE行的语句然后写入。请问如何做？现在完全没有头绪。。。请各位大神指点。思路也可以。

roych

用vba里的opentext方法试试？而且建议去excel vba模块发这个帖子。这里人气很低的