1 (изменено: catswil2017, 2017-10-29 12:22:36)

Тема: Логика сравнения в AutoIt

В файле-примере Excel стоит задача проверить наличие строки совпадающей с условием:

пол=муж
наличие детей=1
дата рождения>01.10.1933
дата смерти<01.01.2015

Так же стоит вопрос как давать постоянно разные имя файлам экспорта желательно типа file1,file2,file3 и т.д

Вот набросок кода в котором я хочу это реализовать


#include <StringConstants.au3>
HotKeySet("{SPACE}",close)
HotKeySet("{F12}",close); 

Sleep(4000) ; //time out

Local $rept = ;nujno zadat zhanchenie pri starte programy "kol-vo povtorenii"
While $rept = 200
 Sleep(1500)
 
MouseClick("left",679, 392,2);//focus main window excel #1window
Sleep(200)
Send("{DOWN}") ; next yacheika excel
Sleep(4000)
ClipPut("0") ;clear buf
Sleep(50)
Send("{CTRLDOWN}c{CTRLUP}") ;ctrl+c
Send("{CTRLDOWN}c{CTRLUP}") ;?if need double ctrl+c
$string=ClipGet() ;get buffer
$arnum=$string ; ima
Sleep(3000)

;// find
;//vstavka ima 
MouseClick("left",649, 619,3)   ;// filter
MouseClick("left",649, 619,3)   ;// ima pole
MouseClick("right",649, 619,3)  ;// ima pole
Send("{CTRLDOWN}v{CTRLUP}")     ;// ctrl+v
MouseClick("left",649, 619,3)  ;// search

;//export?  and save it
MouseClick("right",649, 619,3) ;// export icon
;Global $exportName=$n+1 
;Send("$exportName")        ;// exporn file name
MouseClick("right",649, 619,3) ;// export button

;`ne ponyal kak vospolzovatsa ;;;$asResult = StringRegExp($string, '\d{1,4}',1) ;   \d{1,4} - 
;If UBound($asResult) <>0 Then ;if find go massive

;For $i=0 To  UBound($ign)-1 step +1 ;find massive
;If $asResult[0]=$ign[$i] Then   $resultstring = 1 ;sravnenie privsaivanie peremennoi
;Next

;For $i=0 To  UBound($dem)-1 step +1             
;If $asResult[0]=$dem[$i] Then  $resultstring = 2
;Next
;EndIf

If $resultstring=0 Then ; if not find
MouseClick("left",272,954) ;coloose
Sleep(300)

Else
MouseClick("left",649, 619,3)   ;// videlenie 4 copy 
MouseClick("right",649, 619,3) ;// copy v buffer stolb
MouseClick("left",649, 619,3) ;// copy v buffer
$target=ClipGet()

MouseClick("left",677,501) ;4 exporn excel
Sleep(100)

;\\ export

If StringLen($target) >4 Then ; free buffer
;// nado TYT export u

;//  BbiIIoJIHEHuE ycJIoBu9i
;//  pol=muj  ; detei=1  ;  dateB>01.10.1933   ; dateD<01.01.2015


   
Else ;if buffer empty `pustoi
ToolTip("NOT FIND")
Sleep(1000)
EndIf
EndIf
$resultstring=0 ;search off

WEnd

Func close()
   Exit   ; exit script
   EndFunc
Post's attachments

Книжка.xlsx 9.59 kb, file has never been downloaded. 

You don't have the permssions to download the attachments of this post.