在批处理脚本中输入用户输入的第一个字母

这是我用来为新客户端创建文件夹的批处理脚本：

@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%%"

但这并没有把第一个词大写...... 有任何想法吗？

已邀请:

2 个回复

搜洼挂时

或者用纯批次......

@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 =％语法中搜索辅助字符串中第一个字符的技巧。这会在第一次出现之前删除所有字符（因此我将所有字符加倍）所以，首先你得到“vox”，“VWWXXYYZZ”这个词，然后我只需要第一个字符％％％来获得资本，并在第一个字符后不附加原始字符串的其余部分。

厢界山攀

我个人将其重写为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:docstemp"
    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 ()

最后，我建议你不要在文件夹名称中使用逗号，它将为你节省管理员的悲伤。迈克尔。

要回复问题请先登录或注册

在批处理脚本中输入用户输入的第一个字母

2 个回复

发起人

title_case

问题状态

在批处理脚本中输入用户输入的第一个字母

与内容相关的链接

2 个回复

发起人

title_case

问题状态