查看单个帖子
旧 2011-05-08   #1
xelite
初级会员
级别:2 | 在线时长:24小时 | 升级还需:6小时级别:2 | 在线时长:24小时 | 升级还需:6小时
 
xelite 的头像
 
注册: 11年02月13日
来自: zhongguo
帖子: 17
声望力: 0
声望: 16 xelite 初领妙道
积分:3
精华:1
现金:92两梁山币
资产:142两梁山币
致谢数: 0
获感谢文章数:0
获会员感谢数:0
zmud之取经自动对成语

定义一个#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 当前离线  
回复时引用此帖