|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Добавить в первую строку текстового файла его имя и дату |
|
VBS/WSH/JS - Добавить в первую строку текстового файла его имя и дату
|
Новый участник Сообщения: 7 |
Подскажите метод для JS или VBS как добавить к текстовому файлу первую строку.
А то не очень хочется считывать в массив и записывать обратно. Может быть есть решение попроще ? |
|
Отправлено: 17:49, 01-07-2011 |
Ветеран Сообщения: 2721
|
Профиль | Отправить PM | Цитировать Vbs: Прочитать файл в строковую переменную (ReadAll)- закрыть его - прибавить впереди что нужно+ vbCrLf -записать вместо имеющегося файла (Write). Массив не нужен. Проще сделать не удастся.В конец файла дописать что-то можно, в начало - никак иначе. Что-то похожее сделано
Цитата megaloman:
fTxt1 = "d:\Delete\Целевой файл.txt" ' Где Исходный текстовый файл Set FSO = CreateObject("Scripting.FileSystemObject") Plus = CStr(Now) + " """ + FSO.GetFileName(fTxt1) + """ создан " + CStr(FSO.GetFile(fTxt1).DateCreated) Set F = FSO.OpenTextFile(fTxt1, 1) S = F.ReadAll F.Close Set F = FSO.CreateTextFile(fTxt1, True) F.Write Plus + vbCrLf + S F.Close |
|
------- Последний раз редактировалось megaloman, 02-07-2011 в 11:29. Отправлено: 18:06, 01-07-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 78
|
Профиль | Отправить PM | Цитировать Цитата SergeyVD:
Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") myDate=Right("0" & Day(Date), 2)&"."& Right("0" & Month(Date), 2)&"."&Year(Date) Set f = fso.OpenTextFile("C:\Users\OSA\Desktop\test.txt", 1) 'заменить путь ReadAllTextFile = f.ReadAll Set f = fso.OpenTextFile("C:\Users\OSA\Desktop\test.txt", 2, True) f.WriteLine("test.txt" & "_" & myDate) f.Write(ReadAllTextFile) MsgBox "Готово!" |
|
Отправлено: 18:17, 01-07-2011 | #3 |
Ветеран Сообщения: 3806
|
Профиль | Отправить PM | Цитировать Не надо пытаться считывать произвольный файл в память, работаете с диском!
|
Отправлено: 09:17, 05-07-2011 | #4 |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать А можно поподробнее про работу с файлом. Ибо действительно возникают плавающие ошибки при считывании-записи ReadAll-Write.
|
|
Отправлено: 16:37, 06-07-2011 | #5 |
Ветеран Сообщения: 2721
|
Профиль | Отправить PM | Цитировать Busla, Не такой уж он произвольный, этот файл. И не вижу причин, почему бы не прочесть его в память, тут уж надо задачу уточнять, насколько он велик. Другое дело, повысить надёжность можно, если записать результат не в исходный файл, а, в, например, .TMP в этой же папке, с последующим его переименованием (перемещением) в исходный файл - то есть проделать то же, что придётся проделать при работе с файлом - иметь одновременно 2 файла: исходный и результат. При некотором стечении обстоятельств в обоих случаях одинаково можно получить неприятность при переименовании (перемещении).
Цитата:
|
|
------- Отправлено: 19:38, 06-07-2011 | #6 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата megaloman:
|
|
Отправлено: 20:06, 06-07-2011 | #7 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Поиск текстового файла по его содержимому | Elektronik063 | Скриптовые языки администрирования Windows | 1 | 15-02-2011 03:35 | |
MSFT SQL Server - результаты запроса в виде текстового файла и его обработка | minusodin | Программирование и базы данных | 7 | 30-03-2010 15:48 | |
CMD/BAT - [решено] Создание текстового файла при условии его отсутствия в папке | spilberg | Скриптовые языки администрирования Windows | 1 | 12-07-2009 15:58 | |
CMD/BAT - [решено] Как скопировать имя файла из текстового файла в код батника и т.д. | Nun-Nun | Скриптовые языки администрирования Windows | 6 | 13-05-2009 13:28 | |
как бы добавить в переменные имя ключа реестра и его значение ? | mitiya | Программирование и базы данных | 21 | 23-04-2008 11:54 |
|