zmud之取经自动对成语

[xelite]

定义一个#alias，内容如下：
#alias qujing_chengyu {
#var idiom_word %trim(%1)
#file 1 成语列表.txt
#var idiom_block_pos %pos(■,%trim(@idiom_word))
#if (@idiom_block_pos=1) {#var idiom_copy_start 3
#var idiom_copy_len 6
#var idiom_word_left_pos 0}
#if (@idiom_block_pos=3) {#var idiom_copy_start 5
#var idiom_copy_len 4
#var idiom_word_left_pos 1}
#if (@idiom_block_pos=5) {#var idiom_copy_start 1
#var idiom_copy_len 4
#var idiom_word_left_pos 7}
#if (@idiom_block_pos=7) {#var idiom_copy_start 1
#var idiom_copy_len 6
#var idiom_word_left_pos 0}
#var idiom_word1 %copy(@idiom_word,@idiom_copy_start,@idiom_copy_len)
#var match_words %grep(1,@idiom_word1)
#For @match_words {#var idiom_word1 %i
#if (@idiom_word_left_pos>0) {#if (%pos(%copy(@idiom_word,@idiom_word_left_pos,2),@idiom_word1)>0) {#say explain %trim(@idiom_word1)}} {#say explain %trim(@idiom_word1)}}
#close 1
#unv idiom_word1
#unv idiom_block_pos
#unv idiom_copy_start
#unv idiom_copy_len
#unv idiom_word_left_pos
}

成语列表的内容我一个个贴啊...

[土行孙]

估计大家会仍然会点开成语网站来过这关。
有时会多个成语匹配问题的，主观判断下选较生僻的，往往是正确答案。机器过取经，有些关有意义，有些没什么意义，毕竟几个星期才碰到一次。机器解决频繁重复的东西较为实用。

[xelite]

呵呵，Excell说的不错，不过我整理的就是成语大全，来自比较完整的网站，将近31000条记录，如果不作为机器，就当方便查阅吧.*_&

PS:fy 帮我把2楼的帖子删掉吧，影响别人阅读这个帖子。

完整的成语列表在附件中，大家可以参考，我写的命令里面会匹配这些成语，包括可能出现的多个答案也会一并出来。

*sea

[xelite]

补充一下，使用方法是：
qujing_chengyu 爱■如命

[loveyool]

我是超级新手，在哪里对成语啊，有潜能奖励吗