main() sub main() dim fs set FS=CreateObject("Scripting.FileSystemObject") dim WP set WP=createobject("WshPlus.WP_Clip") dim crlf crlf=chr(13) & chr(10) dim ffi,ffo,fcount dim kisodir kisodir=".\wdic\" dim kenstr kenstr=trim(WP.gettext) if kenstr="" then kenstr=trim(inputbox("Input the tango")) if kenstr="" then exit sub end if l=len(kenstr) set FFI=FS.OpenTextFile(kisodir & "index.tag") do s=FFI.ReadLine if len(s)>17 then if mid(s,17,1)="#" then if mid(s,18,l+1)=kenstr & " " then k1=instr(s,"(") k2=instr(s,")") FFI.close set FFI=FS.OpenTextFile(kisodir & mid(s,1,k1-1)) i=mid(s,k1+1,k2-k1-1) for j=1 to i-1 FFI.readline next s2=FFI.readline & crlf do s=FFI.readline if len(s)="" or mid(s,1,1)="#" then exit do s2=s2 & s & crlf loop msgbox s2,,"Kisoken:result " & kenstr exit sub end if end if end if loop until ffi.atendofstream FFI.close msgbox "Cannot found " & kenstr,,"Kisoken:result" end sub