Find data and delete remaining rows (For each loop)

In the code below I find rows containing "$$ #" at the far left and process it.
For all the remaining rows I want to delete the entire row, my macro only deletes some rows.

Obviously I am not grasping something about looping throught the rows to delete unwanted data.

Please Login or Register  to view this content.

Sample data:

D(DROTAT)=ROTATE/YAXIS,180
DEFDAT/FA(PLA_1),DAT(-A)
$$
$$ #901, 11d3, [-B-] Ø.2494 +.0005/-.0000
F(CIR_2)=FEAT/CIRCLE,INNER,CART,0.0,0.0,0.0,I
MEAS/CIRCLE,F(CIR_2),6
$$
D(DORIGN)=TRANS/YORIG,FA(CIR_2),ZORIG,FA(CIR_
DEFDAT/FA(CIR_2),DAT(-B)
$$
$$ #917, [-C-] Ø.2494 +.0005/-.0000
F(CIR_3)=FEAT/CIRCLE,INNER,CART,0.0,7.5179,-6
MEAS/CIRCLE,F(CIR_3),6

(Truncated for your reading pleasure.)

All of the data in BOLD should be deleted.

And what is with all the goofy text resizing on this site?

When you're deleting, you need to loop through the rows backwards using a row variable, rather than a for-each loop. Think about it ...

Thanks shg!

Sometimes I just need a little direction. :D

Please Login or Register  to view this content.