Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Создание папки с именем строго по указанному образцу

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
safarov



Joined: 19 Apr 2017
Posts: 3

Post (Separately) Posted: Thu Apr 20, 2017 08:50    Post subject: Создание папки с именем строго по указанному образцу Reply with quote

Добрый день, подскажите пожалуйста как можно сделать контроль на имя папки, если пользователь создает папку то ее имя должно соответствовать требованию, например "Мир_1234567890"
то есть после названия обязательно числовой код не меньше 10 символов
ели символов нет или их меньше то папка не создается и выходит предупреждение.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8443
Location: Россия, Саратов

Post (Separately) Posted: Thu Apr 20, 2017 09:13    Post subject: Reply with quote

Во-первых, что это за зверь такой "контроль на имя папки"?
Во-вторых, про оформление заголовков читайте в правилах форума.
В-третьих, там же сказано про соблюдение в сообщениях элементарных норм русского языка.
В-четвёртых, запрос вообще крайне невразумителен. Перечитайте, что написали. Откуда берётся, например, это "символов нет или их меньше"? Символы конкретные (и если да, то откуда берётся "требование") или произвольные? И так далее.
Это не говоря про то, что в подфоруме "Автоматизация" уже существует куча тем по созданию папок по самым разным критериям.

Для начала — замечание за нарушение правил форума. Заголовок пока оставляю без изменения, поскольку непонятно, о чём вообще речь. Объясните задачу нормально.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11412
Location: Москва

Post (Separately) Posted: Thu Apr 20, 2017 12:22    Post subject: Reply with quote

Типа того?:
Code:
'=============== VBS ==============
' Создание каталога Name_№№№№№№№№№№
' Условие: путь запуска - пустой
'==================================
S = vbCr & vbCr : Er = S
Arr = Array("", "") : A = Arr
FolderName = "Name_0123456789"
With CreateObject("Scripting.FileSystemObject")
  Do : FolderName = RTrim(InputBox(Er & vbCr & vbCr &_
    "Введите имя нового каталога в формате <ИМЯ>_№№№№№№№№№№:",_
    " Создание каталога", FolderName))
    Check2 = 1 : If FolderName = "" Then WSH.Quit
    Arr = A : If InStr(FolderName, "_") Then Arr = Split(FolderName, "_")
    Check1 = Len(Arr(0)) > 0 And IsNumeric(Arr(1)) And Len(Arr(1)) => 10
    If Not Check1 Then Er = S & "Ошибка: Имя не соответcтвует шаблону!" Else _
    If .FolderExists(FolderName) Then Check2 = 0 : Er = S & "Ошибка: такой каталог существует!"
    If Check1 And Check2 Then Exit Do
  Loop : .CreateFolder FolderName
End With

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Thu Apr 20, 2017 13:43; edited 1 time in total
Back to top
View user's profile Send private message
safarov



Joined: 19 Apr 2017
Posts: 3

Post (Separately) Posted: Thu Apr 20, 2017 13:34    Post subject: Reply with quote

Да что-то этого только папку надо создавать в текущей, а не в той где скрипт лежит
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11412
Location: Москва

Post (Separately) Posted: Thu Apr 20, 2017 13:40    Post subject: Reply with quote

>>>
Avada wrote:
там же сказано про соблюдение в сообщениях элементарных норм русского языка.
Как в одно ухо...
Пункты 8 и 7 (именно в такой последовательности) к прочтению.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
safarov



Joined: 19 Apr 2017
Posts: 3

Post (Separately) Posted: Thu Apr 20, 2017 13:55    Post subject: Reply with quote

Спасибо, помогло
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8443
Location: Россия, Саратов

Post (Separately) Posted: Thu Apr 20, 2017 14:01    Post subject: Reply with quote

safarov
Еще одно демонстративное нарушение правил в любой теме, и дальше этот форум обойдётся без вашего участия.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group