-- 作者：秦汉昌
-- 发布时间：2009/1/14 13:49:00
-- [原创]千字文排序模板
\\ 使用本模板必须装载干支转换模板，源程序连接地址如下： \\ [秦汉昌、万邦来朝九龙原创]干支转换模板更新[苏子琼汉语编程论坛]
\\ http://bbs.suziqiong.cn/bbs/dispbbs.asp?boardid=50&Id=130
装载 模板\\干支转换模板
方法一：
编 数转简体千字文 ( 千字文阿拉伯序数 --- 简体千字文字序地址 长度 )
是实数就转整数 ♂ 1 101 >=且< 就
字串" 天地玄黄宇宙洪荒日月盈昃辰宿列张寒来暑往秋收冬藏闰余成岁律吕调阳雲腾致雨露结为霜金生丽水玉出崐冈剑号巨阙珠称夜光果珍李柰菜重芥姜海咸河淡鳞潜羽翔龙师火帝鸟官人皇始制文字乃服衣裳推位让国有虞陶唐吊民伐罪"
∴ 1 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 101 201 >=且< 就
字串" 周发殷汤坐朝问道垂拱平章爱育黎首臣伏戎羌遐迩壹体率宾归王鸣凤在树白驹食场化被草木赖及万方盖此身髮四大五常恭惟鞠养岂敢毁伤女慕贞洁男效才良知过必改得能莫忘罔谈彼短靡恃己长信使可覆器欲难量墨悲丝染诗赞羔羊"
∴ 101 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 201 301 >=且< 就
字串" 景行维贤克念作圣德建名立形端表正空谷传声虚堂习听祸因恶积福缘善庆尺璧非宝寸阴是竞资父事君曰严与敬孝当竭力忠则尽命临深履薄夙兴温凊似兰斯馨如松之盛川流不息渊澄取映容止若思言辞安定笃初诚美慎终宜令荣业所基"
∴ 201 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 301 401 >=且< 就
字串" 籍甚无竟学优登仕摄职从政存以甘棠去而益咏乐殊贵贱礼别尊卑上和下睦夫唱妇随外受傅训入奉母仪诸姑伯叔犹子比儿孔怀兄弟同气连枝交友投分切磨箴规仁慈隐恻造次弗离节义廉退颠沛匪亏性静情逸心动神疲守真志满逐物意移"
∴ 301 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 401 501 >=且< 就
字串" 坚持雅操好爵自縻都邑华夏东西二京背邙面洛浮渭据泾宫殿盘郁楼观飞惊图写禽兽画彩仙灵丙舍傍启甲帐对楹肆筵设席鼓瑟吹笙升阶纳陛弁转疑星右通广内左达承明既集坟典亦聚群英杜稿钟隶漆书壁经府罗将相路侠槐卿户封八县"
∴ 401 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 501 601 >=且< 就
字串" 家给千兵高冠陪辇驱毂振缨世禄侈富车驾肥轻策功茂实勒碑刻铭磻溪伊尹佐时阿衡奄宅曲阜微旦孰营桓公匡合济弱扶倾绮回汉惠说感武丁俊乂密勿多士实宁晋楚更霸赵魏困横假途灭虢践土会盟何遵约法韩弊烦刑起翦颇牧用军最精"
∴ 501 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 601 701 >=且< 就
字串" 宣威沙漠驰誉丹青九州禹迹百郡秦并岳宗恒岱禅主云亭雁门紫塞鸡田赤城昆池碣石钜野洞庭旷远绵邈岩岫杳冥治本于农务兹稼穑俶载南亩我艺黍稷税熟贡新劝赏黜陟孟轲敦素史鱼秉直庶几中庸劳谦谨敕聆音察理鉴貌辨色贻厥嘉猷"
∴ 601 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 701 801 >=且< 就
字串" 勉其祗植省躬讥诫宠增抗极殆辱近耻林皋幸即两疏见机解组谁逼索居闲处沉默寂寥求古寻论散虑逍遥欣奏累遣慼谢欢招渠荷的历园莽抽条枇杷晚翠梧桐早凋陈根委翳落叶飘飒游鲲独运淩摩绛霄耽读玩市寓目囊箱易輶攸畏属耳垣墙"
∴ 701 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 801 901 >=且< 就
字串" 具膳餐饭适口充肠饱饫烹宰饥厌糟糠亲戚故旧老少异粮妾御绩纺侍巾帷房纨扇圆洁银烛炜煌昼眠夕寐蓝笋象床弦歌酒宴接杯举觞矫手顿足悦豫且康嫡后嗣续祭祀烝尝稽颡再拜悚惧恐惶笺牒简要顾答审详骸垢想浴执热愿凉驴骡犊特"
∴ 801 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 901 1001 >=且< 就
字串" 骇跃超骧诛斩贼盗捕获叛亡布射僚丸嵇琴阮啸恬笔伦纸钧巧任钓释纷利俗并皆佳妙毛施淑姿工颦妍笑年矢每催曦晖朗曜璿玑悬斡晦魄环照指薪修祜永绥吉劭矩步引领俯仰廊庙束带矜庄徘徊瞻眺孤陋寡闻愚蒙等诮谓语助者焉哉乎也"
∴ 901 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 双♀ ♀ 字串" 千字文序数不正确" 印字串
然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 。
编 数转正体千字文 ( 千字文阿拉伯序数 --- 正体千字文字序地址 长度 )
是实数就转整数 ♂ 1 101 >=且< 就
字串" 天地玄黄宇宙洪荒日月盈昃辰宿列張寒來暑往鞦收鼕藏閏餘成歲律吕調陽雲腾騰緻雨露結爲霜金生麗水玉出崐岡劔號巨闕珠稱夜光果珍李柰菜重芥薑海鹹河淡鱗潛羽翔龍師火帝鳥官人皇始製文字乃服衣裳推位讓國有虞陶唐吊民伐罪"
∴ 1 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 101 201 >=且< 就
字串" 周發殷汤坐朝問道垂拱平章愛育黎首臣伏戎羌遐邇壹體率賓歸王鳴鳳在樹白駒食場化被草木賴及萬方蓋此身髮四大五常恭惟鞠養豈敢毁伤女慕貞洁男效才良知過必改得能莫忘罔談彼短靡恃己長信使可覆器欲難量墨悲絲染詩讚羔羊"
∴ 101 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 201 301 >=且< 就
字串" 景行维賢剋念作聖德建名立形端表正空穀傳聲虚堂習聽禍因惡積福缘善慶尺璧非寶寸陰是競資父事君曰嚴與敬孝當竭力忠則盡命臨深履薄夙興温凊似蘭斯馨如鬆之盛川流不息淵澄取暎容止若思言辭安定篤初誠美慎終宜令榮業所基"
∴ 201 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 301 401 >=且< 就
字串" 籍甚無竟學優登仕攝職從政存以甘棠去而益詠樂殊貴賤禮彆尊卑上和下睦夫唱婦隨外受傅訓入奉母儀諸姑伯叔猶子比兒孔懷兄弟同氣連枝交友投分切磨箴規仁慈隠惻造次弗離節義廉退颠沛匪虧性静情逸心動神疲守真志满逐物意移"
∴ 301 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 401 501 >=且< 就
字串" 堅持雅操好爵自縻都邑華夏東西二京背邙麵洛浮渭據泾宫殿盤鬰樓觀飛驚圖寫禽獸畫彩仙靈丙捨傍啓甲帳對楹肆筵設蓆鼓瑟吹笙升階纳陛弁轉疑星右通廣内左逹承明既集墳典亦聚群英杜藳鍾隷漆書壁經府羅將相路侠槐卿户封八縣"
∴ 401 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 501 601 >=且< 就
字串" 傢给韆兵髙冠陪輦驅轂振纓世禄侈富車駕肥輕策功茂實勒碑刻銘磻溪伊尹佐時阿衡奄宅麯阜微旦孰營桓公匡閤濟弱扶傾綺迴漢惠説感武丁俊乂密勿多士寔寧晋楚更霸趙魏困横假途滅虢踐土會盟何遵約法韩弊煩刑起翦頗牧用軍最精"
∴ 501 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 601 701 >=且< 就
字串" 宣威沙漠馳譽丹青九州禹跡百郡秦并嶽宗恒岱禅主云亭雁門紫塞鷄田赤城昆池碣石鉅野洞庭曠遠绵邈巖岫杳冥治本於農務兹稼穑俶載南畝我藝黍稷税熟貢新勸賞黜陟孟軻敦素史魚秉直庶幾中庸勞謙謹敕聆音察理鑒貌辨色貽厥嘉猷"
∴ 601 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 701 801 >=且< 就
字串" 勉其祗植省躬譏誡寵增抗極殆辱近恥林皋幸即兩疏見機解组谁逼索居閑處沉默寂寥求古尋論散慮逍遥欣奏纍遣慼谢歡招渠荷的歷園莽抽條枇杷晚翠梧桐早凋陳根委翳落葉飄颻逰鵾獨運淩摩絳霄耽讀翫市寓目囊箱易輶攸畏屬耳垣牆"
∴ 701 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 801 901 >=且< 就
字串" 具膳餐飯適口充腸飽飫烹宰飢厭糟糠親戚故舊老少異糧妾禦績紡侍巾帷房紈扇圎潔銀燭煒煌晝眠夕寐蓝筍象牀弦歌酒讌接杯舉觞矯手頓足悦豫且康嫡後嗣續祭祀烝嘗稽颡再拜懼惧恐惶牋牒簡要顧答審詳骸垢想浴執熱願凉驢騾犢特"
∴ 801 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 ♂ 901 1001 >=且< 就
字串" 駭躍超驤誅斬賊盗捕獲叛亡布射僚丸嵇琴阮嘯恬筆倫紙鈞巧任釣釋紛利俗並皆佳妙毛施淑姿工颦妍笑年矢每催曦暉朗曜璿璣懸斡晦魄環照指薪修祜永綏吉劭矩步引領俯仰廊廟束帶矜莊徘徊瞻眺孤陋寡聞愚蒙等誚謂語助者焉哉乎也"
∴ 901 - 2 * 2 剪串腹 双↑↓ 双♀ 否则 双♀ ♀ 字串" 千字文序数不正确" 印字串
然后 然后 然后 然后 然后 然后 然后 然后 然后 然后 。
方法二： 编 简体千字文分支串
字串" 天地玄黄宇宙洪荒日月盈昃辰宿列张寒来暑往秋收冬藏闰余成岁律吕调阳雲腾致雨露结为霜金生丽水玉出崐冈剑号巨阙珠称夜光果珍李柰菜重芥姜海咸河淡鳞潜羽翔龙师火帝鸟官人皇始制文字乃服衣裳推位让国有虞陶唐吊民伐罪"
字串" 周发殷汤坐朝问道垂拱平章爱育黎首臣伏戎羌遐迩壹体率宾归王鸣凤在树白驹食场化被草木赖及万方盖此身髮四大五常恭惟鞠养岂敢毁伤女慕贞洁男效才良知过必改得能莫忘罔谈彼短靡恃己长信使可覆器欲难量墨悲丝染诗赞羔羊"
字串" 景行维贤克念作圣德建名立形端表正空谷传声虚堂习听祸因恶积福缘善庆尺璧非宝寸阴是竞资父事君曰严与敬孝当竭力忠则尽命临深履薄夙兴温凊似兰斯馨如松之盛川流不息渊澄取映容止若思言辞安定笃初诚美慎终宜令荣业所基"
字串" 籍甚无竟学优登仕摄职从政存以甘棠去而益咏乐殊贵贱礼别尊卑上和下睦夫唱妇随外受傅训入奉母仪诸姑伯叔犹子比儿孔怀兄弟同气连枝交友投分切磨箴规仁慈隐恻造次弗离节义廉退颠沛匪亏性静情逸心动神疲守真志满逐物意移"
字串" 坚持雅操好爵自縻都邑华夏东西二京背邙面洛浮渭据泾宫殿盘郁楼观飞惊图写禽兽画彩仙灵丙舍傍启甲帐对楹肆筵设席鼓瑟吹笙升阶纳陛弁转疑星右通广内左达承明既集坟典亦聚群英杜稿钟隶漆书壁经府罗将相路侠槐卿户封八县"
字串" 家给千兵高冠陪辇驱毂振缨世禄侈富车驾肥轻策功茂实勒碑刻铭磻溪伊尹佐时阿衡奄宅曲阜微旦孰营桓公匡合济弱扶倾绮回汉惠说感武丁俊乂密勿多士实宁晋楚更霸赵魏困横假途灭虢践土会盟何遵约法韩弊烦刑起翦颇牧用军最精"
字串" 宣威沙漠驰誉丹青九州禹迹百郡秦并岳宗恒岱禅主云亭雁门紫塞鸡田赤城昆池碣石钜野洞庭旷远绵邈岩岫杳冥治本于农务兹稼穑俶载南亩我艺黍稷税熟贡新劝赏黜陟孟轲敦素史鱼秉直庶几中庸劳谦谨敕聆音察理鉴貌辨色贻厥嘉猷"
字串" 勉其祗植省躬讥诫宠增抗极殆辱近耻林皋幸即两疏见机解组谁逼索居闲处沉默寂寥求古寻论散虑逍遥欣奏累遣慼谢欢招渠荷的历园莽抽条枇杷晚翠梧桐早凋陈根委翳落叶飘飒游鲲独运淩摩绛霄耽读玩市寓目囊箱易輶攸畏属耳垣墙"
字串" 具膳餐饭适口充肠饱饫烹宰饥厌糟糠亲戚故旧老少异粮妾御绩纺侍巾帷房纨扇圆洁银烛炜煌昼眠夕寐蓝笋象床弦歌酒宴接杯举觞矫手顿足悦豫且康嫡后嗣续祭祀烝尝稽颡再拜悚惧恐惶笺牒简要顾答审详骸垢想浴执热愿凉驴骡犊特"
字串" 骇跃超骧诛斩贼盗捕获叛亡布射僚丸嵇琴阮啸恬笔伦纸钧巧任钓释纷利俗并皆佳妙毛施淑姿工颦妍笑年矢每催曦晖朗曜璿玑悬斡晦魄环照指薪修祜永绥吉劭矩步引领俯仰廊庙束带矜庄徘徊瞻眺孤陋寡闻愚蒙等诮谓语助者焉哉乎也"
。 编 正体千字文分支串
字串" 天地玄黄宇宙洪荒日月盈昃辰宿列張寒來暑往鞦收鼕藏閏餘成歲律吕調陽雲腾騰緻雨露結爲霜金生麗水玉出崐岡劔號巨闕珠稱夜光果珍李柰菜重芥薑海鹹河淡鱗潛羽翔龍師火帝鳥官人皇始製文字乃服衣裳推位讓國有虞陶唐吊民伐罪"
字串" 周發殷汤坐朝問道垂拱平章愛育黎首臣伏戎羌遐邇壹體率賓歸王鳴鳳在樹白駒食場化被草木賴及萬方蓋此身髮四大五常恭惟鞠養豈敢毁伤女慕貞洁男效才良知過必改得能莫忘罔談彼短靡恃己長信使可覆器欲難量墨悲絲染詩讚羔羊"
字串" 景行维賢剋念作聖德建名立形端表正空穀傳聲虚堂習聽禍因惡積福缘善慶尺璧非寶寸陰是競資父事君曰嚴與敬孝當竭力忠則盡命臨深履薄夙興温凊似蘭斯馨如鬆之盛川流不息淵澄取暎容止若思言辭安定篤初誠美慎終宜令榮業所基"
字串" 籍甚無竟學優登仕攝職從政存以甘棠去而益詠樂殊貴賤禮彆尊卑上和下睦夫唱婦隨外受傅訓入奉母儀諸姑伯叔猶子比兒孔懷兄弟同氣連枝交友投分切磨箴規仁慈隠惻造次弗離節義廉退颠沛匪虧性静情逸心動神疲守真志满逐物意移"
字串" 堅持雅操好爵自縻都邑華夏東西二京背邙麵洛浮渭據泾宫殿盤鬰樓觀飛驚圖寫禽獸畫彩仙靈丙捨傍啓甲帳對楹肆筵設蓆鼓瑟吹笙升階纳陛弁轉疑星右通廣内左逹承明既集墳典亦聚群英杜藳鍾隷漆書壁經府羅將相路侠槐卿户封八縣"
字串" 傢给韆兵髙冠陪輦驅轂振纓世禄侈富車駕肥輕策功茂實勒碑刻銘磻溪伊尹佐時阿衡奄宅麯阜微旦孰營桓公匡閤濟弱扶傾綺迴漢惠説感武丁俊乂密勿多士寔寧晋楚更霸趙魏困横假途滅虢踐土會盟何遵約法韩弊煩刑起翦頗牧用軍最精"
字串" 宣威沙漠馳譽丹青九州禹跡百郡秦并嶽宗恒岱禅主云亭雁門紫塞鷄田赤城昆池碣石鉅野洞庭曠遠绵邈巖岫杳冥治本於農務兹稼穑俶載南畝我藝黍稷税熟貢新勸賞黜陟孟軻敦素史魚秉直庶幾中庸勞謙謹敕聆音察理鑒貌辨色貽厥嘉猷"
字串" 勉其祗植省躬譏誡寵增抗極殆辱近恥林皋幸即兩疏見機解组谁逼索居閑處沉默寂寥求古尋論散慮逍遥欣奏纍遣慼谢歡招渠荷的歷園莽抽條枇杷晚翠梧桐早凋陳根委翳落葉飄颻逰鵾獨運淩摩絳霄耽讀翫市寓目囊箱易輶攸畏屬耳垣牆"
字串" 具膳餐飯適口充腸飽飫烹宰飢厭糟糠親戚故舊老少異糧妾禦績紡侍巾帷房紈扇圎潔銀燭煒煌晝眠夕寐蓝筍象牀弦歌酒讌接杯舉觞矯手頓足悦豫且康嫡後嗣續祭祀烝嘗稽颡再拜懼惧恐惶牋牒簡要顧答審詳骸垢想浴執熱願凉驢騾犢特"
字串" 駭躍超驤誅斬賊盗捕獲叛亡布射僚丸嵇琴阮嘯恬筆倫紙鈞巧任釣釋紛利俗並皆佳妙毛施淑姿工颦妍笑年矢每催曦暉朗曜璿璣懸斡晦魄環照指薪修祜永綏吉劭矩步引領俯仰廊廟束帶矜莊徘徊瞻眺孤陋寡聞愚蒙等誚謂語助者焉哉乎也"
。 编 是千字文序数 ( 任意整数 --- 真或假标志 )
♂ 1 1001 >=且< 。 编 转千字文分支串序数 ( 千字文序数 --- 千字文分支串序数 ) \\ 千字文分支串序数的格式为: 该分支序数 某字在该分支的序数
1 - 100 /余商 ↑↓ 。 编 移出某个千字文分支串 ( 千字文分支串序数 所有分支串地址 长度 --- 某个千字文分支串地址 长度 )
9 22 √ - 2 * 1 + √ ↑↓ 。 编 清除剩余千字文分支串 ( 所有千字文分支串 --- 摞顶千字文分支串 )
9 0 ?循环 双↑↓ 双♀ 回环 。 编 剪出千字文分支串的某个字 ( 某字在该分支的序数 该分支串地址 长度 --- 该字对应的地址 长度 )
∴ 2 * 2 剪串腹 双↑↓ 双♀ 。
编 数转简体千字文 ( 千字文阿拉伯序数 --- 简体千字文字序地址 长度 )
是实数就转整数 是千字文序数
就 转千字文分支串序数 简体千字文分支串 移出某个千字文分支串
清除剩余千字文分支串 剪出千字文分支串的某个字
否则 ♀ 字串" 千字文序数不正确" 印字串
然后 。
编 数转正体千字文 ( 千字文阿拉伯序数 --- 正体千字文字序地址 长度 )
是实数就转整数 是千字文序数
就 转千字文分支串序数 正体千字文分支串 移出某个千字文分支串
清除剩余千字文分支串 剪出千字文分支串的某个字
否则 ♀ 字串" 千字文序数不正确" 印字串
然后 。 编 显示简体千字文
回车 1001 1 循环
内环数 数转简体千字文 印字串
内环数 4 求余数 0= 就 空格 然后
内环数 20 /余商 ↑↓ 0= 就 回车 5 求余数 0= 就 回车 然后 然后
回环 。 编 显示正体千字文
回车 1001 1 循环
内环数 数转正体千字文 印字串
内环数 4 求余数 0= 就 空格 然后
内环数 20 /余商 ↑↓ 0= 就 回车 5 求余数 0= 就 回车 然后 然后
回环 。
\\ /////////////★秦汉昌★2009.元.14★上海★
[此贴子已经被作者于2009-1-14 14:59:39编辑过]
|