ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создать файл...
25 сообщений из 38, страница 1 из 2
  1  все
Создать файл...
    #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
| Ответить | Цитировать | Написать  
25 сообщений из 38, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создать файл...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=102&tid=2158729]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 13ms
total:  171ms
созд. / загр.: 171ms
x
x
Закрыть


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