Текстовый файл

[Tuco]

Здравствуйте!
Передаю в файл myFile.txt строки в виде отдельных переменных.

Код: Выделить всё

    Open App.Path & "/myFile.txt" For Output As #1
        Write #1, strString 'здесь моя строка
    Close


После этого в файле напечатанная строка получает кавычки, которых в переменной не было. Почему они там появляются и как от них избавиться?

[Dzhon]

А с использованием FSO все чисто:

Код: Выделить всё

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim fsoTS As TextStream


Set fsoTS = fso.OpenTextFile("C:\myFile.txt", ForWriting)
fsoTS.Write Me.Text1.Text
fsoTS.Close

Set fso = Nothing
Set fsoTS = Nothing

End Sub


Кстати в переменной кавычки-то были.

[tyomitch]

Здравствуйте!
После этого в файле напечатанная строка получает кавычки, которых в переменной не было. Почему они там появляются и как от них избавиться?

Write замени на Print

[Tuco]

Супер, спасибо, Тёмыч! Это именно то, чего мне и нужно было. Никаких кавычек теперь.

2 Dzhon:
Конечно, я ведь в переменную строку передаю, соответственно, обрамляю кавычками. А вот в файле они появляться не должны. В любом случае, спасибо за рекомендацию, но Тёмыч дал совет более подходящий.

[Ramzes]

Я не знаю как делаешь ты но у меня при таком вот коде все без кавичек

Код: Выделить всё

open app.path & "\myTXT.txt" for output as #1
print #1, MyString
close #1


[|kerish|]

Я не знаю как вы все делаете у меня при таком коде тоже без кавычек.

Код: Выделить всё

open app.path & "\myTXT.txt" for output as #1
close #1

[A.A.Z.]

2 Ramzes, |kerish|: народ, да не в этом дело если написать "Write #, $", то будет с кавычками, а если "Print #, $", то без