Hopefully "ScriptingTipsAndTricks" helps you with your batch file or vbscript scripting :-)
[Bottom][Contents][Prev]: Read File Contents - first line or all lines[Next]: RemoveTrailingSpacesTabs - removes spaces and tabs
\->Batch Files->Remove-Trailing-Digits() - removes trailing 0-9

[anchor]

The Code for: "Remove-Trailing-Digits() [removes trailing 0-9].cmd.txt"

This is the example, a shortcut was installed to this code :

::@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
:: $Header:   C:/DBAREIS/Projects.PVCS/Win32/ScriptingTipsAndTricks/EXAMPLE[cmd].Remove-Trailing-Digits() [removes trailing 0-9].cmd.txt.pvcs   1.0   29 Jun 2014 12:51:22   USER "Dennis"  $
::@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@





@rem +++++++++++++++++++++++++++++++++++
:RemoveTrailingDigits
@rem +++++++++++++++++++++++++++++++++++
    set  RTD_NAME=%~1
    set RTD_VALUE=!%RTD_NAME%!
 :RTD_AGAIN
    set      Last1=%RTD_VALUE:~-1%
    set ExceptLast=%RTD_VALUE:~0,-1%
    if "%Last1%" == "0" goto IsDigit
    if "%Last1%" == "1" goto IsDigit
    if "%Last1%" == "2" goto IsDigit
    if "%Last1%" == "3" goto IsDigit
    if "%Last1%" == "4" goto IsDigit
    if "%Last1%" == "5" goto IsDigit
    if "%Last1%" == "6" goto IsDigit
    if "%Last1%" == "7" goto IsDigit
    if "%Last1%" == "8" goto IsDigit
    if "%Last1%" == "9" goto IsDigit
       set %RTD_NAME%=%RTD_VALUE%
       goto :EOF
    :IsDigit
       set RTD_VALUE=%ExceptLast%
       goto RTD_AGAIN

Please note that that I am not trying to show how great I am by producing batch files 9,000 characters long on one line that no one will understand or be able to debug when they go wrong. I am going out of my way to comment the code and make it verbose so beginners and advanced users will both benefit. I don't claim to be an expert that knows everything, if I'm wrong or make a mistake then please contact me and let me know :-)


Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.Please email me any feedback, additional information or corrections.
See this page online (look for updates)

[Top][Contents][Prev]: Read File Contents - first line or all lines[Next]: RemoveTrailingSpacesTabs - removes spaces and tabs


ScriptingTipsAndTricks© is (C)opyright Dennis Bareis 2003-2008 (All rights reserved).
Sunday September 07 2014 at 12:50pm
Visit ScriptingTipsAndTricks's Home Page
Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.