I am producing a file using the following code:

finalOutput = 
  Transpose[{Drop[profilelength, 1]}~Join~
    Riffle[OPTIMUMTOP/100, OPTIMUMBTM/100]];
Export["results_\
output.txt", ToString[TableForm@finalOutput]];
SystemOpen["results_\
output.txt"]

Please note that TableForm[finalOutput] returns the table exactly as I want it to be!

However the code above returns a file with every second line completely empty. No data is missing it just has twice as much lines ad necessary. Is there a way to delete them? (see attached output file).

Attachments: