Re: Parsing an environmental variable
Herbert Kleebauer
> Looking for some help in parsing a variable. I need to inspect the first 4
> characters of the variable and if equal to a given 4 character string goto
> some additional logic. Any pointers to code snippets would be helpful. bat
> must run on both WIN98 and WINXP platforms.
@echo off
echo Bj@jzh`0X-`/PPPPPPa(DE(DM(DO(Dh(Ls(Lu(LX(LeZRR]EEEUYRX2Dx=>edl.com
echo 0DxFP,0Xx.t0P,=XtGsB4o@$?PIyU WwX0GwUY Wv;ovBX2Gv0ExGIuht6>>edl.com
echo ?@}I{uNWEF~NPGQaEFAKLGSaIj@KMuHaEFGKYGSavh@{HM?cGOuGGwHm?z>>edl.com
echo CgisGGH`LbuuGNO@hRgco{W?dOGg@N?]gBgoG}G?X_SgONks?GN`LBgDu}>>edl.com
echo G?I_DgGNoG?w@jgLiuuroD@?FHoGpBBDcB?1?pIoGxaEGybECt}ExvHmEA>>edl.com
echo AoF?DO~yanxGWap?@?lpZrH~sa`LyNHKqDGwQVTNG`CoECICtdL{D?{esL>>edl.com
echo ysICu_{OuD@sGxECHt~F@rgNHYq`EE{S~{HqegC{Lr@CE{HQ}@ExuGtPmB>>edl.com
echo BwjFCs?osqs?}n`LKLj?o{}HwJvCrpGyECt~~1}HGGHGy`G{}COuJaxLGS>>edl.com
echo i}BWuNC_FE{sGQEGFAPqGSEGNAcQNJwLECuQsa{Oe~CK~GQqGSeGSEFbCT>>edl.com
echo G?QEFbBgGGH1jnjBrz?JAcqo~O~?lJgvxs~CspajF{oFEBHijnjBrz?JAc>>edl.com
echo vx~O~?QJLqos~CspFjN{xFEByijnj@ComJcIpGy@ojZN{mJQujG{{]JQJB>>edl.com
echo GcCrmCJbjbGy]CFrj~GQEGjBSo_KVBxVkSfCA?A_@NJBHmCrnEp1JYjxCo>>edl.com
echo I[r`{BFCHtdC}ECQBsGC@ZgB@WgB}fj~BsMV@NgB~]hvsb{Os{{Q{msDOs>>edl.com
echo ycsk{SK{PQ{TsHVsQdsq{Sj{]ACCNWl{~BXCNW_K~BxVkSfCA?Cb@N}W@{>>edl.com
echo =sIfjBH}G}H}NK}NNguM@[umGWBJWD@mzDGCCrmCJFuhCrmC{@jJSN?`G}>>edl.com
echo EC{Cs@Ptcc?AyAFZp{GQEGjBKpEFDNIGQq=jBktx{SAzDgsjGKtl{SCzDg>>edl.com
echo jjGKtc{SEzDgajGKtG{SGzDgXjGKtL{SIzDgOjGKtR{SKzDgFjGKtX{S?z>>edl.com
echo MgFIGG?KgF@FIE?EgF}ThzoEuRN~CK}xDqgLoqo?t_ogIK?h?{JU=fGMuG>>edl.com
echo Ouz_FrGCsCyOjEEsjwr~EvPK~GypCt~Fy}HQ}HGGxG{pERNG]GxPa_BfsG>>edl.com
echo UaUy?h@xGGJH?w``LRaDBBobc?W?a_W?G_0x>>edl.com
set a=%1
echo %a%|edl "" "$:0104"|find "abcd">nul
if errorlevel 1 echo first 4 charcters are not abcd
if not errorlevel 1 echo first 4 charcters are abcd
del edl.com
:: usage: edl "string1" "string2" <infile >outfile
:: replaces any non empty line in infile by string2
:: (a line is non empty if it contains at least one
:: character greater 0x20) and writes it to outfile.
::
:: Any character in string1 separates words
::
:: string2 can contain:
:: $00-$ff : hexbytes
:: $:abcd : input line [ab:cd] ab,cd hex values
:: $#0 : complete input line
:: $#n (n=1..9) : 1.- 9. word of input line
:: $#c (c=a..z) : 10.-35. word of input line
:: $l : line till first separator char
:: $L : line till last separator char
:: $r : line after first separator char
:: $R : line after last separator char
:: $+ : increment number before $+
:: $- : decrement number before $-
:: $tY : year (upper 2 digits)
:: $ty : year (lower 2 digits)
:: $tm : month
:: $td : day
:: $tH : hour
:: $tM : minute
:: $tS : second
::
:: instead of $ you can also use @, then any % is doubled