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
}

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