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


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