如題，依置換的極限分成三種： 1～99999 1～2147479999 1～999999999999 複雜度也隨之增加，單純跑血肉用的話使用第一種即可。 Pattern： ~為第(%1)段! =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 適用範圍：1～99999。 Commands： chnumbers="零 一 二 三 四 五 六 七 八 九 十 百 千 萬 0*" numbers="+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 *10 *100 *1000 *10000 0+" #var bloodmap %1 #loop 1,15 {#var bloodmap %replace(@bloodmap,%word(@chnumbers,%i),%word(@numbers,%i))} #var bloodmap %delete(@bloodmap,1,1) #var total %eval(@bloodmap) #say @total 說明： 01行：建立列表(string list) chnumbers，內容是將被置換前的字元。 02行：建立列表(string list) numbers，內容是將要取代中文數字的字元。 03行：將中文格式數字存入bloodmap。 04行：將bloodmap中符合chnumbers的單詞，置換成nunbers中的單詞。兩個列表 　　　中的單詞排列位置具備相對性，不能錯放。本行指令因#loop，會執行15次 　　　，與兩列表的單詞數目相同。執行結果如下表列。 05行：刪除bloodmap中字串的第一個字元，主要為刪除*，見下表第7項。 06行：執行bloodmap中的運算式，並存入total。 07行：檢視total值。 　　情　　境 04行結果(05行刪除行首字元) 06行結果 01 九萬九千九百九十九 +9*10000+9*1000+9*900+9*10+9 99999 02 九萬零十 +9*10000+0+10 90010 03 九萬 +9*10000 90000 04 九千零十一 +9*1000+0+10+1 9011 05 九百九十 +9*900+9*10 990 06 九百 +9*900 900 07 十 *10 10 08 一 +1 1 結語：直接改成算式的寫法，修掉前篇一些問題。 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 適用範圍：1～2147479999。 Commands： chnumbers="零 一 二 三 四 五 六 七 八 九 十 百 千 萬 億 0*" numbers="+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 *10 *100 *1000 )*10000 )*100000000 0+" #var bloodmap %1 #loop 1,16 {#var bloodmap %replace(@bloodmap,%word(@chnumbers,%i),%word(@numbers,%i))} #var bloodmap %delete(@bloodmap,1,1) #if (%pos("萬",%1)>0 or %pos("億",%1)>0) {#var bloodmap "("@bloodmap} #if (%pos("億",%1)>0 and %pos("萬",%1)>0) {#var bloodmap %replace(@bloodmap,"100000000+","100000000+(")} #var total %eval(@bloodmap) #say @total 說明：01與02行的部份單詞有些變動，加入括號來正確執行四則運算。 01行：建立列表(string list) chnumbers，內容是將被置換前的字元。 02行：建立列表(string list) numbers，內容是將要取代中文數字的字元。 03行：將中文格式數字存入bloodmap。 04行：將bloodmap中符合chnumbers的單詞，置換成nunbers中的單詞。兩個列表 　　　中的單詞排列位置具備相對性，不能錯放。本行指令因#loop，會執行16次 　　　，與兩列表的單詞數目相同。 05行：刪除bloodmap中字串的第一個字元，主要為刪除*。 06行：補括號的指令，如果%1中有"萬"或"億"，就在bloodmap最前補"("，詳見下表： 07行：專門補萬運算括號的行，如果%1中"萬"與"億"，就把bloodmap中的"100000000+" 改成"100000000+("。詳見下表： 08行：執行bloodmap中的運算式，並存入total。 09行：檢視total值。 　 新　情　境 　　　　 　　　 05行結果 　　　 　06行結果 07行結果 08行結果 01 十一億零十萬十 　　　　 10+1)*100000000+0+10)*10000+10 (10+1)*100000000+0+10)*10000+10 (10+1)*100000000+(0+10)*10000+10 1100100010 02 二十億九千萬 2*10)*100000000+9*1000)*10000 (2*10)*100000000+9*1000)*10000 (2*10)*100000000+(9*1000)*10000 2090000000 03 二十億 2*10)*100000000 (2*10)*100000000 (2*10)*100000000 2000000000 04　十億零九百萬九千 10)*100000000+0+9*100)*10000+9*1000 (10)*100000000+0+9*100)*10000+9*1000 (10)*100000000+(0+9*100)*10000+9*1000 1009009000 05　九十九萬 9*10+9)*10000 (9*10+9)*10000 (9*10+9)*10000 990000 06 十萬零一 10)*10000+0+1 (10)*10000+0+1 (10)*10000+0+1 100001 結語：較上篇增加了十萬到千億級的判斷，不過程式本身無法算到這等級，大約21億就 　　　出現負數了，沒什麼需要就不要用，純粹展示用。 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 適用範圍：1～999999999999。 Commands： chnumbers="零 一 二 三 四 五 六 七 八 九 十 百 千 萬 億 0* |*" numbers="+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 *10 *100 *1000 )*10000 | 0+ |" zeros="0|00|000|0000|00000|000000|0000000|00000000" #var bloodmap %1 #loop 1,17 {#var bloodmap %replace(@bloodmap,%word(@chnumbers,%i),%word(@numbers,%i))} #var bloodmap %delete(@bloodmap,1,1) #if (%pos(億,%1)>0) {#var bloodmapE %eval(%item(@bloodmap,1)) #var bloodmap %item(@bloodmap,2)} {#var bloodmapE ""} #if (%pos("萬",%1)>0) {#var bloodmap "("@bloodmap} #var bloodmap %eval(@bloodmap) #var bloodmap @bloodmapE%item(@zeros,8-%len(@bloodmap))@bloodmap #if (%len(@bloodmap)<9) {#var bloodmap %eval(@bloodmap)} #say @bloodmap 說明：新增一條列表，並將億以上的位數獨立運算，以下則與上一個差不多，各自運 　　　算完成後，再合併起來。 01行：建立列表(string list) chnumbers，內容是將被置換前的字元。 02行：建立列表(string list) numbers，內容是將要取代中文數字的字元。 03行：建立列表(string list) zeros，內容是一連串位數遞增的0。 04行：將中文格式數字存入bloodmap。 05行：將bloodmap中符合chnumbers的單詞，置換成nunbers中的單詞。兩個列表 　　　中的單詞排列位置具備相對性，不能錯放。本行指令因#loop，會執行17次 　　　，與兩列表的單詞數目相同。 06行：刪除bloodmap中字串的第一個字元，主要為刪除*。 07行：判斷%1的值中是否有"億"，沒有的話清空bloodmapE，有的話，將bloodmap中 的第一個字串放入bloodmapE並運算，第二個字串則放入bloodmap中。 08行：補括號的指令，如果%1中有"萬"，就在bloodmap最前補"("。 09行：執行bloodmap中的運算式。 10行：在bloodmap中存入格式為：@bloodmapE補零@bloodmap 補零的式子：%item(@zeros,8-%len(@bloodmap)) 　　　拆開後： 8-%len(@bloodmap)：計算bloodmap的長度差千萬位幾個數，結果假設為Ａ。 　　　%item(@zeros,Ａ)：取出zeros中，第Ａ個字串。 11行：如果bloodmap長度小於9位，就把bloodmap再計算一次，可以清除字首不用的0。 12行：檢視bloodmap值。 範例對照： 初始值：一千零十億十萬十 十億零四十三萬 三萬 ↓ bloodmap bloodmap bloodmap 06 行：1*1000+0+10|10)*10000+10 10|+0+4*10+3)*10000 3)*10000 ↓ bloodmapE bloodmap bloodmapE bloodmap bloodmap 07 行：1010 10)*10000+10 10 0+4*10+3)*10000 3)*10000 ↓ bloodmapE bloodmap bloodmapE bloodmap bloodmap 08 行：1010 (10)*10000+10 10 (0+4*10+3)*10000 (3)*10000 ↓ bloodmapE bloodmap bloodmapE bloodmap bloodmap 09 行：1010 100010 10 430000 30000 ↓ bloodmap bloodmap bloodmap 10 行：101000100010 1000430000 00030000 ↓ bloodmap bloodmap bloodmap 11 行：101000100010 1000430000 30000 結語：使用兩段式計算，再接起來的寫法，也是展示用。 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.132.196.45 ※ 編輯: hmml 來自: 220.132.196.45 (06/25 03:52)