Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
tomik
1

Организация записи в файл и чтения атрибутов файла

22.11.2010, 15:02. Просмотров 1199. Ответов 1
Метки нет (Все метки)


Доброго времени суток на циферблате Друзья понимаешь!!!!

КАК ОРГАНИЗОВАТЬ ЗАПИСЬ В ФАЙЛ И ЧТЕНИЕ атрибуты ФАЙЛА (Такие как дата/время создания)
ЗапиСЬ в ФАЙЛ
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub saveParameters()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
'MultiPage1.GraphPage.Enabled = True
Dim fs, f
Set fs = CreateObject('Scripting.FileSystemObject')
'Set a = fs.CreateTextFile(ActiveDocument.Path + 'филе.ini', True)
'a.WriteLine ('This is a test.')
'a.Close
' Set f = fs.OpenTextFile(ActiveDocument.Path + 'филе.ini', ForReading, TristateFalse)
' a = f.readline
' f.Close
' MsgBox a
Set f = fs.OpenTextFile(ActiveDocument.Path + 'филе.ini', ForWriting, TristateFalse)
f.writeline ('[GraphSettings]')
f.writeline ('DrawGridLines=' + Valueofbool(UserForm1.CheckBox1.Value))
.....
f.Close
End Sub
Чтение из ФАЙЛА
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub readParamsfromIni()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject('Scripting.FileSystemObject')
If fs.fileexists(ActiveDocument.Path + 'филе.ini') Then
'файл настройки есть
Set f = fs.OpenTextFile(ActiveDocument.Path + 'филе.ini', ForReading, TristateFalse)
razdname = ''
While Not f.atendofstream
a = f.readline
If Mid(a, 1, 1) = '[' Then
razdname = LCase(Trim(Mid(a, 2, Len(a) - 2)))
Else
a1 = GetParamName(a)
a2 = GetParamValue(a)
.....
End If
f.Close
End Sub
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2010, 15:02
Ответы с готовыми решениями:

Класс для чтения из файла, записи в файл
Появился вопрос по с++. Создал класс, который может читать и записывать в файл. деструктор класс ...

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

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

Создание файла для записи и чтения, запись в файл данных
Написать простейшую программу, которая для своей работы использует системные вызовы...

1
0 / 0 / 3
Регистрация: 28.01.2010
Сообщений: 279
22.11.2010, 18:06 2
А что, когда после f точку ставишь из списка трудно выбрать свойство DateCreated?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2010, 18:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Драйвер для чтения из файла и записи в файл последних 20 слов
Нужно скопировать последние 20 слов с одного текстового файла в другой За основание берем две...

Разработать и добавить функции записи исходных данных в файл и чтения их из файла
Здраствуйте всем. Как хорошо что сайт заработал.) Ребята помогите с бинарными файлами 2 дня уже...

Организация запросов чтения и записи к базе
Доброе время суток ! Пишу Web-сервис(ASP.NET 2.0, ADO.NET 2.0) работающий с базой (MS SQL Server...

После копирования файла методом чтения-записи файл копия оказывается поврежденным
Реализовывал копирование фала путем : а) чтения содержимого файла в массив. б) запись содержимого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.