There are some pretty good work-arounds for strings already. Try

Arraywrite TestString,["This is a pretty good way to load strings into an array",0]

Hserout [Str TestString]