判斷八字格局批處理

@echo off
setlocal enabledelayedexpansion
echo 格局程式
echo.
echo 作者:phenix
echo.
echo 聯系方式:279682817@qq.com
echo.
:encode
rem 輸入四柱資訊
set /p bazi=請輸入生辰八字(格式：庚子 丁亥 乙卯 乙酉):
echo.
call :decode !bazi!

rem 決議四柱部分
:decode
rem 獲取年柱,月柱,日柱和時柱
set year=%1
set month=%2
set day=%3
set time=%4
rem 獲取年月日時干支
set niangan=!year:~0,1!
set nianzhi=!year:~1!
set yuegan=!month:~0,1!
set yuezhi=!month:~1!
set rigan=!day:~0,1!
set rizhi=!day:~1!
set shigan=!time:~0,1!
set shizhi=!time:~1!
rem 列印年月日時干支
echo 年干=!niangan!  年支=!nianzhi!  月干=!yuegan!  月支=!yuezhi!  日干=!rigan!  日支=!rizhi!  時干=!shigan!  時支=!shizhi!
echo.
rem 日主字典:格式：日主 比肩劫財食神傷官偏財正財七殺正官偏印正印 主氣中氣余氣地支
if not exist %temp%\rizhushishen.txt (
echo 甲 比肩:甲,劫財:乙,食神:丙,傷官:丁,偏財:戊,正財:己,七殺:庚,正官:辛,偏印:壬,正印:癸 主氣:寅;無;無,中氣:亥;無;無,余氣:無;無;無>%temp%\rizhushishen.txt
echo 乙 比肩:乙,劫財:甲,食神:丁,傷官:丙,偏財:己,正財:戊,七殺:辛,正官:庚,偏印:癸,正印:壬 主氣:卯;無;無,中氣:辰;無;無,余氣:未;無;無>>%temp%\rizhushishen.txt
echo 丙 比肩:丙,劫財:丁,食神:戊,傷官:己,偏財:庚,正財:辛,七殺:壬,正官:癸,偏印:甲,正印:乙 主氣:巳;無;無,中氣:寅;無;無,余氣:無;無;無>>%temp%\rizhushishen.txt
echo 丁 比肩:丁,劫財:丙,食神:己,傷官:戊,偏財:辛,正財:庚,七殺:癸,正官:壬,偏印:乙,正印:甲 主氣:午;無;無,中氣:未;無;無,余氣:戌;無;無>>%temp%\rizhushishen.txt
echo 戊 比肩:戊,劫財:己,食神:庚,傷官:辛,偏財:壬,正財:癸,七殺:甲,正官:乙,偏印:丙,正印:丁 主氣:辰;戌;無,中氣:無;無;無,余氣:寅;巳;申>>%temp%\rizhushishen.txt
echo 己 比肩:己,劫財:戊,食神:辛,傷官:庚,偏財:癸,正財:壬,七殺:乙,正官:甲,偏印:丁,正印:丙 主氣:丑;未;無,中氣:午;無;無,余氣:無;無;無>>%temp%\rizhushishen.txt
echo 庚 比肩:庚,劫財:辛,食神:壬,傷官:癸,偏財:甲,正財:乙,七殺:丙,正官:丁,偏印:戊,正印:己 主氣:申;無;無,中氣:巳;無;無,余氣:無;無;無>>%temp%\rizhushishen.txt
echo 辛 比肩:辛,劫財:庚,食神:癸,傷官:壬,偏財:乙,正財:甲,七殺:丁,正官:丙,偏印:己,正印:戊 主氣:酉;無;無,中氣:戌;無;無,余氣:丑;無;無>>%temp%\rizhushishen.txt
echo 壬 比肩:壬,劫財:癸,食神:甲,傷官:乙,偏財:丙,正財:丁,七殺:戊,正官:己,偏印:庚,正印:辛 主氣:亥;無;無,中氣:申;無;無,余氣:無;無;無>>%temp%\rizhushishen.txt
echo 癸 比肩:癸,劫財:壬,食神:乙,傷官:甲,偏財:丁,正財:丙,七殺:己,正官:戊,偏印:辛,正印:庚 主氣:子;無;無,中氣:丑;無;無,余氣:辰;無;無>>%temp%\rizhushishen.txt
)
rem 年月時干十神、月令透干、本中余氣透干、本中余氣十神、月令本氣、月令本氣十神、格局十神、天干陰陽、月令氣
set nianganshishen=
set yueganshishen=
set shiganshishen=
set yuelingtougan=
set benqitougan=
set zhongqitougan=
set yuqitougan=
set benqishishen=
set zhongqishishen=
set yuqishishen=
set yuelingbenqi=
set yuelingbenqishishen=
set gejushishen=
set yinyang=
set yuelingqi=
set row=1
rem 決議日主字典
for /f "tokens=1,2,3*" %%a in (%temp%\rizhushishen.txt) do (
rem 日主、十神、日主在月令主中余氣
set rizhu=%%a
set shishen=%%b
set dizhiqi=%%c
rem 獲取日主資訊
if !rigan! equ !rizhu! (
rem 判斷日主陰陽
set /a yinyang=!row!%%2
if !yinyang! equ 0 (
set yinyang=陰
) else (
set yinyang=陽
)
rem 決議十神
for /f "tokens=1,2,3,4,5,6,7,8,9,10* delims=," %%c in ("!shishen!") do (
rem 當前日主十神
echo %%c>%temp%\dangqianrizhushishen.txt
echo %%d>>%temp%\dangqianrizhushishen.txt
echo %%e>>%temp%\dangqianrizhushishen.txt
echo %%f>>%temp%\dangqianrizhushishen.txt
echo %%g>>%temp%\dangqianrizhushishen.txt
echo %%h>>%temp%\dangqianrizhushishen.txt
echo %%i>>%temp%\dangqianrizhushishen.txt
echo %%j>>%temp%\dangqianrizhushishen.txt
echo %%k>>%temp%\dangqianrizhushishen.txt
echo %%l>>%temp%\dangqianrizhushishen.txt
rem 決議當前日主十神字典
for /f "tokens=1,2* delims=:" %%m in (%temp%\dangqianrizhushishen.txt) do (
rem 十神和天干
set shishen=%%m
set tiangan=%%n
rem 判斷年月日干十神
if !niangan! equ !tiangan! (
set nianganshishen=!shishen!
)
if !yuegan! equ !tiangan! (
set yueganshishen=!shishen!
)
if !shigan! equ !tiangan! (
set shiganshishen=!shishen!
)
)
)
)
rem 分別判斷年月時透不透月令氣
if !niangan! equ !rizhu! (
for /f "tokens=1,2,3* delims=," %%o in ("!dizhiqi!") do (
rem 本中余氣
set benqi=%%o
set zhongqi=%%p
set yuqi=%%q
echo !benqi:~3!>%temp%\niancanggan.txt
echo !zhongqi:~3!>>%temp%\niancanggan.txt
echo !yuqi:~3!>>%temp%\niancanggan.txt
set index=1
rem 本中余氣內部決議
for /f "tokens=1,2,3* delims=;" %%r in (%temp%\niancanggan.txt) do (
echo %%r>%temp%\dangqiancanggan.txt
echo %%s>>%temp%\dangqiancanggan.txt
echo %%t>>%temp%\dangqiancanggan.txt
for /f "tokens=*" %%u in (%temp%\dangqiancanggan.txt) do (
rem 判斷月支，并記錄透的是本中余氣和序號
if "%%u" equ "!yuezhi!" (
if !index! equ 1 (
set benqitougan=本氣:!niangan!
set yuelingqi=!yuelingqi!!index!
)
if !index! equ 2 (
set zhongqitougan=中氣:!niangan!
set yuelingqi=!yuelingqi!!index!
)
if !index! equ 3 (
set yuqitougan=余氣:!niangan!
set yuelingqi=!yuelingqi!!index!
)
)
)
set /a index+=1
)
)
)
if !yuegan! equ !rizhu! (
for /f "tokens=1,2,3* delims=," %%o in ("!dizhiqi!") do (
set benqi=%%o
set zhongqi=%%p
set yuqi=%%q
echo !benqi:~3!>%temp%\yuecanggan.txt
echo !zhongqi:~3!>>%temp%\yuecanggan.txt
echo !yuqi:~3!>>%temp%\yuecanggan.txt
set index=1
for /f "tokens=1,2,3* delims=;" %%r in (%temp%\yuecanggan.txt) do (
echo %%r>%temp%\dangqiancanggan.txt
echo %%s>>%temp%\dangqiancanggan.txt
echo %%t>>%temp%\dangqiancanggan.txt
for /f "tokens=*" %%u in (%temp%\dangqiancanggan.txt) do (
if "%%u" equ "!yuezhi!" (
if !index! equ 1 (
set benqitougan=本氣:!yuegan!
set yuelingqi=!yuelingqi!!index!
)
if !index! equ 2 (
set zhongqitougan=中氣:!yuegan!
set yuelingqi=!yuelingqi!!index!
)
if !index! equ 3 (
set yuqitougan=余氣:!yuegan!
set yuelingqi=!yuelingqi!!index!
)
)
)
set /a index+=1
)
)
)
if !shigan! equ !rizhu! (
for /f "tokens=1,2,3* delims=," %%o in ("!dizhiqi!") do (
set benqi=%%o
set zhongqi=%%p
set yuqi=%%q
echo !benqi:~3!>%temp%\shicanggan.txt
echo !zhongqi:~3!>>%temp%\shicanggan.txt
echo !yuqi:~3!>>%temp%\shicanggan.txt
set index=1
for /f "tokens=1,2,3* delims=;" %%r in (%temp%\shicanggan.txt) do (
echo %%r>%temp%\dangqiancanggan.txt
echo %%s>>%temp%\dangqiancanggan.txt
echo %%t>>%temp%\dangqiancanggan.txt
for /f "tokens=*" %%u in (%temp%\dangqiancanggan.txt) do (
if "%%u" equ "!yuezhi!" (
if !index! equ 1 (
set benqitougan=本氣:!shigan!
set yuelingqi=!yuelingqi!!index!
)
if !index! equ 2 (
set zhongqitougan=中氣:!shigan!
set yuelingqi=!yuelingqi!!index!
)
if !index! equ 3 (
set yuqitougan=余氣:!shigan!
set yuelingqi=!yuelingqi!!index!
)
)
)
set /a index+=1
)
)
)
set /a row+=1
)
rem 獲取月令本中余氣十神
for /f "tokens=1,2* delims=:" %%a in (%temp%\dangqianrizhushishen.txt) do (
set shishen=%%a
set tiangan=%%b
if not "!benqitougan!" equ "" (
if !benqitougan:~3! equ !tiangan! (
set benqishishen=!shishen!
)
)
if not "!zhongqitougan!" equ "" (
if !zhongqitougan:~3! equ !tiangan! (
set zhongqishishen=!shishen!
)
)
if not "!yuqitougan!" equ "" (
if !yuqitougan:~3! equ !tiangan! (
set yuqishishen=!shishen!
)
)
)
echo 年干透出!nianganshishen! 月干透出!yueganshishen! 時干透出!shiganshishen!
echo.
if not "!yuelingqi!" equ "" (
rem 設定非比劫格局十神
if not "!benqishishen!" equ "" (
if not "!benqishishen!" equ "劫財" (
if not "!benqishishen!" equ "比肩" (
set gejushishen=!benqishishen!
)
)
)
if "!gejushishen!" equ "" (
if not "!zhongqishishen!" equ "" (
if not "!zhongqishishen!" equ "劫財" (
if not "!zhongqishishen!" equ "比肩" (
set gejushishen=!zhongqishishen!
)
)
)
)
if "!gejushishen!" equ "" (
if not "!yuqishishen!" equ "" (
if not "!yuqishishen!" equ "劫財" (
if not "!yuqishishen!" equ "比肩" (
set gejushishen=!yuqishishen!
)
)
)
)
rem 藏干為一個時比肩劫財，獲取比肩還是劫財
if "!gejushishen!" equ "" (
set idx=!yuelingqi:~0,1!
if !idx! equ 1 (
set gejushishen=!benqishishen!
)
if !idx! equ 2 (
set gejushishen=!zhongqishishen!
)
if !idx! equ 3 (
set gejushishen=!yuqishishen!
)
)
rem 比劫格局處理
if "!gejushishen!" equ "劫財" (
if "!yinyang!" equ "陽" (
set gejushishen=陽刃
) else (
set gejushishen=月劫
)
)
if "!gejushishen!" equ "比肩" (
set gejushishen=建祿
)
echo 月令透干:!benqitougan!!benqishishen!!zhongqitougan!!zhongqishishen!!yuqitougan!!yuqishishen!
echo.
echo 格局:!gejushishen!格
echo.
) else (
rem 不透月令氣，取月令本氣
for /f "tokens=*" %%a in ('findstr 主氣:.*!yuezhi!.*中氣.* %temp%\rizhushishen.txt') do (
set yuelingbenqi=%%a
set yuelingbenqi=!yuelingbenqi:~0,1!
for /f "tokens=1,2* delims=:" %%b in (%temp%\dangqianrizhushishen.txt) do (
set shishen=%%b
set tiangan=%%c
rem 處理比劫
if "!yuelingbenqi!" equ "!tiangan!" (
set yuelingbenqishishen=!shishen!
if "!yuelingbenqishishen!" equ "劫財" (
if "!yinyang!" equ "陽" (
set gejushishen=陽刃
) else (
set gejushishen=月劫
)
) else (
if "!yuelingbenqishishen!" equ "比肩" (
set gejushishen=建祿
) else (
set gejushishen=!yuelingbenqishishen!
)
)
)
)
)
echo 月令不透干
echo.
echo 格局:取月令本氣!yuelingbenqi!,!gejushishen!格
echo.
)
goto :encode

使用方法：用文本編輯器如notepad++，選ansi編碼，復制進去如果開頭和最后有問號，洗掉問號，保存時檔案名xx. bat，保存型別選all types，雙擊運行，保留代碼完整性就行了，有問題私信叭，beta1.0版，

beta1.01版

修正了陽刃判斷

beta1.02版

修正了不透干格局判斷