Сделайте первую букву пользователя вводом капиталом в пакетном скрипте
-
29-09-2019 - |
Вопрос
Это пакетный скрипт, который я использую для создания папок для нового клиента:
@ECHO OFF
SET /p clientLast=Enter Client's Last Name:
SET /p clientFirst=Enter Client's First Name:
ECHO Making Folders...
MKDIR "%clientLast%, %clientFirst%"
MKDIR "%clientLast%, %clientFirst%"\Budget
MKDIR "%clientLast%, %clientFirst%"\"Business Registration"
MKDIR "%clientLast%, %clientFirst%"\Correspondence
MKDIR "%clientLast%, %clientFirst%"\"Financial Info"
MKDIR "%clientLast%, %clientFirst%"\Forms
MKDIR "%clientLast%, %clientFirst%"\Illustrations
MKDIR "%clientLast%, %clientFirst%"\"Loans & Investments"
MKDIR "%clientLast%, %clientFirst%"\"Personal Info"
MKDIR "%clientLast%, %clientFirst%"\Recommendations
MKDIR "%clientLast%, %clientFirst%"\"Tax Misc"
TREE "%clientLast%, %clientFirst%"
ECHO DONE~~~~~~~~~~~~~~~
PAUSE
Я хочу иметь возможность добавить возможность автоматически опередить первую букву каждого слова.
Я нашел способ сделать это, заменив каждую букву на пространство перед ним на капитал, который выглядит примерно как:
FOR %%i IN ("a=A" " b= B" " c= C" " d= D" " e= E" " f= F" " g= G" " h= H" " i= I" " j= J" " k= K" " l= L" " m= M" " n= N" " o= O" " p= P" " q= Q" " r= R" " s= S" " t= T" " u= U" " v= V" " w= W" " x= X" " y= Y" " z= Z") DO CALL SET "%1=%%%1:%%~i%%"
Но это не использует первое слово ...
Любые идеи?
Решение
Или с чистой партией ...
@echo off
setlocal EnableDelayedExpansion
call :FirstUp result hello
echo !result!
call :FirstUp result abc
echo !result!
call :FirstUp result zynx
echo !result!
goto :eof
:FirstUp
setlocal EnableDelayedExpansion
set "temp=%~2"
set "helper=##AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ"
set "first=!helper:*%temp:~0,1%=!"
set "first=!first:~0,1!"
if "!first!"=="#" set "first=!temp:~0,1!"
set "temp=!first!!temp:~1!"
(
endlocal
set "result=%temp%"
goto :eof
)
Функция: firstup использует трюк поиска первого символа в строке вспомогательного вещества с помощью% var: * x =% Syntax.
Это удаляет все символы до первого возникновения (поэтому я удваиваю все символы), поэтому сначала вы получили слово «VOX», «VWWXXYYZZZ», то я просто принимаю первую чар% первым%, чтобы получить столицу и добавить Остальная часть исходной строки без после первого числа.
Другие советы
Лично я переписал его как Python или VBScript:
Быстрый / неочищенный концептуальный код VBScript, не особенно эффективный, но, надеюсь, читал:
Function MakeDirectories (strRootFolder, strParentFolder, strArrayFolderNames)
on error resume next
err.clear
Set objFSO = CreateObject("Scripting.FileSystemObject")
strParentFolder = strRootFolder & "\" & strParentFolder
if not objFSO.FolderExists(strParentFolder) then
objFSO.CreateFolder(strParentFolder)
end if
if err.number then
MakeDirectories = false
exit function
end if
dim strNewFolder
for each strfolderName in strArrayFolderNames
strNewFolder = strParentFolder & "\" & ProperNames(strFolderName)
if not objFSO.FolderExists(strNewFolder) then
objFSO.CreateFolder(strNewFolder)
end if
next
if err.number then
MakeDirectories = false
else
MakeDirectories = True
end if
End function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function Proper ( strText )
Proper = ucase(left(strText,1)) & lcase(mid(strText,2))
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ProperNames ( strText )
if instr(strText," ") > 0 then
dim temp, i
temp = split(strText, " ")
for i = lbound(temp) to ubound(temp)
temp(i) = Proper(temp(i))
next
ProperNames = join(temp, " ")
else
ProperNames = Proper(strText)
end if
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Main ( )
dim strLastName, strFirstName
strLastName = InputBox("Please enter the client's last name:")
if strLastName = "" then exit sub
strFirstName = InputBox("Please enter the client's first name:")
if strLastName = "" then exit sub
'' a better alternative might be to put the desired folder
'' into a text file and have the program read said data
dim strArrayFolderNames(9)
strArrayFolderNames(0) = "Budget"
strArrayFolderNames(1) = "Business Registration"
strArrayFolderNames(2) = "Correspondence"
strArrayFolderNames(3) = "Financial Info"
strArrayFolderNames(4) = "Forms"
strArrayFolderNames(5) = "Illustrations"
strArrayFolderNames(6) = "Loans & Investments"
strArrayFolderNames(7) = "Personal Info"
strArrayFolderNames(8) = "Recommendations"
strArrayFolderNames(9) = "Tax Misc"
dim strDelimeter, strRootFolder, strParentFolder
strDelimeter = "-" '' I suggest avoiding the use of ","
strRootFolder = "C:\docs\temp"
strParentFolder = Proper(strLastName) & strDelimeter & Proper(strFirstName)
If MakeDirectories(strRootFolder, strParentFolder, strArrayFolderNames) then
wscript.echo ("Folders all made.")
else
wscript.echo ("Error: one or more folders was not created.")
end if
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Main ()
Наконец, я предлагаю вам не Используйте запятые в именах папок, он сэкономит вам горе администратора вниз по дороге.
Майкл.