how to write string to file without Quotation mark

Question

I am trying to Write String to file, something like this:

Write["test.txt", "This is a test"];

when I opened the file I found that the string was written with the Quotation mark " like this:

"This is a test"

how can I write only the string text?

Note: "This is a test" is part of matrix and I can't manually type it like this:

Write["test.txt", This is a test];

Answer 1

one way:

 SetDirectory[NotebookDirectory[]];
 fileName = "test.txt";
 file = OpenWrite[fileName, PageWidth -> Infinity];
 WriteString[file,"this is a string which will show up without the quotes"];
 Close[file]

To open for append and lines:

SetDirectory[NotebookDirectory[]];
fileName = "AAA.txt";
file = OpenAppend[fileName, PageWidth -> Infinity];
WriteString[file, "this is a string which will show up without the quotes\n"];
WriteString[file, "second line\n"];
Close[file]

important: must add "\n" at the end of the string. Without it, all string will remain on same line.

You can also in the notebook, add the new line, and will be be reflected in the file. Like this:

Notice, in the above there is no explicit "\n" there, but it was added in the notebook. The above will look like this in the text file:

Answer 2

Addressing the comment, WriteString can take multiple arguments to write multiple expressions so you can do:

 WriteString[file, "string" , "\n" ]

which may be somewhat more convenient than concatenating the "\n" to the string.

If you want to write a list of strings adding linebreaks you can do like this:

 WriteString[f, 
      Sequence @@ Riffle[{"string1", "string2", "String3"}, "\n"], "\n"]