Array to Text Output

[mmetzinger]

Ok, I have string array with values that have leading or trailing spaces or zeros to make the values correct for a fixed width file.

Does anyone know and easy way to export the array as a text file with no formatting so it will be a proper fixed width text file?

Thanks,
Matt

 

[Gary's Student]

Something like this:

Sub StringSaver()
    ary = Array("   a   ", "  b    ", "      x")
    Close #1
    Open "C:\TestFolder\TestOut.txt" For Output As #1
    For Each a In ary
        Print #1, a
    Next a
    Close #1
End Sub