$\begingroup$Try to play with the export format (see export documentation). For example Export["c:\\test.txt", Table[Flatten[{t, hf[t], hs[t]} /. sol1], {t, 0, 100}],"Table"] does the trick. However, ".txt" does not accept some format (e.g. "Data"), but you can use .dat instead for example$\endgroup$
– FraccaloMay 20 '18 at 19:58

$\begingroup$If it’s only a few files you can use find and replace all in notepad.$\endgroup$
– Vsevolod A.May 20 '18 at 22:52

Mathematica is a registered trademark of Wolfram Research, Inc. While the mark is used herein with the limited permission of Wolfram Research, Stack Exchange and this site disclaim all affiliation therewith.