ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создать файл...
38 сообщений из 38, показаны все 2 страниц
  все  
Создать файл...
    #34244172
Илья 812
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Илья 812
Участник
Добрый вечер!

Возможно ли сделать с помощью VBA следующие:

1) создать файл с расширением txt;
2) внести определенный объем информации в созданный файл;
3) сохранить фаил param.txt в C:\
...
Рейтинг: 0 / 0
09.01.2007, 21:51
| Ответить | Цитировать | Написать  
Создать файл...
    #34244189
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Да, возможно.

На этом форуме, да и на всех других, очень много, наверное сотни, примеров. Например, на Relib.com.

Сделай поиск на Microsoft Scripting Runtime и File System Object.

VladConn
...
Рейтинг: 0 / 0
09.01.2007, 22:06
| Ответить | Цитировать | Написать  
Создать файл...
    #34244197
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Вот часть кода, чтобы ты почувствовал, в каком ключе действовать:

Dim objFSO As Scripting.FileSystemObject
Dim objTextStream As Scripting.TextStream

Set objFSO = New Scripting.FileSystemObject

Set objTextStream = objFSO.OpenTextFile("C:\MyFile.txt", ForAppending, True, TristateFalse)

objTextStream.WriteLine "My first and only (for now) test line!"
objTextStream.Close
...
Рейтинг: 0 / 0
09.01.2007, 22:11
| Ответить | Цитировать | Написать  
Создать файл...
    #34244334
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Неее, в том ключе действовать не надо. Надо действовать в другом ключе:
Код: plaintext
1.
2.
Open "c:\param.txt" For Output As # 1 
Print # 1 , "Hello world!"
Close # 1
...
Рейтинг: 0 / 0
10.01.2007, 02:37
| Ответить | Цитировать | Написать  
Создать файл...
    #34244369
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Можно еще API использовать
...
Рейтинг: 0 / 0
10.01.2007, 05:57
| Ответить | Цитировать | Написать  
Создать файл...
    #34244733
baclanov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
baclanov
Гость
White OwlНеее, в том ключе действовать не надо. Надо действовать в другом ключе:
Код: plaintext
1.
2.
Open "c:\param.txt" For Output As # 1 
Print # 1 , "Hello world!"
Close # 1


Как раз в том!
FSO более новая технология, и проверочку на наличие файла в ней сделать элементарно.
...
Рейтинг: 0 / 0
10.01.2007, 10:25
| Ответить | Цитировать | Написать  
Создать файл...
    #34245366
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
baclanov
Как раз в том!
FSO более новая технология, и проверочку на наличие файла в ней сделать элементарно.
зачем подключать дополнительно библиотеку, если есть встроенные команды, а проверку можно и Dir-ом сделать.
...
Рейтинг: 0 / 0
10.01.2007, 12:58
| Ответить | Цитировать | Написать  
Создать файл...
    #34245384
Илья 812
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Илья 812
Участник
пасиб, вечером начну. О результатах сообщу.
...
Рейтинг: 0 / 0
10.01.2007, 13:02
| Ответить | Цитировать | Написать  
Создать файл...
    #34245394
Илья 812
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Илья 812
Участник
Как раз в том!
FSO более новая технология, и проверочку на наличие файла в ней сделать элементарно.[/quot]

Какая требуется библиотека?
...
Рейтинг: 0 / 0
10.01.2007, 13:03
| Ответить | Цитировать | Написать  
Создать файл...
    #34245410
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Илья 812
Какая требуется библиотека?
библиотека "Microsoft Scripting Runtime"
Только лучше освой то, что белая сова написала.
...
Рейтинг: 0 / 0
10.01.2007, 13:07
| Ответить | Цитировать | Написать  
Создать файл...
    #34245898
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
White OwlНеее, в том ключе действовать не надо. Надо действовать в другом ключе:
Код: plaintext
1.
2.
Open "c:\param.txt" For Output As # 1 
Print # 1 , "Hello world!"
Close # 1


White Owl,

Спасибо за ценную мысль. Не забудьте поделиться вашей идеей с Microsoft, этими дурачками из Кремниевой Долины.

:0)))

VladConn
...
Рейтинг: 0 / 0
10.01.2007, 14:56
| Ответить | Цитировать | Написать  
Создать файл...
    #34245965
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
VladConn White OwlНеее, в том ключе действовать не надо. Надо действовать в другом ключе:
Код: plaintext
1.
2.
Open "c:\param.txt" For Output As # 1 
Print # 1 , "Hello world!"
Close # 1

Спасибо за ценную мысль. Не забудьте поделиться вашей идеей с Microsoft, этими дурачками из Кремниевой Долины.

VladConn, для поставленной задачи приведенного выше примера вполне достаточно, при этом никаких лишних библиотек не используется.
...
Рейтинг: 0 / 0
10.01.2007, 15:14
| Ответить | Цитировать | Написать  
Создать файл...
    #34245977
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
я что-то запамятовал, но если у чела VBA, может там нет команды OPEN ?
...
Рейтинг: 0 / 0
10.01.2007, 15:16
| Ответить | Цитировать | Написать  
Создать файл...
    #34245988
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
...
Рейтинг: 0 / 0
10.01.2007, 15:19
| Ответить | Цитировать | Написать  
Создать файл...
    #34246010
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Вообще-то есть.
...
Рейтинг: 0 / 0
10.01.2007, 15:24
| Ответить | Цитировать | Написать  
Создать файл...
    #34246045
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вот и я так думаю, что нечего огород городить из внешних библиотек :)

PS
это я ВладКону, без обид
...
Рейтинг: 0 / 0
10.01.2007, 15:37
| Ответить | Цитировать | Написать  
Создать файл...
    #34247135
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Всем привет. Сколько работаю, никогда не было проблем с этой библиотекой. А что, кому-то доставила неудобства? Вообще-то, я общаюсь в разноязычных форумах. Пока-что такое неприятие обнаруживаю исключительно на своих родных. В реальной жизни до этого никому нет дела. Всех интересует понятность и легкость поддержки кода, а также его надежность. Мой код с использованием ФСО еще никогда не ломался и не доставлял проблем заказчикам. Опять же, все претензии лучше направлять в фирму-производитель этой библиотеки. Может она непозволительно велика и в условиях дефицита места это важно? Вроде нет. Непопулярна, несовместима и требует усилий при кодировании? Не-а. Требует установки, а не простого копирования приложения? Так последнее не актуально. А, наверно она утилизирует об"ектную модель и использование классов... и вот это уже требует известного напряжения.

Опять же, заметьте, я не критикую использование методов 15 летней давности. Хочется - пожалуйста. Но старые привычки мне, например, мешают в переходе на .NET. Лучше, на мой взгляд, все сразу писать в классах, использовать готовые об"екты и удобные библиотеки. За нас написано 90% процентов кода. Но я своего мнения не навязываю. Тем более оно не столько мое, как той самой фирмы, продуктами которой мы все пользуемся.
...
Рейтинг: 0 / 0
10.01.2007, 22:58
| Ответить | Цитировать | Написать  
Создать файл...
    #34247172
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
VladConnВсем привет. Сколько работаю, никогда не было проблем с этой библиотекой.А кто-то говорил что с ней будут проблемы? Не будет конечно, но новичку гораздо проще разобраться в примере из трех строк чем в примере из шести (не считая пустых строк) с кучей непонятных параметров, опций и констант.
Конечно ты можешь советовать новичку сразу браться за объектные библиотеки, классы и прочую прогрессивную фигню, но прости меня, ты хочешь помочь человеку или отпугнуть его?

VladConnОпять же, заметьте, я не критикую использование методов 15 летней давности.Всего 15-и? :) Вообще-то, работа с файлами через open уже была в abasic и gwbasic. Может даже раньше появилась... То есть этим методам уже как минимум 20 лет.
...
Рейтинг: 0 / 0
10.01.2007, 23:39
| Ответить | Цитировать | Написать  
Создать файл...
    #34247343
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Здесь столько дискуссии из-за маленького кода
Я тоже приведу свое мнение ;-)
Я согласен с VladConn при работе с текстовыми файлами я работаю только с FileSystemObject
А методы Open тоже нужно знать, в плане общего образования
...
Рейтинг: 0 / 0
11.01.2007, 07:27
| Ответить | Цитировать | Написать  
Создать файл...
    #34247545
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
кто лучше, Open или FSO???

кто-нибудь видел исходники сишной библиотеки iostream, где фактически все новые cout прописаны через тот же fprintf, который в свою очередь прописан через низкоуровневый write.

чем бы вы не баловались, всем занимается VM.

аффтопитезь
...
Рейтинг: 0 / 0
11.01.2007, 09:35
| Ответить | Цитировать | Написать  
Создать файл...
    #34247555
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
VladConnВсем привет. Сколько работаю, никогда не было проблем с этой библиотекой. А что, кому-то доставила неудобства? Вообще-то, я общаюсь в разноязычных форумах. Пока-что такое неприятие обнаруживаю исключительно на своих родных. В реальной жизни до этого никому нет дела. Всех интересует понятность и легкость поддержки кода, а также его надежность. Мой код с использованием ФСО еще никогда не ломался и не доставлял проблем заказчикам. Опять же, все претензии лучше направлять в фирму-производитель этой библиотеки. Может она непозволительно велика и в условиях дефицита места это важно? Вроде нет. Непопулярна, несовместима и требует усилий при кодировании? Не-а. Требует установки, а не простого копирования приложения? Так последнее не актуально. А, наверно она утилизирует об"ектную модель и использование классов... и вот это уже требует известного напряжения.

Опять же, заметьте, я не критикую использование методов 15 летней давности. Хочется - пожалуйста. Но старые привычки мне, например, мешают в переходе на .NET. Лучше, на мой взгляд, все сразу писать в классах, использовать готовые об"екты и удобные библиотеки. За нас написано 90% процентов кода. Но я своего мнения не навязываю. Тем более оно не столько мое, как той самой фирмы, продуктами которой мы все пользуемся.

У меня тоже не было проблем с FSO.
А разве с оператором Open были? (у меня нет)
Нсчет неудобства, когда понимаешь код, нет никакого неудобства, да и неприятия тоже.
А вот White Owl новичку гораздо проще разобраться в примере из трех строк чем в примере из шести (не считая пустых строк) с кучей непонятных параметров, опций и констант. - согласен на все сто
Да насчет реалий.
Вот тебе результат трех процедур
1-я
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub f()
    Dim objFSO As Object
    Dim objTextStream As Object
    Dim i%, a
    a = Timer
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    Set objTextStream = objFSO.OpenTextFile("C:\MyFile.txt", ForAppending, True, TristateFalse)
    For i =  1  To  32000 
        objTextStream.WriteLine "My first and only (for now) test line!"
    Next i
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFSO = Nothing
    Cells( 1 ,  1 ) = Timer - a
    MsgBox Timer - a
End Sub
0,234375 сек.
2-я
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub ff()
    Dim objFSO As Scripting.FileSystemObject
    Dim objTextStream As Scripting.TextStream
    Dim i%, a
    a = Timer
    Set objFSO = New Scripting.FileSystemObject
    
    Set objTextStream = objFSO.OpenTextFile("C:\MyFile.txt", ForAppending, True, TristateFalse)
    For i =  1  To  32000 
        objTextStream.WriteLine "My first and only (for now) test line!"
    Next i
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFSO = Nothing
    Cells( 2 ,  1 ) = Timer - a
    MsgBox Timer - a
End Sub
0,171875 сек
3-я
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub fff()
    Dim i%, f!, a
    a = Timer
    f = FreeFile
    Open "C:\MyFile.txt" For Output As #f
    For i =  1  To  32000 
        Print #f, "My first and only (for now) test line!"
    Next i
    Close #f
    Cells( 2 ,  1 ) = Timer - a
    MsgBox Timer - a
End Sub
0,09375 сек
win2000 sp4
office2000 sp3
...
Рейтинг: 0 / 0
11.01.2007, 09:39
| Ответить | Цитировать | Написать  
Создать файл...
    #34248021
baclanov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
baclanov
Гость
Да, приличная дисскусия получилась.
Насчет скорости, конечно, согласен.
Маленькое замечание:
1 метод: 0,3125 - С-диск и 0,4219 - сетевой.
3 метод: 0,0625 - С-диск и 1,3125 - сетевой.

WinXP sp2
VB 6 sp6
...
Рейтинг: 0 / 0
11.01.2007, 11:35
| Ответить | Цитировать | Написать  
Создать файл...
    #34248612
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
baclanov
О как!!!
сеть
1-й 0,375
3-й 0,90625
Теперь знаю где ипользовать FSO
...
Рейтинг: 0 / 0
11.01.2007, 13:40
| Ответить | Цитировать | Написать  
Создать файл...
    #34250425
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
baclanovДа, приличная дисскусия получилась.
Насчет скорости, конечно, согласен.
Маленькое замечание:
1 метод: 0,3125 - С-диск и 0,4219 - сетевой.
3 метод: 0,0625 - С-диск и 1,3125 - сетевой.

WinXP sp2
VB 6 sp6
интересный плюс в сторону FSO :)
теперь точно буду знать чем лучше FSO от обычных методов
...
Рейтинг: 0 / 0
12.01.2007, 05:14
| Ответить | Цитировать | Написать  
Создать файл...
    #34287197
Andrey911
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey911
Гость
Народ извените, но я опьять поднимаю эту тему чтобы другие знали про все возможности.
В VB есть еще свой (старый) движок (если нужно вести базу даных).
Надо определить поля

Public Type Tabl1
Pole1 as Strings*25
Pole2 as Integer
Pole3 as byte
Pole4 as Long
end Type

Процедура
Dim TmpTbl as Tabl1
Open "d:\text.tmp" For Random As #1 Len=Len(TmpTbl ) ' Открываем файл в произвольном доступе
Put #1, Номер_позиции, TmpTbl ' Сохраняем запись
Get #1, Номер_позиции, TmpTbl ' Читаем запись
Msgbox TmpTbl.Pole1 ' Так мы обращаемся к полю чтобы присвоить или опросить
close 1 ' Закрываем файл

Заметка:
При присваиванию Pole1 типу Strings*25 текстового значения учтите что поле будет переменная будет иметь размер 25байт, тоисть пустое пространство будет заполнено пробелами.
Полезный совет:
1. Для того чтобы удалить пробелы используйте функцию RTrim() или Trim()
2. Если у Вас часто возникает ошибка о повторном открытии файла и вы не можете отследить где именно вы забываете закрыть файл методом Close 1, то я Не рекомендую, но все таки возможно просто перед открытием лишний раз в холостую закрыть файл. Ошибки не будет.
...
Рейтинг: 0 / 0
27.01.2007, 13:47
| Ответить | Цитировать | Написать  
Создать файл...
    #34287201
Andrey911
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey911
Гость
Вот Вам еще один пример которым я пользуюсь. Одним мгновением загружаю файл в переменную типа Variant или сохраняю из нее в файл. Я пока сохранял грабаные странички инета - их макс. размер был около 300Кб. Я не пробовал есть ли ограничения!

Читаем быстро в переменную
Dim SS as Variant

Open NameFile For Input As #1
Maxn = FileLen(NameFile) 'Смотрим длину файла в байтах
SS = Input$(Maxn, 1) ' Присваиваем переменной всю информацию из файла
Close 1

Сохраняем
Open NameFile For Output As #1
Print #1,SS
Close 1
...
Рейтинг: 0 / 0
27.01.2007, 13:59
| Ответить | Цитировать | Написать  
Создать файл...
    #34333820
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Хочу поделиться наблюдением (впользу FSO)
две процедуры копирования файла
первая
Код: plaintext
1.
2.
Sub test1()
    FileCopy "C:\temp\test.xls", "C:\temp\temp\test.xls"
End Sub

вторая
Код: plaintext
1.
2.
3.
4.
Sub test2()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile "C:\temp\test.xls", "C:\temp\temp\test.xls"
End Sub

Так вот если файл открыт, то первая процедура выдает 70-ю ошибку: "нет доступа".
А вторая копирует без проблем.
...
Рейтинг: 0 / 0
15.02.2007, 15:32
| Ответить | Цитировать | Написать  
Создать файл...
    #34333871
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
vkodorХочу поделиться наблюдением (впользу FSO)
FSO по-любому бэст...
кста, можно подключить библиотеку классов "Microsoft Scripting Runtime" чтобы не мучаться...
...
Рейтинг: 0 / 0
15.02.2007, 15:42
| Ответить | Цитировать | Написать  
Создать файл...
    #34333910
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Проходящий vkodorХочу поделиться наблюдением (впользу FSO)
FSO по-любому бэст...
кста, можно подключить библиотеку классов "Microsoft Scripting Runtime" чтобы не мучаться...
Это ты о чем?
если об этом
Код: plaintext
Set fso = CreateObject("Scripting.FileSystemObject")
то я не мучаюсь
...
Рейтинг: 0 / 0
15.02.2007, 15:49
| Ответить | Цитировать | Написать  
Создать файл...
    #34334917
Фотография izali
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
izali
Участник
vkodor[quot VladConn]Вот тебе результат трех процедур
1-я
Код: plaintext
1.
2.
3.
...
    Set objTextStream = objFSO.OpenTextFile("C:\MyFile.txt", ForAppending, True, TristateFalse)
...
0,234375 сек.
2-я
Код: plaintext
1.
...    Set objTextStream = objFSO.OpenTextFile("C:\MyFile.txt", ForAppending, True, TristateFalse)
...
0,171875 сек
3-я
Код: plaintext
1.
...    Open "C:\MyFile.txt" [color=red]For Output[/color] As #f
...
0,09375 сек
win2000 sp4
office2000 sp3

В сравнении допущена неточность, но при проверке результаты не изменились...
...
Рейтинг: 0 / 0
15.02.2007, 19:54
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Создать файл...
    #35928642
2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
2
Гость
22sd d d
...
Рейтинг: 0 / 0
13.04.2009, 17:28
| Ответить | Цитировать | Написать  
Создать файл...
    #35928661
Sergey-maker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-maker
Гость
Скажите а можно ли вписать в файл 2-ные кавычки? Если возможно то объясните пожалуйста как?

Я хочу написать в созданном txt:

Слово1 Слово2 "Слово3" Слово4

Но ничего не выходит
...
Рейтинг: 0 / 0
13.04.2009, 17:32
| Ответить | Цитировать | Написать  
Создать файл...
    #35928778
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Sergey-maker
> Скажите а можно ли вписать в файл 2-ные кавычки? Если возможно то
> объясните пожалуйста как?
> Но ничего не выходит

А как пробуешь?
chr(код кавычек) как вариант


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
13.04.2009, 18:02
| Ответить | Цитировать | Написать  
Создать файл...
    #35928788
Sergey-maker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-maker
Гость
М? Я новичёк в этом деле, не сильно понимаю о чем Вы говорите.

Пишу значит так:

Dim fso, tf, WshShell

set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("i:\test.txt", True)

tf.WriteLine("тралля-ля "слово в кавычках" тралля-ля") 'вот тут как быть?

tf.Close
...
Рейтинг: 0 / 0
13.04.2009, 18:05
| Ответить | Цитировать | Написать  
Создать файл...
    #35928794
Sergey-maker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-maker
Гость
Это VBScript, а не VB
...
Рейтинг: 0 / 0
13.04.2009, 18:07
| Ответить | Цитировать | Написать  
Создать файл...
    #35928980
Sergey-maker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-maker
Гость
А всё, с этим разобрался. А как файл удалить?
...
Рейтинг: 0 / 0
13.04.2009, 20:00
| Ответить | Цитировать | Написать  
Создать файл...
    #35930702
так удалить
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
так удалить
Гость
Kill
...
Рейтинг: 0 / 0
14.04.2009, 14:09
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Создать файл...
    #37256145
капитан георгий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
капитан георгий
Гость
ЛЮДИ ЕМУ НАДО ВЕДЬ ТОЛЬКО .txt для чего ему все это барахло...

есть обект - Ritch Text Box м 6.0 и старых версиях в компонентах добавиш а в новой прямо есть в стандартных контрлях. у него есть метод - SaveFile.

rtb.savefile("C:\param.txt")

P.S.
можеш диалоговую форму использовать:
rtb.savefile (dialog.filename)

типа так будет. Удачи!!!
...
Рейтинг: 0 / 0
12.05.2011, 02:09
| Ответить | Цитировать | Написать  
38 сообщений из 38, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создать файл...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2158729]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 141ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 72ms
get tp. blocked users:
 1ms
others: 328ms
total:  585ms
созд. / загр.: 585ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]