测试环境：windows10
使用方法：
文本编辑器中保存为“排盘.bat”，文件类型选所有文件，双击运行程序，再输入数字代表的性别01，阴历出生日期，时间段代表数字回车即可生成。
适用：命理爱好者
0406更新：
1.修改了五行局计算
有问题留言
@echo off
setlocal enabledelayedexpansion
title 紫微斗数排盘
rem 作者信息
echo 简介：紫微斗数飞星派排盘
echo 课程地址：https://www.iqiyi.com/v_19rv85cw7c.html
echo 作者:phenix
rem 输入信息
set /p gender=请输入性别代表的数字，男生输入0，女生输入1:
set /p birth=请输入农历生日数字，比如二零二二年六月初一就输入2022-6-1:
set /p time=请输入时辰代表的数字-23~1点输入0,1~3点输入1,3-5点输入2,5-7点输入3,7-9点输入4,9-11点输入5,11-13点输入6,13-15点输入7,15-17点输入8,17-19点输入9,19-21点输入10,21-23点输入11：
rem 生成排盘信息
set genderName=
if "!gender!" equ "0" (
set genderName=乾
) else (
set genderName=坤
)
set year=
set month=
set fullmonth=
set day=
set fullday=
for /f "tokens=1,2,3 delims=-" %%a in ("!birth!") do (
set year=%%a
set month=%%b
set day=%%c
set fullmonth=%%b
set fullday=%%c
if %%b lss 10 (
set fullmonth=0%%b
)
if %%c lss 10 (
set fullday=0%%c
)
)
set monthName=
set padding=
if !month! lss 11 (
set padding=
)
if "!month!" equ "1" (
set monthName=一
)
if "!month!" equ "2" (
set monthName=二
)
if "!month!" equ "3" (
set monthName=三
)
if "!month!" equ "4" (
set monthName=四
)
if "!month!" equ "5" (
set monthName=五
)
if "!month!" equ "6" (
set monthName=六
)
if "!month!" equ "7" (
set monthName=七
)
if "!month!" equ "8" (
set monthName=八
)
if "!month!" equ "9" (
set monthName=九
)
if "!month!" equ "10" (
set monthName=十
)
if "!month!" equ "11" (
set monthName=十一
)
if "!month!" equ "12" (
set monthName=十二
)
set dayName=
if !day! lss 11 (
set padding=!padding!
) else (
if !day! lss 21 (
set padding=!padding!
)
)
if "!day!" equ "1" (
set dayName=一
)
if "!day!" equ "2" (
set dayName=二
)
if "!day!" equ "3" (
set dayName=三
)
if "!day!" equ "4" (
set dayName=四
)
if "!day!" equ "5" (
set dayName=五
)
if "!day!" equ "6" (
set dayName=六
)
if "!day!" equ "7" (
set dayName=七
)
if "!day!" equ "8" (
set dayName=八
)
if "!day!" equ "9" (
set dayName=九
)
if "!day!" equ "10" (
set dayName=十
)
if "!day!" equ "11" (
set dayName=十一
)
if "!day!" equ "12" (
set dayName=十二
)
if "!day!" equ "13" (
set dayName=十三
)
if "!day!" equ "14" (
set dayName=十四
)
if "!day!" equ "15" (
set dayName=十五
)
if "!day!" equ "16" (
set dayName=十六
)
if "!day!" equ "17" (
set dayName=十七
)
if "!day!" equ "18" (
set dayName=十八
)
if "!day!" equ "19" (
set dayName=十九
)
if "!day!" equ "20" (
set dayName=二十
)
if "!day!" equ "21" (
set dayName=二十一
)
if "!day!" equ "22" (
set dayName=二十二
)
if "!day!" equ "23" (
set dayName=二十三
)
if "!day!" equ "24" (
set dayName=二十四
)
if "!day!" equ "25" (
set dayName=二十五
)
if "!day!" equ "26" (
set dayName=二十六
)
if "!day!" equ "27" (
set dayName=二十七
)
if "!day!" equ "28" (
set dayName=二十八
)
if "!day!" equ "29" (
set dayName=二十九
)
if "!day!" equ "30" (
set dayName=三十
)
if "!day!" equ "31" (
set dayName=三十一
)
set birthName=!year!.!fullmonth!.!fullday!
rem echo !genderName!
rem echo !birthName
set timeName=
if "!time!" equ "0" (
set timeName=子
)
if "!time!" equ "1" (
set timeName=丑
)
if "!time!" equ "2" (
set timeName=寅
)
if "!time!" equ "3" (
set timeName=卯
)
if "!time!" equ "4" (
set timeName=辰
)
if "!time!" equ "5" (
set timeName=巳
)
if "!time!" equ "6" (
set timeName=午
)
if "!time!" equ "7" (
set timeName=未
)
if "!time!" equ "8" (
set timeName=申
)
if "!time!" equ "9" (
set timeName=酉
)
if "!time!" equ "10" (
set timeName=戌
)
if "!time!" equ "11" (
set timeName=亥
)
rem echo !timeName!时
set /a yearNumber=!year!-1911
set yearTopNumber=!yearNumber:~-1!
set /a yearBottomNumber=!yearNumber!%%12
rem echo 天干数!yearNumber!
set yearTop=
set yearTopGroup=
set fromPalace=
set sky0403=
set sky0406=
set sky0409=
set sky0412=
set sky0803=
set sky0812=
set sky1203=
set sky1212=
set sky1603=
set sky1606=
set sky1609=
set sky1612=
rem 子0丑1寅2卯3辰4巳5午6未7申8酉9戌10亥11
set land0401=5
set land0404=6
set land0407=7
set land0410=8
set land0801=4
set land0810=9
set land1201=3
set land1210=10
set land1601=2
set land1604=1
set land1607=0
set land1610=11
set fromPalace0203=
set fromPalace0206=
set fromPalace0209=
set fromPalace0212=
set fromPalace0603=
set fromPalace0612=
set fromPalace1003=
set fromPalace1012=
set fromPalace1403=
set fromPalace1406=
set fromPalace1409=
set fromPalace1412=
set fourpower=
if "!yearTopNumber!" equ "3" (
set yearTop=甲
set yearTopGroup=甲己
set fromPalace=戌
set sky0403=己
set sky0406=庚
set sky0409=辛
set sky0412=壬
set sky0803=戊
set sky0812=癸
set sky1203=丁
set sky1212=甲
set sky1603=丙
set sky1606=丁
set sky1609=丙
set sky1612=乙
set fromPalace1012=来
set fourpower=廉,破,武,阳
)
if "!yearTopNumber!" equ "4" (
set yearTop=乙
set yearTopGroup=乙庚
set fromPalace=酉
set sky0403=辛
set sky0406=壬
set sky0409=癸
set sky0412=甲
set sky0803=庚
set sky0812=乙
set sky1203=己
set sky1212=丙
set sky1603=戊
set sky1606=己
set sky1609=戊
set sky1612=丁
set fromPalace0612=来
set fourpower=机,梁,紫,阴
)
if "!yearTopNumber!" equ "5" (
set yearTop=丙
set yearTopGroup=丙辛
set fromPalace=申
set sky0403=癸
set sky0406=甲
set sky0409=乙
set sky0412=丙
set sky0803=壬
set sky0812=丁
set sky1203=辛
set sky1212=戊
set sky1603=庚
set sky1606=辛
set sky1609=庚
set sky1612=己
set fromPalace0212=来
set fourpower=同,机,昌,廉
)
if "!yearTopNumber!" equ "6" (
set yearTop=丁
set yearTopGroup=丁壬
set fromPalace=未
set sky0403=乙
set sky0406=丙
set sky0409=丁
set sky0412=戊
set sky0803=甲
set sky0812=己
set sky1203=癸
set sky1212=庚
set sky1603=壬
set sky1606=癸
set sky1609=壬
set sky1612=辛
set fromPalace0209=来
set fourpower=阴,同,机,巨
)
if "!yearTopNumber!" equ "7" (
set yearTop=戊
set yearTopGroup=戊癸
set fromPalace=午
set sky0403=丁
set sky0406=戊
set sky0409=己
set sky0412=庚
set sky0803=丙
set sky0812=辛
set sky1203=乙
set sky1212=壬
set sky1603=甲
set sky1606=乙
set sky1609=甲
set sky1612=癸
set fromPalace0206=来
set fourpower=贪,阴,右,机
)
if "!yearTopNumber!" equ "8" (
set yearTop=己
set yearTopGroup=甲己
set fromPalace=巳
set sky0403=己
set sky0406=庚
set sky0409=辛
set sky0412=壬
set sky0803=戊
set sky0812=癸
set sky1203=丁
set sky1212=甲
set sky1603=丙
set sky1606=丁
set sky1609=丙
set sky1612=乙
set fromPalace0203=来
set fourpower=武,贪,梁,曲
)
if "!yearTopNumber!" equ "9" (
set yearTop=庚
set yearTopGroup=乙庚
set fromPalace=辰
set sky0403=辛
set sky0406=壬
set sky0409=癸
set sky0412=甲
set sky0803=庚
set sky0812=乙
set sky1203=己
set sky1212=丙
set sky1603=戊
set sky1606=己
set sky1609=戊
set sky1612=丁
set fromPalace0603=来
set fourpower=阳,武,阴,同
)
if "!yearTopNumber!" equ "0" (
set yearTop=辛
set yearTopGroup=丙辛
set fromPalace=卯
set sky0403=癸
set sky0406=甲
set sky0409=乙
set sky0412=丙
set sky0803=壬
set sky0812=丁
set sky1203=辛
set sky1212=戊
set sky1603=庚
set sky1606=辛
set sky1609=庚
set sky1612=己
set fromPalace1003=来
set fourpower=巨,阳,曲,昌
)
if "!yearTopNumber!" equ "1" (
set yearTop=壬
set yearTopGroup=丁壬
set fromPalace=寅
set sky0403=乙
set sky0406=丙
set sky0409=丁
set sky0412=戊
set sky0803=甲
set sky0812=己
set sky1203=癸
set sky1212=庚
set sky1603=壬
set sky1606=癸
set sky1609=壬
set sky1612=辛
set fromPalace1403=来
set fourpower=梁,紫,左,武
)
if "!yearTopNumber!" equ "2" (
set yearTop=癸
set yearTopGroup=戊癸
set fromPalace=亥
set sky0403=丁
set sky0406=戊
set sky0409=己
set sky0412=庚
set sky0803=丙
set sky0812=辛
set sky1203=乙
set sky1212=壬
set sky1603=甲
set sky1606=乙
set sky1609=甲
set sky1612=癸
set fromPalace1412=来
set fourpower=破,巨,阴,贪
)
set lifesky=
set lifeland=
set lifelandName=
set lifelandGroup=
set lifetime=
set /a lifestep=!time!+1-!month!
if !lifestep! lss 0 (
set /a lifestep=!lifestep!+12
)
if "!lifestep!" equ "0" (
set fromPalace0203=!fromPalace0203!田
set fromPalace0206=!fromPalace0206!官
set fromPalace0209=!fromPalace0209!友
set fromPalace0212=!fromPalace0212!迁
set fromPalace0603=!fromPalace0603!福
set fromPalace0612=!fromPalace0612!疾
set fromPalace1003=!fromPalace1003!父
set fromPalace1012=!fromPalace1012!财
set fromPalace1403=!fromPalace1403!命
set fromPalace1406=!fromPalace1406!兄
set fromPalace1409=!fromPalace1409!夫
set fromPalace1412=!fromPalace1412!子
set lifesky=!sky1603!
set lifeland=!land1601!
set lifelandName=寅
set lifetime=1602
set lifelandGroup=寅卯
)
if "!lifestep!" equ "1" (
set fromPalace0203=!fromPalace0203!官
set fromPalace0206=!fromPalace0206!友
set fromPalace0209=!fromPalace0209!迁
set fromPalace0212=!fromPalace0212!疾
set fromPalace0603=!fromPalace0603!田
set fromPalace0612=!fromPalace0612!财
set fromPalace1003=!fromPalace1003!福
set fromPalace1012=!fromPalace1012!子
set fromPalace1403=!fromPalace1403!父
set fromPalace1406=!fromPalace1406!命
set fromPalace1409=!fromPalace1409!兄
set fromPalace1412=!fromPalace1412!夫
set lifesky=!sky1606!
set lifeland=!land1604!
set lifelandName=丑
set lifetime=1605
set lifelandGroup=子丑
)
if "!lifestep!" equ "2" (
set fromPalace0203=!fromPalace0203!友
set fromPalace0206=!fromPalace0206!迁
set fromPalace0209=!fromPalace0209!疾
set fromPalace0212=!fromPalace0212!财
set fromPalace0603=!fromPalace0603!官
set fromPalace0612=!fromPalace0612!子
set fromPalace1003=!fromPalace1003!田
set fromPalace1012=!fromPalace1012!夫
set fromPalace1403=!fromPalace1403!福
set fromPalace1406=!fromPalace1406!父
set fromPalace1409=!fromPalace1409!命
set fromPalace1412=!fromPalace1412!兄
set lifesky=!sky1609!
set lifeland=!land1607!
set lifelandName=子
set lifetime=1608
set lifelandGroup=子丑
)
if "!lifestep!" equ "3" (
set fromPalace0203=!fromPalace0203!迁
set fromPalace0206=!fromPalace0206!疾
set fromPalace0209=!fromPalace0209!财
set fromPalace0212=!fromPalace0212!子
set fromPalace0603=!fromPalace0603!友
set fromPalace0612=!fromPalace0612!夫
set fromPalace1003=!fromPalace1003!官
set fromPalace1012=!fromPalace1012!兄
set fromPalace1403=!fromPalace1403!田
set fromPalace1406=!fromPalace1406!福
set fromPalace1409=!fromPalace1409!父
set fromPalace1412=!fromPalace1412!命
set lifesky=!sky1612!
set lifeland=!land1610!
set lifelandName=亥
set lifetime=1611
set lifelandGroup=戌亥
)
if "!lifestep!" equ "4" (
set fromPalace0203=!fromPalace0203!疾
set fromPalace0206=!fromPalace0206!财
set fromPalace0209=!fromPalace0209!子
set fromPalace0212=!fromPalace0212!夫
set fromPalace0603=!fromPalace0603!迁
set fromPalace0612=!fromPalace0612!兄
set fromPalace1003=!fromPalace1003!友
set fromPalace1012=!fromPalace1012!命
set fromPalace1403=!fromPalace1403!官
set fromPalace1406=!fromPalace1406!田
set fromPalace1409=!fromPalace1409!福
set fromPalace1412=!fromPalace1412!父
set lifesky=!sky1212!
set lifeland=!land1210!
set lifelandName=戌
set lifetime=1211
set lifelandGroup=戌亥
)
if "!lifestep!" equ "5" (
set fromPalace0203=!fromPalace0203!财
set fromPalace0206=!fromPalace0206!子
set fromPalace0209=!fromPalace0209!夫
set fromPalace0212=!fromPalace0212!兄
set fromPalace0603=!fromPalace0603!疾
set fromPalace0612=!fromPalace0612!命
set fromPalace1003=!fromPalace1003!迁
set fromPalace1012=!fromPalace1012!父
set fromPalace1403=!fromPalace1403!友
set fromPalace1406=!fromPalace1406!官
set fromPalace1409=!fromPalace1409!田
set fromPalace1412=!fromPalace1412!福
set lifesky=!sky0812!
set lifeland=!land0810!
set lifelandName=酉
set lifetime=0811
set lifelandGroup=申酉
)
if "!lifestep!" equ "6" (
set fromPalace0203=!fromPalace0203!子
set fromPalace0206=!fromPalace0206!夫
set fromPalace0209=!fromPalace0209!兄
set fromPalace0212=!fromPalace0212!命
set fromPalace0603=!fromPalace0603!财
set fromPalace0612=!fromPalace0612!父
set fromPalace1003=!fromPalace1003!疾
set fromPalace1012=!fromPalace1012!福
set fromPalace1403=!fromPalace1403!迁
set fromPalace1406=!fromPalace1406!友
set fromPalace1409=!fromPalace1409!官
set fromPalace1412=!fromPalace1412!田
set lifesky=!sky0412!
set lifeland=!land0410!
set lifelandName=申
set lifetime=0411
set lifelandGroup=申酉
)
if "!lifestep!" equ "7" (
set fromPalace0203=!fromPalace0203!夫
set fromPalace0206=!fromPalace0206!兄
set fromPalace0209=!fromPalace0209!命
set fromPalace0212=!fromPalace0212!父
set fromPalace0603=!fromPalace0603!子
set fromPalace0612=!fromPalace0612!福
set fromPalace1003=!fromPalace1003!财
set fromPalace1012=!fromPalace1012!田
set fromPalace1403=!fromPalace1403!疾
set fromPalace1406=!fromPalace1406!迁
set fromPalace1409=!fromPalace1409!友
set fromPalace1412=!fromPalace1412!官
set lifesky=!sky0409!
set lifeland=!land0407!
set lifelandName=未
set lifetime=0408
set lifelandGroup=午未
)
if "!lifestep!" equ "8" (
set fromPalace0203=!fromPalace0203!兄
set fromPalace0206=!fromPalace0206!命
set fromPalace0209=!fromPalace0209!父
set fromPalace0212=!fromPalace0212!福
set fromPalace0603=!fromPalace0603!夫
set fromPalace0612=!fromPalace0612!田
set fromPalace1003=!fromPalace1003!子
set fromPalace1012=!fromPalace1012!官
set fromPalace1403=!fromPalace1403!财
set fromPalace1406=!fromPalace1406!疾
set fromPalace1409=!fromPalace1409!迁
set fromPalace1412=!fromPalace1412!友
set lifesky=!sky0406!
set lifeland=!land0404!
set lifelandName=午
set lifetime=0405
set lifelandGroup=午未
)
if "!lifestep!" equ "9" (
set fromPalace0203=!fromPalace0203!命
set fromPalace0206=!fromPalace0206!父
set fromPalace0209=!fromPalace0209!福
set fromPalace0212=!fromPalace0212!田
set fromPalace0603=!fromPalace0603!兄
set fromPalace0612=!fromPalace0612!官
set fromPalace1003=!fromPalace1003!夫
set fromPalace1012=!fromPalace1012!友
set fromPalace1403=!fromPalace1403!子
set fromPalace1406=!fromPalace1406!财
set fromPalace1409=!fromPalace1409!疾
set fromPalace1412=!fromPalace1412!迁
set lifesky=!sky0403!
set lifeland=!land0401!
set lifelandName=巳
set lifetime=0402
set lifelandGroup=辰巳
)
if "!lifestep!" equ "10" (
set fromPalace0203=!fromPalace0203!父
set fromPalace0206=!fromPalace0206!福
set fromPalace0209=!fromPalace0209!田
set fromPalace0212=!fromPalace0212!官
set fromPalace0603=!fromPalace0603!命
set fromPalace0612=!fromPalace0612!友
set fromPalace1003=!fromPalace1003!兄
set fromPalace1012=!fromPalace1012!迁
set fromPalace1403=!fromPalace1403!夫
set fromPalace1406=!fromPalace1406!子
set fromPalace1409=!fromPalace1409!财
set fromPalace1412=!fromPalace1412!疾
set lifesky=!sky0803!
set lifeland=!land0801!
set lifelandName=辰
set lifetime=0802
set lifelandGroup=辰巳
)
if "!lifestep!" equ "11" (
set fromPalace0203=!fromPalace0203!福
set fromPalace0206=!fromPalace0206!田
set fromPalace0209=!fromPalace0209!官
set fromPalace0212=!fromPalace0212!友
set fromPalace0603=!fromPalace0603!父
set fromPalace0612=!fromPalace0612!迁
set fromPalace1003=!fromPalace1003!命
set fromPalace1012=!fromPalace1012!疾
set fromPalace1403=!fromPalace1403!兄
set fromPalace1406=!fromPalace1406!夫
set fromPalace1409=!fromPalace1409!子
set fromPalace1412=!fromPalace1412!财
set lifesky=!sky1203!
set lifeland=!land1201!
set lifelandName=卯
set lifetime=1202
set lifelandGroup=寅卯
)
rem 定五行
rem echo !lifesky!
set fiveset=
set fivesetnumber=
rem 生年天干配命宫地支
set tenskys=水二:2:甲己子丑、乙庚申酉、丙辛辰巳、丁壬午未、戊癸寅卯、戊癸戌亥;木三:3:甲己辰巳、乙庚午未、丙辛寅卯、丙辛戌亥、丁壬子丑、戊癸申酉;金四:4:甲己申酉、乙庚辰巳、丙辛午未、丁壬寅卯、丁壬戌亥、戊癸子丑;土五:5:甲己午未、乙庚寅卯、乙庚戌亥、丙辛子丑、丁壬申酉、戊癸辰巳;火六:6:甲己寅卯、甲己戌亥、乙庚子丑、丙辛申酉、丁壬辰巳、戊癸午未
for /f "tokens=1,2,3,4,5 delims=;" %%c in ("!tenskys!") do (
for /f "tokens=1,2,3 delims=:" %%h in ("%%c") do (
set strs=%%j
call set "flag1=%%strs:!yearTopGroup!!lifelandGroup!=%%"
if "!flag1!" neq "%%j" (
set fiveset=%%h
set fivesetnumber=%%i
)
)
for /f "tokens=1,2,3 delims=:" %%h in ("%%d") do (
set strs=%%j
call set "flag1=%%strs:!yearTopGroup!!lifelandGroup!=%%"
if "!flag1!" neq "%%j" (
set fiveset=%%h
set fivesetnumber=%%i
)
)
for /f "tokens=1,2,3 delims=:" %%h in ("%%e") do (
set strs=%%j
call set "flag1=%%strs:!yearTopGroup!!lifelandGroup!=%%"
if "!flag1!" neq "%%j" (
set fiveset=%%h
set fivesetnumber=%%i
)
)
for /f "tokens=1,2,3 delims=:" %%h in ("%%f") do (
set strs=%%j
call set "flag1=%%strs:!yearTopGroup!!lifelandGroup!=%%"
if "!flag1!" neq "%%j" (
set fiveset=%%h
set fivesetnumber=%%i
)
)
for /f "tokens=1,2,3 delims=:" %%h in ("%%g") do (
set strs=%%j
call set "flag1=%%strs:!yearTopGroup!!lifelandGroup!=%%"
if "!flag1!" neq "%%j" (
set fiveset=%%h
set fivesetnumber=%%i
)
)
)
rem echo 年天干!yearTop!
rem echo 来因宫地支!fromPalace!
set yearBottom=
if "!yearBottomNumber!" equ "1" (
set yearBottom=子
)
if "!yearBottomNumber!" equ "2" (
set yearBottom=丑
)
if "!yearBottomNumber!" equ "3" (
set yearBottom=寅
)
if "!yearBottomNumber!" equ "4" (
set yearBottom=卯
)
if "!yearBottomNumber!" equ "5" (
set yearBottom=辰
)
if "!yearBottomNumber!" equ "6" (
set yearBottom=巳
)
if "!yearBottomNumber!" equ "7" (
set yearBottom=午
)
if "!yearBottomNumber!" equ "8" (
set yearBottom=未
)
if "!yearBottomNumber!" equ "9" (
set yearBottom=申
)
if "!yearBottomNumber!" equ "10" (
set yearBottom=酉
)
if "!yearBottomNumber!" equ "11" (
set yearBottom=戌
)
if "!yearBottomNumber!" equ "0" (
set yearBottom=亥
)
rem echo 年地支!yearBottom!
rem 计算时间段顺时逆时
set /a evennumber=!yearTopNumber!%%2+2
set genderfives=!gender!!evennumber!
set timeturn=
if "!genderfives!" equ "03" (
set timeturn=0
)
if "!genderfives!" equ "12" (
set timeturn=0
)
if "!genderfives!" equ "02" (
set timeturn=1
)
if "!genderfives!" equ "13" (
set timeturn=1
)
set time0402=
set time0405=
set time0408=
set time0411=
set time0802=
set time0811=
set time1202=
set time1211=
set time1602=
set time1605=
set time1608=
set time1611=
if "!timeturn!" equ "0" (
if "!lifetime!" equ "0402" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0802=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0405" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0402=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0408" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0405=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0411" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0408=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0802" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1202=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0811" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0411=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1202" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1602=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1211" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0811=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1602" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1605=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1605" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1608=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1608" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1611=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1611" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1211=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
)
if "!timeturn!" equ "1" (
if "!lifetime!" equ "0402" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0405=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0405" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0408=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0408" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0411=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0411" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0811=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0802" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0402=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "0811" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1211=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1202" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time0802=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1211" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1611=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1602" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1202=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1605" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1602=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1608" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1608=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "7" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0402=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1605=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
if "!lifetime!" equ "1611" (
set idx1=1
set begin=!fivesetnumber!
set /a end=!fivesetnumber!+110
for /L %%c in (!begin!,10,!end!) do (
set start=%%c
set /a end=!start!+9
set startname=!start!
set endname=!end!
if !start! lss 10 (
set startname= !start!
) else (
if !start! lss 100 (
set startname= !start!
)
)
if !end! lss 10 (
set endname=!end!
) else (
if !end! lss 100 (
set endname=!end!
)
)
if "!idx1!" equ "1" (
set time1611=!startname!-!endname!
)
if "!idx1!" equ "2" (
set time1211=!startname!-!endname!
)
if "!idx1!" equ "3" (
set time0811=!startname!-!endname!
)
if "!idx1!" equ "4" (
set time0411=!startname!-!endname!
)
if "!idx1!" equ "5" (
set time0408=!startname!-!endname!
)
if "!idx1!" equ "6" (
set time0405=!startname!-!endname!
)
if "!idx1!" equ "7" (
set tim0402=!startname!-!endname!
)
if "!idx1!" equ "8" (
set time0802=!startname!-!endname!
)
if "!idx1!" equ "9" (
set time1202=!startname!-!endname!
)
if "!idx1!" equ "10" (
set time1602=!startname!-!endname!
)
if "!idx1!" equ "11" (
set time1605=!startname!-!endname!
)
if "!idx1!" equ "12" (
set time1608=!startname!-!endname!
)
set /a idx1=!idx1!+1
)
)
)
rem 定紫微星的x,y,z
set /a number1=!day!%%!fivesetnumber!
set x=
set y=
set z=
if "!number1!" equ "0" (
set /a y=!day!/!fivesetnumber!
set x=0
) else (
set /a y=!day!/!fivesetnumber!+1
set /a x=!y!*!fivesetnumber!-!day!
)
set /a number2=!x!%%2
if "!number2!" equ "0" (
set /a z=!y!+!x!
) else (
set /a z=!y!-!x!
)
set /a z=!z!%%12
if !z! lss 0 (
set /a z=!z!+12
)
set flystar0201=
set flystar0204=
set flystar0207=
set flystar0210=
set flystar0601=
set flystar0610=
set flystar0801=
set flystar0810=
set flystar1601=
set flystar1604=
set flystar1607=
set flystar1610=
if !z! equ 0 (
set flystar1404=紫,破,
set flystar1001=府,
set flystar1407=机,
set flystar1010=阳,
set flystar0610=武,杀,
set flystar0210=同,梁,
set flystar0201=廉,贪,
set flystar0601=阴,
set flystar0204=巨,
set flystar0207=相,
)
if !z! equ 1 (
set flystar1401=紫,府,
set flystar1404=机,
set flystar1410=阳,
set flystar1010=武,
set flystar0610=同,
set flystar0204=廉,相,
set flystar1001=阴,
set flystar0601=贪,
set flystar0201=巨,
set flystar0207=梁,
set flystar0210=杀,
set flystar1407=破,
echo.
)
if !z! equ 2 (
set flystar1001=紫,贪,
set flystar1404=府,
set flystar1401=机,阴,
set flystar1407=阳,
set flystar1410=武,破
set flystar1010=同,
set flystar0207=廉,杀
set flystar0601=巨,
set flystar0201=相,
set flystar0204=梁,
)
if !z! equ 3 (
set flystar0601=紫,相,
set flystar1407=武,府,
set flystar1001=机,巨,
set flystar1404=阳,阴,
set flystar1410=同,
set flystar0210=廉,
set flystar1401=贪,
set flystar0201=梁,
set flystar0204=杀,
set flystar1010=破,
)
if !z! equ 4 (
set flystar0201=紫,杀,
set flystar1410=府,
set flystar0601=机,梁,
set flystar1401=阳,巨,
set flystar1404=武,贪,
set flystar1407=同,阴,
set flystar0610=廉,破,
set flystar1001=相,
)
if !z! equ 5 (
set flystar0204=紫,
set flystar1010=廉,府,
set flystar0201=机,
set flystar1001=阳,梁,
set flystar1401=武,相,
set flystar1404=同,巨,
set flystar1410=阴,
set flystar1407=贪,
set flystar0601=杀,
set flystar0210=破,
)
if !z! equ 6 (
set flystar0207=紫,破,
set flystar0610=府,
set flystar0204=机,
set flystar0601=阳,
set flystar1001=武,杀,
set flystar1401=同,梁,
set flystar1410=廉,贪,
set flystar1010=阴,
set flystar1407=巨,
set flystar1404=相,
)
if !z! equ 7 (
set flystar0210=紫,府,
set flystar0207=机,
set flystar0201=阳,
set flystar0601=武,
set flystar1001=同,
set flystar1407=廉,相,
set flystar0610=阴,
set flystar1010=贪,
set flystar1410=巨,
set flystar1404=梁,
set flystar1401=杀,
set flystar0204=破,
)
if !z! equ 8 (
set flystar0610=紫,贪,
set flystar0207=府,
set flystar0210=机,阴,
set flystar0204=阳,
set flystar0201=武,破,
set flystar0601=同,
set flystar1404=廉,杀,
set flystar1010=巨,
set flystar1410=相,
set flystar1407=梁,
)
if !z! equ 9 (
set flystar1010=紫,相,
set flystar0204=武,府,
set flystar0610=机,巨,
set flystar0207=阳,阴,
set flystar0201=同,
set flystar1401=廉,
set flystar0210=贪,
set flystar1410=梁,
set flystar1407=杀,
set flystar0601=破,
)
if !z! equ 10 (
set flystar1410=紫,杀,
set flystar0201=府,
set flystar1010=机,梁,
set flystar0210=阳,巨,
set flystar0207=武,贪,
set flystar0204=同,阴,
set flystar1001=廉,破
set flystar0610=相,
)
if !z! equ 11 (
set flystar1407=紫,
set flystar0601=廉,府,
set flystar1410=机,
set flystar0610=阳,梁,
set flystar0210=武,相,
set flystar0207=同,巨,
set flystar0201=阴,
set flystar0204=贪,
set flystar1010=杀,
set flystar1401=破,
)
if "!month!" equ "1" (
set flystar0601=!flystar0601!左,
set flystar1010=!flystar1010!右,
)
if "!month!" equ "2" (
set flystar0201=!flystar0201!左,
set flystar0610=!flystar0610!右,
)
if "!month!" equ "3" (
set flystar0204=!flystar0204!左,
set flystar0210=!flystar0210!右,
)
if "!month!" equ "4" (
set flystar0207=!flystar0207!左,右,
)
if "!month!" equ "5" (
set flystar0210=!flystar0210!左,
set flystar0204=!flystar0204!右,
)
if "!month!" equ "6" (
set flystar0610=!flystar0610!左,
set flystar0201=!flystar0201!右,
)
if "!month!" equ "7" (
set flystar1010=!flystar1010!左,
set flystar0601=!flystar0601!右,
)
if "!month!" equ "8" (
set flystar1410=!flystar1410!左,
set flystar1001=!flystar1001!右,
)
if "!month!" equ "9" (
set flystar1407=!flystar1407!左,
set flystar1401=!flystar1401!右,
)
if "!month!" equ "10" (
set flystar1404=!flystar1404!左,右,
)
if "!month!" equ "11" (
set flystar1401=!flystar1401!左,
set flystar1407=!flystar1407!右,
)
if "!month!" equ "12" (
set flystar1001=!flystar1001!左,
set flystar1410=!flystar1410!右,
)
if "!time!" equ "0" (
set flystar0601=!flystar0601!曲,
set flystar1010=!flystar1010!昌,
)
if "!time!" equ "1" (
set flystar0201=!flystar0201!曲,
set flystar0610=!flystar0610!昌,
)
if "!time!" equ "2" (
set flystar0204=!flystar0204!曲,
set flystar0210=!flystar0210!昌,
)
if "!time!" equ "3" (
set flystar0207=!flystar0207!曲,昌,
)
if "!time!" equ "4" (
set flystar0210=!flystar0210!曲,
set flystar0204=!flystar0204!昌,
)
if "!time!" equ "5" (
set flystar0610=!flystar0610!曲,
set flystar0201=!flystar0201!昌,
)
if "!time!" equ "6" (
set flystar1010=!flystar1010!曲,
set flystar0601=!flystar0601!昌,
)
if "!time!" equ "7" (
set flystar1410=!flystar1410!曲,
set flystar1001=!flystar1001!昌,
)
if "!time!" equ "8" (
set flystar1407=!flystar1407!曲,
set flystar1401=!flystar1401!昌,
)
if "!time!" equ "9" (
set flystar1404=!flystar1404!曲,昌,
)
if "!time!" equ "10" (
set flystar1401=!flystar1401!曲,
set flystar1407=!flystar1407!昌,
)
if "!time!" equ "11" (
set flystar1001=!flystar1001!曲,
set flystar1410=!flystar1410!昌,
)
set startpadding=
set fourpower0301=
set fourpower0304=
set fourpower0307=
set fourpower0310=
set fourpower0701=
set fourpower0710=
set fourpower1101=
set fourpower1110=
set fourpower1501=
set fourpower1504=
set fourpower1507=
set fourpower1510=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar0201!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower0301=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower0301=禄
) else (
if "%%c" equ "%%h" (
set fourpower0301=权
) else (
if "%%c" equ "%%i" (
set fourpower0301=科
) else (
if "%%c" equ "%%j" (
set fourpower0301=忌
) else (
set fourpower0301=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower0301=!fourpower0301!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower0301=!fourpower0301!禄
) else (
if "%%d" equ "%%h" (
set fourpower0301=!fourpower0301!权
) else (
if "%%d" equ "%%i" (
set fourpower0301=!fourpower0301!科
) else (
if "%%d" equ "%%j" (
set fourpower0301=!fourpower0301!忌
) else (
set fourpower0301=!fourpower0301!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower0301=!fourpower0301!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower0301=!fourpower0301!禄
) else (
if "%%e" equ "%%h" (
set fourpower0301=!fourpower0301!权
) else (
if "%%e" equ "%%i" (
set fourpower0301=!fourpower0301!科
) else (
if "%%e" equ "%%j" (
set fourpower0301=!fourpower0301!忌
) else (
set fourpower0301=!fourpower0301!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower0301=!fourpower0301!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower0301=!fourpower0301!禄
) else (
if "%%f" equ "%%h" (
set fourpower0301=!fourpower0301!权
) else (
if "%%f" equ "%%i" (
set fourpower0301=!fourpower0301!科
) else (
if "%%f" equ "%%j" (
set fourpower0301=!fourpower0301!忌
) else (
set fourpower0301=!fourpower0301!
)
)
)
)
)
)
)
if "!flystar0201!" equ "" (
set flystar0201=
set fourpower0301=
)
set flystar0201=!flystar0201:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar0204!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower0304=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower0304=禄
) else (
if "%%c" equ "%%h" (
set fourpower0304=权
) else (
if "%%c" equ "%%i" (
set fourpower0304=科
) else (
if "%%c" equ "%%j" (
set fourpower0304=忌
) else (
set fourpower0304=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower0304=!fourpower0304!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower0304=!fourpower0304!禄
) else (
if "%%d" equ "%%h" (
set fourpower0304=!fourpower0304!权
) else (
if "%%d" equ "%%i" (
set fourpower0304=!fourpower0304!科
) else (
if "%%d" equ "%%j" (
set fourpower0304=!fourpower0304!忌
) else (
set fourpower0304=!fourpower0304!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower0304=!fourpower0304!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower0304=!fourpower0304!禄
) else (
if "%%e" equ "%%h" (
set fourpower0304=!fourpower0304!权
) else (
if "%%e" equ "%%i" (
set fourpower0304=!fourpower0304!科
) else (
if "%%e" equ "%%j" (
set fourpower0304=!fourpower0304!忌
) else (
set fourpower0304=!fourpower0304!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower0304=!fourpower0304!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower0304=!fourpower0304!禄
) else (
if "%%f" equ "%%h" (
set fourpower0304=!fourpower0304!权
) else (
if "%%f" equ "%%i" (
set fourpower0304=!fourpower0304!科
) else (
if "%%f" equ "%%j" (
set fourpower0304=!fourpower0304!忌
) else (
set fourpower0304=!fourpower0304!
)
)
)
)
)
)
)
if "!flystar0204!" equ "" (
set flystar0204=
set fourpower0304=
)
set flystar0204=!flystar0204:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar0207!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower0307=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower0307=禄
) else (
if "%%c" equ "%%h" (
set fourpower0307=权
) else (
if "%%c" equ "%%i" (
set fourpower0307=科
) else (
if "%%c" equ "%%j" (
set fourpower0307=忌
) else (
set fourpower0307=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower0307=!fourpower0307!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower0307=!fourpower0307!禄
) else (
if "%%d" equ "%%h" (
set fourpower0307=!fourpower0307!权
) else (
if "%%d" equ "%%i" (
set fourpower0307=!fourpower0307!科
) else (
if "%%d" equ "%%j" (
set fourpower0307=!fourpower0307!忌
) else (
set fourpower0307=!fourpower0307!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower0307=!fourpower0307!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower0307=!fourpower0307!禄
) else (
if "%%e" equ "%%h" (
set fourpower0307=!fourpower0307!权
) else (
if "%%e" equ "%%i" (
set fourpower0307=!fourpower0307!科
) else (
if "%%e" equ "%%j" (
set fourpower0307=!fourpower0307!忌
) else (
set fourpower0307=!fourpower0307!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower0307=!fourpower0307!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower0307=!fourpower0307!禄
) else (
if "%%f" equ "%%h" (
set fourpower0307=!fourpower0307!权
) else (
if "%%f" equ "%%i" (
set fourpower0307=!fourpower0307!科
) else (
if "%%f" equ "%%j" (
set fourpower0307=!fourpower0307!忌
) else (
set fourpower0307=!fourpower0307!
)
)
)
)
)
)
)
if "!flystar0207!" equ "" (
set flystar0207=
set fourpower0307=
)
set flystar0207=!flystar0207:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar0210!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower0310=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower0310=禄
) else (
if "%%c" equ "%%h" (
set fourpower0310=权
) else (
if "%%c" equ "%%i" (
set fourpower0310=科
) else (
if "%%c" equ "%%j" (
set fourpower0310=忌
) else (
set fourpower0310=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower0310=!fourpower0310!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower0310=!fourpower0310!禄
) else (
if "%%d" equ "%%h" (
set fourpower0310=!fourpower0310!权
) else (
if "%%d" equ "%%i" (
set fourpower0310=!fourpower0310!科
) else (
if "%%d" equ "%%j" (
set fourpower0310=!fourpower0310!忌
) else (
set fourpower0310=!fourpower0310!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower0310=!fourpower0310!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower0310=!fourpower0310!禄
) else (
if "%%e" equ "%%h" (
set fourpower0310=!fourpower0310!权
) else (
if "%%e" equ "%%i" (
set fourpower0310=!fourpower0310!科
) else (
if "%%e" equ "%%j" (
set fourpower0310=!fourpower0310!忌
) else (
set fourpower0310=!fourpower0310!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower0310=!fourpower0310!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower0310=!fourpower0310!禄
) else (
if "%%f" equ "%%h" (
set fourpower0310=!fourpower0310!权
) else (
if "%%f" equ "%%i" (
set fourpower0310=!fourpower0310!科
) else (
if "%%f" equ "%%j" (
set fourpower0310=!fourpower0310!忌
) else (
set fourpower0310=!fourpower0310!
)
)
)
)
)
)
)
if "!flystar0210!" equ "" (
set flystar0210=
set fourpower0310=
)
set flystar0210=!flystar0210:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar0601!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower0701=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower0701=禄
) else (
if "%%c" equ "%%h" (
set fourpower0701=权
) else (
if "%%c" equ "%%i" (
set fourpower0701=科
) else (
if "%%c" equ "%%j" (
set fourpower0701=忌
) else (
set fourpower0701=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower0701=!fourpower0701!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower0701=!fourpower0701!禄
) else (
if "%%d" equ "%%h" (
set fourpower0701=!fourpower0701!权
) else (
if "%%d" equ "%%i" (
set fourpower0701=!fourpower0701!科
) else (
if "%%d" equ "%%j" (
set fourpower0701=!fourpower0701!忌
) else (
set fourpower0701=!fourpower0701!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower0701=!fourpower0701!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower0701=!fourpower0701!禄
) else (
if "%%e" equ "%%h" (
set fourpower0701=!fourpower0701!权
) else (
if "%%e" equ "%%i" (
set fourpower0701=!fourpower0701!科
) else (
if "%%e" equ "%%j" (
set fourpower0701=!fourpower0701!忌
) else (
set fourpower0701=!fourpower0701!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower0701=!fourpower0701!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower0701=!fourpower0701!禄
) else (
if "%%f" equ "%%h" (
set fourpower0701=!fourpower0701!权
) else (
if "%%f" equ "%%i" (
set fourpower0701=!fourpower0701!科
) else (
if "%%f" equ "%%j" (
set fourpower0701=!fourpower0701!忌
) else (
set fourpower0701=!fourpower0701!
)
)
)
)
)
)
)
if "!flystar0601!" equ "" (
set flystar0601=
set fourpower0701=
)
set flystar0601=!flystar0601:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar0610!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower0710=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower0710=禄
) else (
if "%%c" equ "%%h" (
set fourpower0710=权
) else (
if "%%c" equ "%%i" (
set fourpower0710=科
) else (
if "%%c" equ "%%j" (
set fourpower0710=忌
) else (
set fourpower0710=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower0710=!fourpower0710!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower0710=!fourpower0710!禄
) else (
if "%%d" equ "%%h" (
set fourpower0710=!fourpower0710!权
) else (
if "%%d" equ "%%i" (
set fourpower0710=!fourpower0710!科
) else (
if "%%d" equ "%%j" (
set fourpower0710=!fourpower0710!忌
) else (
set fourpower0710=!fourpower0710!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower0710=!fourpower0710!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower0710=!fourpower0710!禄
) else (
if "%%e" equ "%%h" (
set fourpower0710=!fourpower0710!权
) else (
if "%%e" equ "%%i" (
set fourpower0710=!fourpower0710!科
) else (
if "%%e" equ "%%j" (
set fourpower0710=!fourpower0710!忌
) else (
set fourpower0710=!fourpower0710!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower0710=!fourpower0710!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower0710=!fourpower0710!禄
) else (
if "%%f" equ "%%h" (
set fourpower0710=!fourpower0710!权
) else (
if "%%f" equ "%%i" (
set fourpower0710=!fourpower0710!科
) else (
if "%%f" equ "%%j" (
set fourpower0710=!fourpower0710!忌
) else (
set fourpower0710=!fourpower0710!
)
)
)
)
)
)
)
if "!flystar0610!" equ "" (
set flystar0610=
set fourpower0710=
)
set flystar0610=!flystar0610:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar1001!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower1101=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower1101=禄
) else (
if "%%c" equ "%%h" (
set fourpower1101=权
) else (
if "%%c" equ "%%i" (
set fourpower1101=科
) else (
if "%%c" equ "%%j" (
set fourpower1101=忌
) else (
set fourpower1101=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower1101=!fourpower1101!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower1101=!fourpower1101!禄
) else (
if "%%d" equ "%%h" (
set fourpower1101=!fourpower1101!权
) else (
if "%%d" equ "%%i" (
set fourpower1101=!fourpower1101!科
) else (
if "%%d" equ "%%j" (
set fourpower1101=!fourpower1101!忌
) else (
set fourpower1101=!fourpower1101!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower1101=!fourpower1101!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower1101=!fourpower1101!禄
) else (
if "%%e" equ "%%h" (
set fourpower1101=!fourpower1101!权
) else (
if "%%e" equ "%%i" (
set fourpower1101=!fourpower1101!科
) else (
if "%%e" equ "%%j" (
set fourpower1101=!fourpower1101!忌
) else (
set fourpower1101=!fourpower1101!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower1101=!fourpower1101!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower1101=!fourpower1101!禄
) else (
if "%%f" equ "%%h" (
set fourpower1101=!fourpower1101!权
) else (
if "%%f" equ "%%i" (
set fourpower1101=!fourpower1101!科
) else (
if "%%f" equ "%%j" (
set fourpower1101=!fourpower1101!忌
) else (
set fourpower1101=!fourpower1101!
)
)
)
)
)
)
)
if "!flystar1001!" equ "" (
set flystar1001=
set fourpower1101=
)
set flystar1001=!flystar1001:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar1010!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower1110=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower1110=禄
) else (
if "%%c" equ "%%h" (
set fourpower1110=权
) else (
if "%%c" equ "%%i" (
set fourpower1110=科
) else (
if "%%c" equ "%%j" (
set fourpower1110=忌
) else (
set fourpower1110=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower1110=!fourpower1110!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower1110=!fourpower1110!禄
) else (
if "%%d" equ "%%h" (
set fourpower1110=!fourpower1110!权
) else (
if "%%d" equ "%%i" (
set fourpower1110=!fourpower1110!科
) else (
if "%%d" equ "%%j" (
set fourpower1110=!fourpower1110!忌
) else (
set fourpower1110=!fourpower1110!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower1110=!fourpower1110!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower1110=!fourpower1110!禄
) else (
if "%%e" equ "%%h" (
set fourpower1110=!fourpower1110!权
) else (
if "%%e" equ "%%i" (
set fourpower1110=!fourpower1110!科
) else (
if "%%e" equ "%%j" (
set fourpower1110=!fourpower1110!忌
) else (
set fourpower1110=!fourpower1110!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower1110=!fourpower1110!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower1110=!fourpower1110!禄
) else (
if "%%f" equ "%%h" (
set fourpower1110=!fourpower1110!权
) else (
if "%%f" equ "%%i" (
set fourpower1110=!fourpower1110!科
) else (
if "%%f" equ "%%j" (
set fourpower1110=!fourpower1110!忌
) else (
set fourpower1110=!fourpower1110!
)
)
)
)
)
)
)
if "!flystar1010!" equ "" (
set flystar1010=
set fourpower1110=
)
set flystar1010=!flystar1010:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar1401!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower1501=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower1501=禄
) else (
if "%%c" equ "%%h" (
set fourpower1501=权
) else (
if "%%c" equ "%%i" (
set fourpower1501=科
) else (
if "%%c" equ "%%j" (
set fourpower1501=忌
) else (
set fourpower1501=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower1501=!fourpower1501!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower1501=!fourpower1501!禄
) else (
if "%%d" equ "%%h" (
set fourpower1501=!fourpower1501!权
) else (
if "%%d" equ "%%i" (
set fourpower1501=!fourpower1501!科
) else (
if "%%d" equ "%%j" (
set fourpower1501=!fourpower1501!忌
) else (
set fourpower1501=!fourpower1501!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower1501=!fourpower1501!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower1501=!fourpower1501!禄
) else (
if "%%e" equ "%%h" (
set fourpower1501=!fourpower1501!权
) else (
if "%%e" equ "%%i" (
set fourpower1501=!fourpower1501!科
) else (
if "%%e" equ "%%j" (
set fourpower1501=!fourpower1501!忌
) else (
set fourpower1501=!fourpower1501!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower1501=!fourpower1501!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower1501=!fourpower1501!禄
) else (
if "%%f" equ "%%h" (
set fourpower1501=!fourpower1501!权
) else (
if "%%f" equ "%%i" (
set fourpower1501=!fourpower1501!科
) else (
if "%%f" equ "%%j" (
set fourpower1501=!fourpower1501!忌
) else (
set fourpower1501=!fourpower1501!
)
)
)
)
)
)
)
if "!flystar1401!" equ "" (
set flystar1401=
set fourpower1501=
)
set flystar1401=!flystar1401:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar1404!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower1504=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower1504=禄
) else (
if "%%c" equ "%%h" (
set fourpower1504=权
) else (
if "%%c" equ "%%i" (
set fourpower1504=科
) else (
if "%%c" equ "%%j" (
set fourpower1504=忌
) else (
set fourpower1504=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower1504=!fourpower1504!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower1504=!fourpower1504!禄
) else (
if "%%d" equ "%%h" (
set fourpower1504=!fourpower1504!权
) else (
if "%%d" equ "%%i" (
set fourpower1504=!fourpower1504!科
) else (
if "%%d" equ "%%j" (
set fourpower1504=!fourpower1504!忌
) else (
set fourpower1504=!fourpower1504!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower1504=!fourpower1504!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower1504=!fourpower1504!禄
) else (
if "%%e" equ "%%h" (
set fourpower1504=!fourpower1504!权
) else (
if "%%e" equ "%%i" (
set fourpower1504=!fourpower1504!科
) else (
if "%%e" equ "%%j" (
set fourpower1504=!fourpower1504!忌
) else (
set fourpower1504=!fourpower1504!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower1504=!fourpower1504!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower1504=!fourpower1504!禄
) else (
if "%%f" equ "%%h" (
set fourpower1504=!fourpower1504!权
) else (
if "%%f" equ "%%i" (
set fourpower1504=!fourpower1504!科
) else (
if "%%f" equ "%%j" (
set fourpower1504=!fourpower1504!忌
) else (
set fourpower1504=!fourpower1504!
)
)
)
)
)
)
)
if "!flystar1404!" equ "" (
set flystar1404=
set fourpower1504=
)
set flystar1404=!flystar1404:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar1407!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower1507=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower1507=禄
) else (
if "%%c" equ "%%h" (
set fourpower1507=权
) else (
if "%%c" equ "%%i" (
set fourpower1507=科
) else (
if "%%c" equ "%%j" (
set fourpower1507=忌
) else (
set fourpower1507=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower1507=!fourpower1507!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower1507=!fourpower1507!禄
) else (
if "%%d" equ "%%h" (
set fourpower1507=!fourpower1507!权
) else (
if "%%d" equ "%%i" (
set fourpower1507=!fourpower1507!科
) else (
if "%%d" equ "%%j" (
set fourpower1507=!fourpower1507!忌
) else (
set fourpower1507=!fourpower1507!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower1507=!fourpower1507!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower1507=!fourpower1507!禄
) else (
if "%%e" equ "%%h" (
set fourpower1507=!fourpower1507!权
) else (
if "%%e" equ "%%i" (
set fourpower1507=!fourpower1507!科
) else (
if "%%e" equ "%%j" (
set fourpower1507=!fourpower1507!忌
) else (
set fourpower1507=!fourpower1507!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower1507=!fourpower1507!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower1507=!fourpower1507!禄
) else (
if "%%f" equ "%%h" (
set fourpower1507=!fourpower1507!权
) else (
if "%%f" equ "%%i" (
set fourpower1507=!fourpower1507!科
) else (
if "%%f" equ "%%j" (
set fourpower1507=!fourpower1507!忌
) else (
set fourpower1507=!fourpower1507!
)
)
)
)
)
)
)
if "!flystar1407!" equ "" (
set flystar1407=
set fourpower1507=
)
set flystar1407=!flystar1407:,=!!startpadding!
set startpadding=
for /F "tokens=1,2,3,4 delims=," %%c in ("!flystar1410!") do (
if "%%c" equ "" (
set startpadding=!startpadding!
set fourpower1510=
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%c" equ "%%g" (
set fourpower1510=禄
) else (
if "%%c" equ "%%h" (
set fourpower1510=权
) else (
if "%%c" equ "%%i" (
set fourpower1510=科
) else (
if "%%c" equ "%%j" (
set fourpower1510=忌
) else (
set fourpower1510=
)
)
)
)
)
)
if "%%d" equ "" (
set startpadding=!startpadding!
set fourpower1510=!fourpower1510!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%d" equ "%%g" (
set fourpower1510=!fourpower1510!禄
) else (
if "%%d" equ "%%h" (
set fourpower1510=!fourpower1510!权
) else (
if "%%d" equ "%%i" (
set fourpower1510=!fourpower1510!科
) else (
if "%%d" equ "%%j" (
set fourpower1510=!fourpower1510!忌
) else (
set fourpower1510=!fourpower1510!
)
)
)
)
)
)
if "%%e" equ "" (
set startpadding=!startpadding!
set fourpower1510=!fourpower1510!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%e" equ "%%g" (
set fourpower1510=!fourpower1510!禄
) else (
if "%%e" equ "%%h" (
set fourpower1510=!fourpower1510!权
) else (
if "%%e" equ "%%i" (
set fourpower1510=!fourpower1510!科
) else (
if "%%e" equ "%%j" (
set fourpower1510=!fourpower1510!忌
) else (
set fourpower1510=!fourpower1510!
)
)
)
)
)
)
if "%%f" equ "" (
set startpadding=!startpadding!
set fourpower1510=!fourpower1510!
) else (
for /F "tokens=1,2,3,4 delims=," %%g in ("!fourpower!") do (
if "%%f" equ "%%g" (
set fourpower1510=!fourpower1510!禄
) else (
if "%%f" equ "%%h" (
set fourpower1510=!fourpower1510!权
) else (
if "%%f" equ "%%i" (
set fourpower1510=!fourpower1510!科
) else (
if "%%f" equ "%%j" (
set fourpower1510=!fourpower1510!忌
) else (
set fourpower1510=!fourpower1510!
)
)
)
)
)
)
)
if "!flystar1410!" equ "" (
set flystar1410=
set fourpower1510=
)
set flystar1410=!flystar1410:,=!!startpadding!
rem 打印生年信息
rem echo !genderName! !birthName! (!timeName!)
rem echo !yearTop!!yearBottom!年 !monthName!月!dayName!日 !timeName!时
rem echo 来因宫地支:!fromPalace!
set outborder=,0101,0102,0103,0104,0105,0106,0107,0108,0109,0110,0111,0502,0503,0505,0506,0507,0508,0509,0511,1302,1303,1305,1306,1307,1308,1309,1311,1702,1703,1705,1706,1707,1708,1709,1711,1712,1701,1704,1710,
set standout=,0501,0504,0510,1301,1304,1310,
set endstandout=,0512,1312,
set flystar=,0201,0204,0207,0210,0601,1001,1401,1404,1407,1410,0610,
set plusflystar=,1010,
set palace=,0203,0206,0209,1403,1406,1409,
set pluspalace=,0612,1012,
set endpalace=,0212,0603,1003,1412,
set fours=,0301,0304,0307,0310,0701,0710,1101,1110,1501,1504,1507,1510,
set lands=,0401,0404,0407,0410,0801,0810,1201,1210,1601,1604,1607,1610,
set ages=,0402,0405,0408,0411,0802,0811,1202,1211,1602,1605,1608,1611,
set skys=,0403,0406,0409,1603,1606,1609,
set minusskys=,,
set endskys=,0412,0803,1203,1612,0812,1212,
set fourspace=,0611,1011,0202,0205,0208,0211,0602,1002,1402,1405,1408,1411,0604,1004,1005,1006,1007,1008,1009,0804,0805,0806,0807,0808,1204,1205,1206,1207,1208,0302,0702,1102,1502,0305,1505,0311,0711,1111,0308,1508,1511,
set sixspace=,0608,1005,1008,
set sevenspace=,,
set eightspace=,,
set fivespace=,0704,1104,1105,1106,1107,1108,1109,
set endline=,0312,1512,0712,1112,
set minusendline=,1112,
set plusborder=,0112,
set twospace=,0809,
set threespace=,1209,
set nospace=,0605,0606,0607,0608,0609,0705,0706,0707,0708,0709,
for /L %%a in (1,1,17) do (
set rownumber=%%a
if !rownumber! lss 10 (
set rownumber=0!rownumber!
)
set rows=
for /L %%b in (1,1,12) do (
set colnumber=%%b
if !colnumber! lss 10 (
set colnumber=0!colnumber!
)
call set "outtxt=%%^outborder:,!rownumber!!colnumber!,=%%"
call set "flytxt=%%^flystar:,!rownumber!!colnumber!,=%%"
call set "plusflystartxt=%%^plusflystar:,!rownumber!!colnumber!,=%%"
call set "palacetxt=%%^palace:,!rownumber!!colnumber!,=%%"
call set "pluspalacetxt=%%^pluspalace:,!rownumber!!colnumber!,=%%"
call set "endpalacetxt=%%^endpalace:,!rownumber!!colnumber!,=%%"
call set "fourstxt=%%^fours:,!rownumber!!colnumber!,=%%"
call set "landstxt=%%^lands:,!rownumber!!colnumber!,=%%"
call set "agestxt=%%^ages:,!rownumber!!colnumber!,=%%"
call set "skystxt=%%^skys:,!rownumber!!colnumber!,=%%"
call set "minusskystxt=%%^minusskys:,!rownumber!!colnumber!,=%%"
call set "endskystxt=%%^endskys:,!rownumber!!colnumber!,=%%"
call set "fourspacetxt=%%^fourspace:,!rownumber!!colnumber!,=%%"
call set "sixspacetxt=%%^sixspace:,!rownumber!!colnumber!,=%%"
call set "sevenspacetxt=%%^sevenspace:,!rownumber!!colnumber!,=%%"
call set "eightspacetxt=%%^eightspace:,!rownumber!!colnumber!,=%%"
call set "fivespacetxt=%%^fivespace:,!rownumber!!colnumber!,=%%"
call set "endlinetxt=%%^endline:,!rownumber!!colnumber!,=%%"
call set "minusendlinetxt=%%^minusendline:,!rownumber!!colnumber!,=%%"
call set "plusbordertxt=%%^plusborder:,!rownumber!!colnumber!,=%%"
call set "twospacetxt=%%^twospace:,!rownumber!!colnumber!,=%%"
call set "standouttxt=%%^standout:,!rownumber!!colnumber!,=%%"
call set "endstandouttxt=%%^endstandout:,!rownumber!!colnumber!,=%%"
call set "nospacetxt=%%^nospace:,!rownumber!!colnumber!,=%%"
call set "threespacetxt=%%^threespace:,!rownumber!!colnumber!,=%%"
if "!outtxt!" neq "!outborder!" (
set rows=!rows!-----
) else (
if "!flytxt!" neq "!flystar!" (
rem 0201,0204,0207,0210,0601,1001,1401,1404,1407,1410,0610
if "!rownumber!!colnumber!" equ "0201" (
set rows=!rows!^|!flystar0201!
)
if "!rownumber!!colnumber!" equ "0204" (
set rows=!rows!^|!flystar0204!
)
if "!rownumber!!colnumber!" equ "0207" (
set rows=!rows!^|!flystar0207!
)
if "!rownumber!!colnumber!" equ "0210" (
set rows=!rows!^|!flystar0210!
)
if "!rownumber!!colnumber!" equ "0601" (
set rows=!rows!^|!flystar0601!
)
if "!rownumber!!colnumber!" equ "1001" (
set rows=!rows!^|!flystar1001!
)
if "!rownumber!!colnumber!" equ "1401" (
set rows=!rows!^|!flystar1401!
)
if "!rownumber!!colnumber!" equ "1404" (
set rows=!rows!^|!flystar1404!
)
if "!rownumber!!colnumber!" equ "1407" (
set rows=!rows!^|!flystar1407!
)
if "!rownumber!!colnumber!" equ "1410" (
set rows=!rows!^|!flystar1410!
)
if "!rownumber!!colnumber!" equ "0610" (
set rows=!rows!^|!flystar0610!
)
) else (
if "!palacetxt!" neq "!palace!" (
rem 0203,0206,0209,1403,1406,1409
if "!rownumber!!colnumber!" equ "0203" (
set rows=!rows!!fromPalace0203!
)
if "!rownumber!!colnumber!" equ "0206" (
set rows=!rows!!fromPalace0206!
)
if "!rownumber!!colnumber!" equ "0209" (
set rows=!rows!!fromPalace0209!
)
if "!rownumber!!colnumber!" equ "1403" (
set rows=!rows!!fromPalace1403!
)
if "!rownumber!!colnumber!" equ "1406" (
set rows=!rows!!fromPalace1406!
)
if "!rownumber!!colnumber!" equ "1409" (
set rows=!rows!!fromPalace1409!
)
) else (
if "!endpalacetxt!" neq "!endpalace!" (
rem 0212,0603,1003,1412
if "!rownumber!!colnumber!" equ "0212" (
set rows=!rows!!fromPalace0212!^|
)
if "!rownumber!!colnumber!" equ "0603" (
set rows=!rows!!fromPalace0603!^|
)
if "!rownumber!!colnumber!" equ "1003" (
set rows=!rows!!fromPalace1003!^|
)
if "!rownumber!!colnumber!" equ "1412" (
set rows=!rows!!fromPalace1412!^|
)
) else (
if "!fourstxt!" neq "!fours!" (
rem 0301,0304,0307,0310,0701,0710,1101,1110,1501,1504,1507,1510
if "!rownumber!!colnumber!" equ "0301" (
set rows=!rows!^|!fourpower0301!
)
if "!rownumber!!colnumber!" equ "0304" (
set rows=!rows!^|!fourpower0304!
)
if "!rownumber!!colnumber!" equ "0307" (
set rows=!rows!^|!fourpower0307!
)
if "!rownumber!!colnumber!" equ "0310" (
set rows=!rows!^|!fourpower0310!
)
if "!rownumber!!colnumber!" equ "0701" (
set rows=!rows!^|!fourpower0701!
)
if "!rownumber!!colnumber!" equ "0710" (
set rows=!rows!^|!fourpower0710!
)
if "!rownumber!!colnumber!" equ "1101" (
set rows=!rows!^|!fourpower1101!
)
if "!rownumber!!colnumber!" equ "1110" (
set rows=!rows!^|!fourpower1110!
)
if "!rownumber!!colnumber!" equ "1501" (
set rows=!rows!^|!fourpower1501!
)
if "!rownumber!!colnumber!" equ "1504" (
set rows=!rows!^|!fourpower1504!
)
if "!rownumber!!colnumber!" equ "1507" (
set rows=!rows!^|!fourpower1507!
)
if "!rownumber!!colnumber!" equ "1510" (
set rows=!rows!^|!fourpower1510!
)
) else (
if "!landstxt!" neq "!lands!" (
if "!rownumber!!colnumber!" equ "0810" (
set rows=!rows!^| 酉
) else (
if "!rownumber!!colnumber!" equ "1210" (
set rows=!rows! ^| 戌
) else (
if "!rownumber!!colnumber!" equ "0401" (
set rows=!rows!^| 巳
) else (
if "!rownumber!!colnumber!" equ "0404" (
set rows=!rows!^| 午
) else (
if "!rownumber!!colnumber!" equ "0407" (
set rows=!rows!^| 未
) else (
if "!rownumber!!colnumber!" equ "0410" (
set rows=!rows!^| 申
) else (
if "!rownumber!!colnumber!" equ "0801" (
set rows=!rows!^| 辰
) else (
if "!rownumber!!colnumber!" equ "1201" (
set rows=!rows!^| 卯
) else (
if "!rownumber!!colnumber!" equ "1601" (
set rows=!rows!^| 寅
) else (
if "!rownumber!!colnumber!" equ "1604" (
set rows=!rows!^| 丑
) else (
if "!rownumber!!colnumber!" equ "1607" (
set rows=!rows!^| 子
) else (
set rows=!rows!^| 亥
)
)
)
)
)
)
)
)
)
)
)
) else (
if "!agestxt!" neq "!ages!" (
rem 0402,0405,0408,0411,0802,0811,1202,1211,1602,1605,1608,1611
if "!rownumber!!colnumber!" equ "0402" (
set rows=!rows!!time0402!
)
if "!rownumber!!colnumber!" equ "0405" (
set rows=!rows!!time0405!
)
if "!rownumber!!colnumber!" equ "0408" (
set rows=!rows!!time0408!
)
if "!rownumber!!colnumber!" equ "0411" (
set rows=!rows!!time0411!
)
if "!rownumber!!colnumber!" equ "0802" (
set rows=!rows!!time0802!
)
if "!rownumber!!colnumber!" equ "0811" (
set rows=!rows!!time0811!
)
if "!rownumber!!colnumber!" equ "1202" (
set rows=!rows!!time1202!
)
if "!rownumber!!colnumber!" equ "1211" (
set rows=!rows!!time1211!
)
if "!rownumber!!colnumber!" equ "1602" (
set rows=!rows!!time1602!
)
if "!rownumber!!colnumber!" equ "1605" (
set rows=!rows!!time1605!
)
if "!rownumber!!colnumber!" equ "1608" (
set rows=!rows!!time1608!
)
if "!rownumber!!colnumber!" equ "1611" (
set rows=!rows!!time1611!
)
rem set rows=!rows!000-111
) else (
if "!skystxt!" neq "!skys!" (
rem 0403,0406,0409,1603,1606,1609
rem set rows=!rows!天
if "!rownumber!!colnumber!" equ "0403" (
set rows=!rows!!sky0403!
)
if "!rownumber!!colnumber!" equ "0406" (
set rows=!rows!!sky0406!
)
if "!rownumber!!colnumber!" equ "0409" (
set rows=!rows!!sky0409!
)
if "!rownumber!!colnumber!" equ "1603" (
set rows=!rows!!sky1603!
)
if "!rownumber!!colnumber!" equ "1606" (
set rows=!rows!!sky1606!
)
if "!rownumber!!colnumber!" equ "1609" (
set rows=!rows!!sky1609!
)
) else (
if "!endskystxt!" neq "!endskys!" (
rem 0412,0803,1203,1612,0812,1212
rem set rows=!rows!天 ^|
if "!rownumber!!colnumber!" equ "0412" (
set rows=!rows!!sky0412! ^|
)
if "!rownumber!!colnumber!" equ "0803" (
set rows=!rows!!sky0803! ^|
)
if "!rownumber!!colnumber!" equ "1203" (
set rows=!rows!!sky1203! ^|
)
if "!rownumber!!colnumber!" equ "1612" (
set rows=!rows!!sky1612! ^|
)
if "!rownumber!!colnumber!" equ "0812" (
set rows=!rows!!sky0812! ^|
)
if "!rownumber!!colnumber!" equ "1212" (
set rows=!rows!!sky1212! ^|
)
) else (
if "!fourspacetxt!" neq "!fourspace!" (
if "!rownumber!!colnumber!" equ "0604" (
set rows=!rows!!genderName! !birthName! ^(!timeName!^)
) else (
if "!rownumber!!colnumber!" equ "0804" (
set rows=!rows!五行局:!fiveset!
) else (
if "!rownumber!!colnumber!" equ "0302" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0202" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0602" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1002" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1402" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0702" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1102" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1502" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0305" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0705" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1105" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1505" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0205" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1405" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0208" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1408" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0308" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1508" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0311" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0211" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0711" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "0611" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1111" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1011" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1411" (
set rows=!rows!
) else (
if "!rownumber!!colnumber!" equ "1511" (
set rows=!rows!
) else (
set rows=!rows!
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
) else (
if "!eightspacetxt!" neq "!eightspace!" (
set rows=!rows!
) else (
if "!sixspacetxt!" neq "!sixspace!" (
set rows=!rows!
) else (
if "!pluspalacetxt!" neq "!pluspalace!" (
rem 0612,1012
if "!rownumber!!colnumber!" equ "0612" (
set rows=!rows! !fromPalace0612!^|
)
if "!rownumber!!colnumber!" equ "1012" (
set rows=!rows!!fromPalace1012!^|
)
) else (
if "!fivespacetxt!" neq "!fivespace!" (
if "!rownumber!!colnumber!" equ "0704" (
set rows=!rows!^|!yearTop!!yearBottom!年!monthName!月!dayName!日!timeName!时!padding!
) else (
if "!rownumber!!colnumber!" equ "1104" (
set rows=!rows!^|
) else (
set rows=!rows!
)
)
) else (
if "!minusskystxt!" neq "!minusskys!" (
set rows=!rows!天 ^|
) else (
if "!sevenspacetxt!" neq "!sevenspace!" (
set rows=!rows!
) else (
if "!endlinetxt!" neq "!endline!" (
set rows=!rows! ^|
) else (
if "!minusendlinetxt!" neq "!minusendline!" (
set rows=!rows!^|
) else (
if "!plusbordertxt!" neq "!plusborder!" (
set rows=!rows!------
) else (
if "%%a" equ "9" (
if "!rownumber!!colnumber!" equ "0912" (
set rows=!rows!-----^|
) else (
if "!rownumber!!colnumber!" equ "0901" (
set rows=!rows!^|----
) else (
if "!rownumber!!colnumber!" equ "0904" (
set rows=!rows!^|
) else (
if "!rownumber!!colnumber!" equ "0910" (
set rows=!rows!^|----
) else (
if "!rownumber!!colnumber!" equ "0911" (
set rows=!rows!-----
) else (
if "!rownumber!!colnumber!" equ "0902" (
set rows=!rows!-----
) else (
if "!rownumber!!colnumber!" equ "0903" (
set rows=!rows!-----
) else (
set rows=!rows!
)
)
)
)
)
)
)
) else (
if "!plusflystartxt!" neq "!plusflystar!" (
if "!rownumber!!colnumber!" equ "1010" (
set rows=!rows! ^|!flystar1010!
)
) else (
if "!twospacetxt!" neq "!twospace!" (
set rows=!rows!
) else (
if "!standouttxt!" neq "!standout!" (
set rows=!rows!^|----
) else (
if "!endstandouttxt!" neq "!endstandout!" (
set rows=!rows!-----^|
) else (
if "!nospacetxt!" neq "!nospace!" (
set rows=!rows!
) else (
if "!threespacetxt!" neq "!threespace!" (
set rows=!rows!
) else (
set rows=!rows!
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
echo !rows!
)
pause
exit
591
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
