按键精灵文本输入总是输入最后一行 哪里错了 望指教 按键精灵 自动输入文本一直输入第一行内容，不知道哪里出错了
\u6309\u952e\u7cbe\u7075\u8bfb\u53d6\u6587\u672c\u5e76\u4e14\u8f93\u5165 \u9010\u884c\u8f93\u5165\u5206\u5272.\u6211\u7684\u8001\u662f\u51fa\u9519 \u8bf7\u9ad8\u624b\u6307\u6559\uff01\u8fd9\u95ee\u9898\u633a\u7b80\u5355\u7684\u5427
\u4f60\u662f\u8bf4\u8981\u4f9d\u6b21\u5f97\u5230\u5206\u9694\u7b26\u91cc\u9762\u7684\u5185\u5bb9\u5417\uff1f \u8fd8\u662f\u522b\u7684
\u6bd4\u5982\uff1a\u5218\u76fc|20140101|13666666666
\u4ee5\u6b64\u5f39\u51fa \u5218\u76fc------20140101----13666666666
\u662f\u8fd9\u6837\u5417 \uff1f \u8fd9\u4e2a\u633a\u7b80\u5355\u7684\u5427 \u4f60\u8bd5\u8bd5\u6211\u6539\u8fc7\u540e\u7684\u4ee3\u7801
Path = "C:\123.txt" '\u8def\u5f84text = Plugin.File.ReadFileEx(Path)'\u8bfb\u53d6fg = split(text, "|")'\u5c06\u591age\u5206\u79bbcount = UBound(fg) '\u53d6\u5f97\u4e2a\u6570For i = 0 To count-1 a = fg(i) Call shuru()NextSub shuru() MessageBox aEnd Sub==============================
\u5f53\u7136\u5982\u679c\u4f60\u8981\u5f97\u5230\u5206\u7c7b\u5f62\u5f0f\u7684\u4e5f\u884c
\u5982\u4e0b\u4ee3\u7801
Path = "C:\123.txt" '\u8def\u5f84text = Plugin.File.ReadFileEx(Path)'\u8bfb\u53d6fg = split(text, "|")'\u5c06\u591age\u5206\u79bb\u6b21\u6570= UBound(fg) '\u53d6\u5f97\u4e2a\u6570\u5faa\u73af\u6b21\u6570=\u6b21\u6570/3For i=0 To \u5faa\u73af\u6b21\u6570-1 \u5907\u4efdi=i For \u5faa\u73af\u6b21\u6570 a = fg(i) Call shuru() i=i+3 Next i=\u5907\u4efdiNext Sub shuru() MessageBox aEnd Sub
\u5982\u679c\u662f\u81ea\u52a8\u8f93\u5165\u7f51\u9875\u8868\u5355\uff0c\u5e94\u8be5\u7528\u6728\u5934\u8f6f\u4ef6(mutousoft)\u7f51\u9875\u81ea\u52a8\u64cd\u4f5c\u901a\u7528\u5de5\u5177(pageoperator)\uff0c\u81ea\u52a8\u8bfb\u53d6txt\u6587\u6863\u5185\u5bb9\uff0c\u586b\u5199\u5230\u7f51\u9875\u4e2d\uff0c\u6bcf\u6b21\u8bfb\u53d6\u4e00\u884c\u3002\u4e5f\u53ef\u4ee5\u8fde\u7eed\u63d0\u4ea4\u591a\u4e2a\u8868\u5355\u3002
如果你要每行都输出，SayString GZ要写在Next上面，你的代码是循环完了，然后再输出，自然是输出最后一行了，这些都是逻辑问题。绛旓細娓告垙灞忚斀杈撳叆锛屾敼涓哄鍒跺湪鐢ㄩ敭鐩橀粡璐磋瘯璇
绛旓細鐢╩id鍑芥暟鍚э紝濡 a="abcd"MessageBox Mid(a,1, 2)MessageBox Mid(a,3, 2)
绛旓細浣犺繖涓氨鏄竴涓敼鍙樹簨浠讹紝鍦ㄦ瘡涓娆℃敼鍙樼殑鏃跺欏幓杈撳嚭鏂囦欢妗嗗唴鐨勫硷紝鍑虹幇涓変釜鏁板緢姝ｅ父 浣犻渶瑕佺殑鏄粨鏉熶簨浠讹紝濡傚湪 Change 閲屾娴嬪洖杞︾殑杈撳叆锛屽嵆杈撳叆鍥炶溅琛ㄧず杈撳叆缁撴潫锛岃鍙栨枃绉戠殑鍊硷紝鎴栬呮槸鍔犱竴涓寜閽紝閫氳繃鐐瑰嚮鎸夐挳璇诲彇鏂囨湰妗嗙殑鍊
绛旓細璇诲啓鏂囨湰鐨勪緥瀛愩傚彲鍋氫负灏忕簿鐏鐨勮鍙栬嚜瀹氫箟鍙傛暟銆俿ub 鍐欐枃鏈紝杩欓噷鍋氫负涓荤▼搴忔潵浣跨敤锛屽ぇ瀹堕渶瑕佺敤鍒扮殑璇濆彲浠ユ妸瀹冩渶涓轰竴涓瓙绋嬪簭鏉ヨ皟鐢ㄣ1. sub 鍐欐枃鏈 2. px_1=xxx=(2) 2鏄弬鏁扮敤鏉ヤ綔涓篨X鍔熻兘 3. VBS set file=CreateObject(Scripting.FileSystemObject)4. VBS const forwriting=2 5. VBS ...
绛旓細杩欎笁琛屼唬琛 寰幆 锛杈撳叆姣忎竴琛岀殑鍐呭 鎶婂惊鐜幓鎺 鎷彿閲岀殑 i 鏀规垚鍒殑鍙橀噺 A浠涔堢殑 鎴栬呮槸0 璇曡瘯灏辩煡閬撲簡
绛旓細for锛坕=1锛沬<71;i++锛夎繖涓噷闈㈠啓闇瑕佹墽琛岀殑鑴氭湰锛岄噷闈㈢殑鍙橀噺鏄痠銆佷粠1杩樺紑濮嬫墽琛岋紝鐩村埌70缁撴潫
绛旓細鎴戜粖澶╀篃閬囧埌浜嗚繖涓棶棰橈紝浣嗘槸鍒殑鐢佃剳娌℃湁杩欎釜闂
绛旓細Text = Plugin.File.ReadFileEx("C:\Config.txt")///璐﹀彿鏂囨湰鑷淇敼 MyArray = Split(Text, "|")If UBound(MyArray)>=0 Then For i=0 to UBound(MyArray)-1 Msgbox "绗 " & i+1 &" 琛屾枃鏈唴瀹逛负锛"& Cstr(MyArray(i))Next End If ...
绛旓細浣犳槸瑕佷竴娆″彂涓琛岃繕鏄竴娆″彂杩欎箞澶氳锛
绛旓細浣犵殑瀵嗙爜鍏ㄦ槸瀛楁瘝锛屼綘鍙互鐢ㄨ繖缁勬暟鍒ゆ柇鏄惁澶т簬0锛屾槸灏辨槸鏁板瓧锛屽惁灏辨槸瀛楁瘝銆備篃鍙互鐢∕id(瀛楃涓,寮濮嬩綅缃,杩斿洖瀛楃鏁)鏉ュ緱鍒扮涓涓瓧绗︿覆鎴栬呯鍑犱釜瀛楃涓叉潵瀹屾垚銆俛=1 For 10 cc = Lib.鏂囦欢.璇诲彇鎸囧畾琛鏂囨湰鍐呭("C:\Users\Administrator\Desktop\471009652.txt",a)aa=Mid(cc,1,1)If aa > ...
