Помогите с выводом в файл

Предыдущая тема Следующая тема Перейти вниз

Помогите с выводом в файл

Сообщение  Megabit в Вс Май 02, 2010 1:41 pm

Пользуюсь для вывода в файл вот этим

Open "outfile.txt" For Output As #1
print #1, "(" & 2 & ")" & ": " & "Привет!"
close #1

но мне нужно чтобы вывод происходил внутри функции function, но сколько бы принтов я туда не вставлял, оно не выводится, а если использовать open вунтри function то вылазит ошибка.
p.s. само собой close делаю в самом конце файла.

Megabit

Сообщения : 14
Дата регистрации : 2010-04-25

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Помогите с выводом в файл

Сообщение  Саня в Вс Май 02, 2010 3:32 pm

странно, у мя всё нормально пошло:
Код:

Declare Function qwerty() As Integer
Open " tetx1.txt" For Output As #1
? #1,"(" & 2 & ")" & ": " & "Привет!"    'пишется в файл
? "(" & 2 & ")" & ": " & "Привет!"          'вывод на экран этой же фразы, шоб точно знать...
Dim i As Integer =qwerty()                'вызов функции
Close #1                 'ну и закрытие файла, куда уж без него
sleep
Function qwerty() As Integer
   ? #1, "(" & 2 & ")" & ": " & "Привет!"
   ? "(" & 2 & ")" & ": " & "Привет!"
   Return 1
End Function
avatar
Саня

Сообщения : 65
Дата регистрации : 2010-04-28
Возраст : 23
Откуда : Екатеринбург

Посмотреть профиль http://vkontakte.ru/id30561430#/id57547166

Вернуться к началу Перейти вниз

Re: Помогите с выводом в файл

Сообщение  tux в Вс Май 02, 2010 5:58 pm

возможно просто косяк с идентификатором #1 гденить, лучше все же юзать freefile, не зря же его сделали (просто както сам с такой проблемой сталкивался, а с ним надежней получается), при этом, нужно будет обязательно все самодельные идентификаторы тоже переделать под freefile, иначе может получится ситуация, когда freefile выдал идентификатор, а после етого ты сам его занимаеш, принудительно указав тот же самый номер (сам неподозревая этого)
avatar
tux

Сообщения : 365
Дата регистрации : 2008-04-06
Возраст : 29
Откуда : Сибирь

Посмотреть профиль http://tux.nsk.ru/

Вернуться к началу Перейти вниз

Re: Помогите с выводом в файл

Сообщение  Megabit в Вт Май 04, 2010 3:37 pm

Саня пишет:странно, у мя всё нормально пошло:

у меня этим способом всё выводистя в консоль почему-то, в файл не пишется почему-то.

2 tux
немного не понял тебя, freefile то что? функция? и как ей пользоваться, дай пример плз.

Megabit

Сообщения : 14
Дата регистрации : 2010-04-25

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Помогите с выводом в файл

Сообщение  tux в Вт Май 04, 2010 5:07 pm

тут же все, и пример...
avatar
tux

Сообщения : 365
Дата регистрации : 2008-04-06
Возраст : 29
Откуда : Сибирь

Посмотреть профиль http://tux.nsk.ru/

Вернуться к началу Перейти вниз

Re: Помогите с выводом в файл

Сообщение  Megabit в Ср Май 05, 2010 8:50 am

спс, про идентификатор оказалось правдой.

теперь вот другая проблема: надо писать в один файл из каждого файла большого проекта, но получается если каждый раз его open, то он затирает что написал в него предыдущий.

Megabit

Сообщения : 14
Дата регистрации : 2010-04-25

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Помогите с выводом в файл

Сообщение  tux в Ср Май 05, 2010 9:46 am

у open есть несколько режимов (можно там же в документации глянуть), в режиме output всегда затирается то, что было в файле, чтобы его дополнять, можно воспользоваться режимом append
avatar
tux

Сообщения : 365
Дата регистрации : 2008-04-06
Возраст : 29
Откуда : Сибирь

Посмотреть профиль http://tux.nsk.ru/

Вернуться к началу Перейти вниз

Re: Помогите с выводом в файл

Сообщение  Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу

- Похожие темы

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения