lmx860512 发表于 2009-12-29 17:25:38

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=ico.ico
#AutoIt3Wrapper_outfile=雨人会员辅助工具.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#NOTRAYICON
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author:         myName

Script Function:
        Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstantsEx.au3>

$Form1 = GUICreate("雨人会员辅助工具", 244, 87, 753,59);创建一个主窗口
$Label1 = GUICtrlCreateLabel("姓名", 16, 8, 42, 17);添加姓名标识
$Label2 = GUICtrlCreateLabel("身份证", 16, 32, 40, 17);添加身份证标识
$Label3 = GUICtrlCreateLabel("编号", 16, 64, 42, 17);添加编号标识
$EDit1 = GUICtrlCreateInput("", 64, 8, 121, 21);创建一个文本提示框--姓名
$EDit2 = GUICtrlCreateInput("", 64, 32, 121, 21);创建一个文本提示框--身份证
$EDit3 = GUICtrlCreateInput("", 152, 56, 33, 21);创建一个文本提示框--查找
$Button1 = GUICtrlCreateButton("确定", 192, 8, 43, 25);创建一个确定按钮
$Button2 = GUICtrlCreateButton("查找", 192, 56, 41, 25);创建一个查找按钮
GUISetState(@SW_SHOW);
WinSetOnTop("雨人会员辅助工具","编号",1);窗口置顶

$iniFile = @ScriptDir&"\UserDbf.ini";设置INI文件
While 1;
        $msg = GUIGetMsg();捕获窗口消息
        Select;
                Case $msg = $GUI_EVENT_CLOSE;
                        ExitLoop;终止一个 While/Do/For 循环.
                        If GUICtrlRead($Edit3)="" Then;读取指定控件的状态或相关数据
                                MsgBox(0,"错误","请输入帐号");创建一个错误提示框
                                ContinueLoop;继续一个 While/Do/For 循环
                        EndIf;

            Case $msg = $Button2;输入帐号点“确定”
                        $s_Msg = IniRead($iniFile,"UserMSG",GUICtrlRead($Edit3),"");读取ini中查找框里的内弄
                        $s_xm = StringLeft($s_Msg,StringInStr($s_Msg,",")-1);返回字符串中从左开始指定数量的字符.
                        $s_sfzh = StringTrimLeft($s_Msg,StringInStr($s_Msg,","));删除字符串中从左开始指定数量的字符
                        GUICtrlSetData($Edit2,$s_sfzh);修改指定控件的数据
                        GUICtrlSetData($Edit1,$s_xm);修改指定控件的数据
                Case $msg = $Button1
                        ControlFocus ("控制台","RsPluginForm", "Edit1");设置输入焦点到指定窗口
                        ControlSetText("控制台","RsPluginForm", "Edit1", GUICtrlRead($EDit2));传送数据到...
                        Send("{ENTER}");回车
                        Sleep(2000);延时2秒
                        Send("{ENTER}");回车
        EndSelect;
WEnd;





完工了谢谢各位的帮助:face (34):

wyl0205 发表于 2009-12-30 11:40:26

水木子 你很穷啊，尽让要我20块钱，你真狠啊！！55~~
amway929 发表于 2009-12-7 11:17 http://www.autoitx.com/images/common/back.gif
版块设置的，不要怪人。。

qiziyun7410 发表于 2010-8-4 04:25:21

没太明白！！是在TXT里读取了还是在AU3里填写

qiziyun7410 发表于 2010-8-4 04:28:51

学习了！谢谢！我也写个！！！！！！！！

songtao 发表于 2010-11-17 22:25:40

哈哈， 都是好穷的。

502762378 发表于 2010-11-19 14:29:04

首先定义这个读取的数值
用IniRead ( "文件名", "字段名", "关键字", "默认值" )
在那些个input直接用send("")

jianganew 发表于 2010-11-21 10:23:31

学习了，多谢！

小凯 发表于 2011-3-21 17:57:30

试下这个 StringSplit

Edison0556 发表于 2012-8-8 10:16:09

20 20 块 努力

coolybin 发表于 2012-8-14 14:12:00

晕。看不太懂啊，要多学习。哎。。。谁有一套系统的学习的啊

qiziyun7410 发表于 2012-12-28 07:03:27

啊哦！要没钱了！！！！！！！！！！

rongfeng12 发表于 2013-4-28 10:17:57

学习了，多谢！ 不过把INI文件换成EXCEL能操作吗

ba3ba4 发表于 2013-4-28 18:27:27

有用

下完要顶

mountain 发表于 2013-8-23 12:01:43

下回去，看看

PEM-System 发表于 2013-8-30 14:22:27

学习了 ........
页: 1 2 [3] 4
查看完整版本: AU3读取TXT文本并写入指定位置的问题