creativewwz 发表于 2011-4-11 18:52:07

一直没有处理这个贴子 首先向大家道歉,如何让日期自动减一 （已解决）

本帖最后由 creativewwz 于 2011-4-13 17:17 编辑

由于前一段时间没有上网，一直没有处理这个贴子 首首先向大家道歉
http://www.autoitx.com/thread-22090-1-1.html
特别是回答了我问题的四位前辈，说声对不起！
yhxhappy
3mile
lamlp
mo_shaojie

重新发贴，以下我加入了3mile 前辈的代码，大家看一下对吗？


#include <Date.au3>;这是后来粘来的代码
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\WINDOWS\system32\SHELL32.dll
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ACN_String.au3>
#include <IE.au3>
$oIE = _IECreate ("http://21.123.22.101/ODWEKWeb/",0,1,1,0)
WinSetState("中国银行电子报表分发系统 - Microsoft Internet Explorer", "", @SW_MAXIMIZE)
Sleep(600)
Send("ARCHIVE",0)
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("11242wd")
Sleep(100)
Send("{TAB}")
Sleep(100)
send("password")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{ENTER}")
Sleep(2000)
MouseClick("left", 273, 304, 1)
Sleep(600)
MouseClick("left", 400, 273, 2)
Sleep(600)
Send("11242")
Sleep(600)
MouseClickDrag("left", 572, 339, 632, 339)
Sleep(100)
;Send("^c");这里是原来复制的地方
$sNewDate = _DateAdd( 'd',-1, _NowCalcDate());这是后来粘来的代码
MsgBox( 4096, "", "减1天:" & $sNewDate );这是后来粘来的代码
Sleep(100)
MouseClickDrag("left", 394, 339, 455, 339)
Sleep(200)
Send("^v");粘贴的位置，复制的日期，能减少一天吗？因为今天需要打印昨天的报表
Sleep(300)
Send("{BS}")
Sleep(3000)

3mile 发表于 2011-4-11 21:10:52

#include <Date.au3>
#include <ClipBoard.au3>

$sNewDate = _DateAdd( 'd',-1, _ClipBoard_GetData())
MsgBox( 4096, "", "减1天:" & $sNewDate )

creativewwz 发表于 2011-4-11 21:32:43


3mile 发表于 2011-4-11 21:10 http://www.autoitx.com/images/common/back.gif


    谢谢！我把代码放到那个位置，在最前面吗？

creativewwz 发表于 2011-4-11 21:43:34

#include <Date.au3>
#include <ClipBoard.au3>
$sNewDate = _DateAdd( 'd',-1, _ClipBoard_GetData())
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\WINDOWS\system32\SHELL32.dll
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ACN_String.au3>
#include <IE.au3>
$oIE = _IECreate ("http://21.123.22.101/ODWEKWeb/",0,1,1,0)
WinSetState("中国银行电子报表分发系统 - Microsoft Internet Explorer", "", @SW_MAXIMIZE)
Sleep(600)
Send("ARCHIVE",0)
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("11242wd")
Sleep(100)
Send("{TAB}")
Sleep(100)
send("password")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{ENTER}")
Sleep(2000)
MouseClick("left", 273, 304, 1)
Sleep(600)
MouseClick("left", 400, 273, 2)
Sleep(600)
Send("11242")
Sleep(600)
MouseClickDrag("left", 572, 339, 632, 339)
Sleep(100)
send("^c");这里是原来复制的地方
Sleep(100)
MouseClickDrag("left", 394, 339, 455, 339)
Sleep(200)
Send("^v");粘贴的位置，复制的日期，能减少一天吗？因为今天需要打印昨天的报表
MsgBox( 4096, "", "减1天:" & $sNewDate );这是后来粘来的代码
Sleep(300)
；是不是这样？

3mile 发表于 2011-4-11 21:49:09

看这一句,$sNewDate = _DateAdd( 'd',-1, _ClipBoard_GetData())是将剪贴板的日期减1天,将这句加到你的复制的那一句后面

kadingxiaodi 发表于 2011-4-11 22:18:28

新手学习中，多多指教

creativewwz 发表于 2011-4-12 09:56:14

减少一天可以实现，粘贴时还是原来的日期？

creativewwz 发表于 2011-4-12 09:56:54

看看这个减少一天可以实现，粘贴时还是原来的日期？

creativewwz 发表于 2011-4-12 09:57:51

#include <Date.au3>
#include <ClipBoard.au3>
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\WINDOWS\system32\SHELL32.dll
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ACN_String.au3>
#include <IE.au3>
$oIE = _IECreate ("http://21.123.22.101/ODWEKWeb/",0,1,1,0)
WinSetState("中国银行电子报表分发系统 - Microsoft Internet Explorer", "", @SW_MAXIMIZE)
Sleep(600)
Send("ARCHIVE",0)
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("11242wd")
Sleep(100)
Send("{TAB}")
Sleep(100)
send("password")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{ENTER}")
Sleep(2000)
MouseClick("left", 273, 304, 1)
Sleep(600)
MouseClick("left", 400, 273, 2)
Sleep(600)
Send("11242")
Sleep(600)
MouseClickDrag("left", 572, 339, 632, 339)
Sleep(100)
send("^c");这里是原来复制的地方
;$sNewDate = _DateAdd( 'd',-1, _ClipBoard_GetData())
$sNewDate = _DateAdd( 'd',-1, _NowCalcDate());这是后来粘来的代码
MsgBox( 4096, "", "减1天:" & $sNewDate );这是后来粘来的代码
Sleep(100)
MouseClickDrag("left", 394, 339, 455, 339)
Sleep(200)
Send("^v");粘贴的位置，复制的日期，能减少一天吗？因为今天需要打印昨天的报表
Sleep(300)
Sleep(3000)

afan 发表于 2011-4-12 11:06:46

ClipPut() 没？

creativewwz 发表于 2011-4-12 22:35:13

ClipPut() 没？
afan 发表于 2011-4-12 11:06 http://www.autoitx.com/images/common/back.gif


    没有，，ClipPut() 没？
刚才在线翻译了一下，是“夹放”不懂什么意思？

afan 发表于 2011-4-12 22:54:17

ClipPut($sNewDate) ;放在你的代码-6行(你贴代码没用标签，没法说行数)

3mile 发表于 2011-4-12 23:31:07

#include <Date.au3>
#include <ClipBoard.au3>
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\WINDOWS\system32\SHELL32.dll
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ACN_String.au3>
#include <IE.au3>
$oIE = _IECreate ("http://21.123.22.101/ODWEKWeb/",0,1,1,0)
WinSetState("中国银行电子报表分发系统 - Microsoft Internet Explorer", "", @SW_MAXIMIZE)
Sleep(600)
Send("ARCHIVE",0)
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("11242wd")
Sleep(100)
Send("{TAB}")
Sleep(100)
send("password")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{ENTER}")
Sleep(2000)
MouseClick("left", 273, 304, 1)
Sleep(600)
MouseClick("left", 400, 273, 2)
Sleep(600)
Send("11242")
Sleep(600)
MouseClickDrag("left", 572, 339, 632, 339)
Sleep(100)
send("^c");这里是原来复制的地方
$sNewDate = _DateAdd( 'd',-1, _ClipBoard_GetData())
_ClipBoard_SetData($sNewDate)
;$sNewDate = _DateAdd( 'd',-1, _NowCalcDate());这是后来粘来的代码
Sleep(100)
MouseClickDrag("left", 394, 339, 455, 339)
Sleep(200)
Send("^v");粘贴的位置，复制的日期，能减少一天吗？因为今天需要打印昨天的报表
Sleep(300)
Sleep(3000)

creativewwz 发表于 2011-4-13 17:15:21

太谢谢啦，已成功，决了我一直困扰多日的问题。代码用标签怎么做的，我贴的为什么没有行数？？

afan 发表于 2011-4-13 17:24:38

发帖时点击代码图标（或A图标）即可，也可以手工加上“你的代码”或者“你的代码”，后者带语法高亮。
页: [1] 2
查看完整版本: 一直没有处理这个贴子 首先向大家道歉,如何让日期自动减一 （已解决）