VA01 credit memo scripting : Deleting zero value lines

Hi,

I have an admin heavy job where I have to raise credit memos with reference to the original invoice. I'm using the scripting tool to do this. Unfortunately, many zero value line pulls through and I have to manually delete them.

Is there a way to delete the zero value lines? Ideally to incorporate in the script somehow?

Many thanks,

Tom