Создание файла? (txt)

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Человек
Обычный пользователь
Обычный пользователь
 
Сообщения: 57
Зарегистрирован: 02.01.2004 (Пт) 15:34
Откуда: Russia. Saint-Petersburg

Создание файла? (txt)

Сообщение Человек » 22.01.2004 (Чт) 21:30

У меня есть 2 TextBox'a.
Как создать txt файл, что бы первый TextBox содержал имя файла (1.txt) А второй TextBox текст (содержание) файла.

-------------------------------------------------------------------------------------
Зарание спасибо.
--<Более мощный компьютер глючит быстрее и точнее>--

Cornplay
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 03.01.2004 (Сб) 5:13
Откуда: Из дома

Сообщение Cornplay » 22.01.2004 (Чт) 21:56

Если TextBox1 - имя файла, а TextBox2 - текст, то:

open TextBox1.text for output as #1
print #1, TextBox2.text
close #1

Все слишком просто (или я чего-то недопонял).

Sanya Z
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 240
Зарегистрирован: 18.08.2003 (Пн) 3:15
Откуда: Москва

Сообщение Sanya Z » 23.01.2004 (Пт) 0:40

Код: Выделить всё
open TextBox1.text for output as #1
print #1, TextBox2.text
close #1


Так ведь нужен же ещё и путь к создаваемому файлу, а то будет создавать непойми где :) ...

Код: Выделить всё
text1.text=app.path+"\"+text1.text
open TextBox1.text for output as #1
print #1, TextBox2.text
close #1


...К примеру :wink:
:arrow:
И пусть в моих поступках не было логики...

ser_hit
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 10.01.2004 (Сб) 22:10

Сообщение ser_hit » 24.01.2004 (Сб) 8:22

Классный код 8)

Enigmus
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 23.01.2004 (Пт) 17:30
Откуда: Комсомольск-на-

Сообщение Enigmus » 25.01.2004 (Вс) 14:31

Этот пример децл по-сложнее.:wink:
В меню "Progect" найди "Referensis" и подключи "Microsoft Scripting Runtime". :!:
В форму добавь Command1. В процедуре "Command1_Click()" добавь код:
Dim oFile As Scripting.FileSystemObject
Dim oFile1 As Scripting.TextStream
Set oFile = New Scripting.FileSystemObject
Set oFile1 = oFile.CreateTextFile(Text1.Text & "\Config.cfg", True)oFile1.WriteLine (Text2.Text)
oFile1.Close
Желаю удачи :P

Человек
Обычный пользователь
Обычный пользователь
 
Сообщения: 57
Зарегистрирован: 02.01.2004 (Пт) 15:34
Откуда: Russia. Saint-Petersburg

Спасибо

Сообщение Человек » 25.01.2004 (Вс) 15:05

Всем спасибо.... :D
--<Более мощный компьютер глючит быстрее и точнее>--

Draco
Новичок
Новичок
 
Сообщения: 41
Зарегистрирован: 16.01.2004 (Пт) 21:35
Откуда: Москва

Сообщение Draco » 25.01.2004 (Вс) 17:46

Можно обратиться к математике...
P.S.:
Если заинтерисуешся...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList