按键精灵-在文档中搜索字符串,并且输出 20150512修改（国外英文资料）.doc

按键精灵-在文档中搜索字符串,并且输出改（国外英文资料） / / buttons 9 code / / function: find the selected string in text d: \ 1. TXT. And output the line that the string is in. / / initial version, no error detection mechanism is done. / / by bird - / / the novice is on the road. Support for Shared spirit. / / / / / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / / * * * * * * * * * * behavior description will d plate under 1. TXT text loaded into the array, check the mouse behavior, if one for the selected text trigger search action * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / / * * * * * * * * * * interface is required for this script, because the text cannot graphical interface so the oral * * * * * * * / / * * * * * * * * * interface is very simple From top to bottom, all text box text box 1 height is 6 rows in order to display the title of * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * The text box 3 height is 1 line to show the answer * * * * * * * * * * / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / / load files Dim Var1, MyArray, I, l (7) For I = 1 To 2 Var1 = d: \ 1.txt / / specifies the location of the file MyArra