| View previous topic :: View next topic |
| Author |
Message |
Infor_6
Joined: 10 Feb 2011
Posts: 14
|
 (Separately) Posted: Wed Feb 18, 2015 23:28 Post subject: Выгрузка данных о файле в txt шаблон |
 |
|
Доброго всем времени суток! Подскажите пожалуйста, как реализовать следующую задачу:
Есть список файлов, необходимо имена и размер этих файлов поместить в txt построчно и плюс к этому в txt уже должен быть текст, заранее готовый и всегда один и тот же.
Пример:
Постоянный текст
имя файла (размер),
имя файла (размер),
имя файла (размер)
Постоянный текст
Заранее спасибо! |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 19, 2015 02:12 Post subject: |
|
|
| Code: | '================================================================
' Создать список из выбранных файлов по шаблону:
' <текст сверху> + <имя файла (размер)> + <текст снизу>
' Параметры: %WL "<путь получателя>" "<базовое имя нового файла>"
'================================================================
With WScript.Arguments
C = .Count : If C = 0 Then WScript.Quit
If C <> 3 Then MsgBox "Следует указать 2 параметра!", 48,_
Space(12) & "Ошибка вводных данных" : WScript.Quit : End If
List = .Item(0) : Path = .Item(1) : Name = .Item(2)
End With : NL = vbNewLine : Set Shell = CreateObject("Shell.Application")
With CreateObject("Scripting.FileSystemObject")
Path = .BuildPath(Path, "\") : Set List = .OpenTextFile(List,,,-1)
Do : F = List.ReadLine : FN = .GetFileName(F)
Set Fd = Shell.NameSpace(.GetParentFolderName(F))
S = S & NL & FN & " (" & Fd.GetDetailsOf(Fd.ParseName(FN), 1) & "),"
Loop Until List.AtEndOfStream : NP = Name & ".txt" : i = 0
While (.FileExists(Path & NP) OR .FolderExists(Path & NP))
i = i + 1 : NP = Name & " (" & i & ").txt" : Wend
.OpenTextFile(Path & NP, 2, True, -1).Write _
"постоянная cтрока 1" & NL &_
"постоянная строка 2" & NL &_
Mid(S, 3, Len(S) - 3) & NL &_
"постоянная строка 3" & NL &_
"постоянная строка 4" & NL & NL &_
"постоянная строка 5" & NL & NL &_
"постоянная строка 6"
End With
With CreateObject("WScript.Shell")
If Path <> Fd.Self.Path & "\" Then .SendKeys "{TAB}"
.Exec """%COMMANDER_EXE%"" /S /O /L=""" & Path & NP & "\:"""
End With |
Заодно см. сюда.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Feb 19, 2015 20:43; edited 5 times in total |
|
| Back to top |
|
|
Infor_6
Joined: 10 Feb 2011
Posts: 14
|
| (Separately) Posted: Thu Feb 19, 2015 13:09 Post subject: |
|
|
| Друг, а как это всё запустить? |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10415
Location: Россия, Саратов
|
| (Separately) Posted: Thu Feb 19, 2015 13:22 Post subject: |
|
|
Infor_6
Воспользоваться поиском по форуму (пример результата) или заглянуть в обязательную для прочтения на данном подфоруме памятку.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
Infor_6
Joined: 10 Feb 2011
Posts: 14
|
| (Separately) Posted: Thu Feb 19, 2015 13:44 Post subject: |
|
|
Avada
Flasher
Друзья! Ну это просто праздник какой то))) Спасибо вам большое!!!!! Только подскажите ещё пару моментов, по поиску не нашел!
Как поставить запятые, после размера в каждой строке и можно, если можно, в последней строке не ставить запятую!
Так же нужен ''постоянный текст'' нужен сверху...
Ах да и "постоянный текст" кракозябрами выходит(( |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 19, 2015 14:37 Post subject: |
|
|
| Infor_6 wrote: | | по поиску не нашел! |
Серьёзно?  Дополнил скрипт.
| Infor_6 wrote: | | "постоянный текст" кракозябрами выходит(( |
В редакторе/листере в настройках выбрать юникодный шрифт. Также в обычном листере нажать клавишу 6.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Infor_6
Joined: 10 Feb 2011
Posts: 14
|
| (Separately) Posted: Thu Feb 19, 2015 15:10 Post subject: |
|
|
Flasher
Где скрипт дополнил? И про 'постоянный текст', он кракорзябрами выходит уже в результате выполненного скрипта! |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 19, 2015 15:23 Post subject: |
|
|
Infor_6
Т.е. "где"? Там же. Текст выходит нормально. Ещё раз внимательно смотрим на рекомендации.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Infor_6
Joined: 10 Feb 2011
Posts: 14
|
| (Separately) Posted: Thu Feb 19, 2015 18:55 Post subject: |
|
|
Flasher
Друг, ну ты капитальный красавчик! Запятые проставляются как надо!!!
С кракозябрами разберусь... Ну поставь ещё 'постоянный текст' сверху пожалуйста!! |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 19, 2015 19:00 Post subject: |
|
|
| Infor_6 wrote: | | Ну поставь ещё 'постоянный текст' сверху пожалуйста!! |
Можно и без "ну". Это не было заявлено. Нижний оставлять там же?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Infor_6
Joined: 10 Feb 2011
Posts: 14
|
| (Separately) Posted: Thu Feb 19, 2015 19:03 Post subject: |
|
|
Flasher
Друг! Честно слово НО хотел написать, не обижайся!
Нижний оставляй)) Т.е. выглядеть будет так:
'постоянный текст'
файл (размер),
файл (размер),
файл (размер)
'постоянный текст' |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 19, 2015 19:06 Post subject: |
|
|
Infor_6
Т.е. уже без отделения пустой строкой?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Infor_6
Joined: 10 Feb 2011
Posts: 14
|
| (Separately) Posted: Thu Feb 19, 2015 19:38 Post subject: |
|
|
Flasher
Если уже конкретно, то вот такая схема должна получиться:
'постоянный текст'
'постоянный текст'
файл (размер),
файл (размер),
файл (размер)
'постоянный текст'
'постоянный текст'
'постоянный текст'
'постоянный текст' |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 19, 2015 19:42 Post subject: |
|
|
Infor_6
Текст на каждых строках разный? Если да, то надо было хотя бы пронумеровать.
И если я правильно понял, то -  .
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
