오토잇 테이블생성 자동화

;~ ==================================
;~ 1.ERWIN 파일 실행 되어 있어야 함
;~ 2.TOAD 를사용함
;~ 3.erwin script를 호출해야함(위치: 바탕화면)
;~ ==================================

;WinTitleMatchMode = Alters the method that is used to match window titles during search operations.
opt("WinTitleMatchMode",2);1=start,2=subStr,3,exact,4=advanced,=1 to =4 = Nocase
opt("GUIOnEventMode",1);

#include <Array.au3>

Global Const $VK_CAPITAL = 0x14

hotkeyset("{ESC}","_exit")

If _Key_Is_On($VK_CAPITAL) Then
	MsgBox( 0, "", "캡스락 키가 켜져 있읍니다. 꺼주세요.",5)
	;CAPS LOCK 끄기
	Send("{CapsLock off}")
	Exit
EndIf

global $cb;

;~ 0. ini 설정

;~ ===============================================================================================
;~ 1.ERWIN에 Pre & Post 스크립트를 세팅 합니다.
;~ ===============================================================================================

Erwin_Script_Setup()

;~ ===============================================================================================
;~ 2.엑셀에서 작업 대상 로딩
;~ ===============================================================================================

$str = Get_Excel_Data("통합")	; 인자는 윈도우 타이틀

$Array_Target = FileReadToArray(@ScriptDir&"\temp_file.lst")

;~ 3.자동화 반복 처리
$proc_count = Do_Loop_Work($Array_Target)

MsgBox(0,"",$proc_count-1 &"건 자동화 처리 완료 ",3)

;~ 2. 자동화 반복 작업 ===========================================================================
;클립보드에 값이 없을때까지 반복
;~ $i = 2
Func Do_Loop_Work($Array_Target)


	For $i = 1 To $Array_Target[1] Step +1

;~ 		if StringLen(StringStripWS($Array_Target[$i+1],4)) <= 3 Then
;~ 			MsgBox(0,"",$i+1 &"건 종료 = "&$Array_Target[$i+1])
;~ 			$i = $i+1
;~ 			_exit()
;~ 		EndIf

;~ 		MsgBox(0,$i,$Array_Target[$i])

		WinActivate("AllFusion","")
		Send("{CTRLDOWN}{DOWN}{CTRLUP}")
		Send("{CTRLDOWN}g{CTRLUP}")

		;테이블 찾기
		WinWaitActive ( "Go To Table","",3)
;~ 		Send("{CTRLDOWN}v{CTRLUP}{HOME}{END}")
 		Send($Array_Target[$i+1],1)
		Send("{ALTDOWN}o{ALTUP}")

		;ERWIN POSTSCRIPT 처리
		Send("{ALTDOWN}b{ALTUP}")
		Sleep(100)
		Send("{p}")
		Sleep(100)
		Send("{t}")

		WinWaitActive("Oracle Script Template")

		Sleep(100)
		Send("{TAB}")
		Sleep(100)
		Send("{TAB}")
		Sleep(100)
		Send("{TAB}")
		Sleep(100)
		Send("{TAB}")
		Sleep(100)
		Send("{LEFT 5}")
		Sleep(100)
		Send("{RIGHT 1}")

		Sleep(100)
		Send("{TAB}")
		Sleep(100)
		Send("{TAB}")
		Sleep(100)
	 	Send("{CTRLDOWN}a{CTRLUP}")
		Send("{CTRLDOWN}c{CTRLUP}")
		Sleep(200)
		Send("{ALTDOWN}{F4}{ALTUP}")

		WinActivate("Toad","")
		MouseClick("left",534,592,0)
		if($i = 1 ) Then
			WinWait("[CLASS:TfrmMain]")
			ControlFocus ( "[CLASS:TfrmMain]", "", "TtdDScintilla1" )
			Send("{CTRLDOWN}a{CTRLUP}")
			Send("{DEL}")
		EndIf

		Send("{ENTER}")
		Send("{CTRLDOWN}{END}{CTRLUP}")
		Send("{ENTER}")

		Send("{CTRLDOWN}v{CTRLUP}")



	Next
	return $i

EndFunc

Func _exit()
    exit
endfunc


;~ Global Const $VK_CAPITAL = 0x14
;~     If _Key_Is_On($VK_CAPITAL) Then Send("{CAPSLOCK Toggle}")
;~ 	If _Key_Is_On($VK_CAPITAL) Then
;~     MsgBox( 0, "", "")
;~ 	EndIf

;캡스락키 확인
Func _Key_Is_On($nVK_KEY, $vDLL = 'User32.dll')
    Local $a_Ret = DllCall($vDLL, "short", "GetKeyState", "int", $nVK_KEY)
    Return Not @error And BitAND($a_Ret[0], 0xFF) = 1
EndFunc

Func FileReadBuffer($file_name)
	Local $output_txt = ''

	Local $file = FileOpen($file_name, 0)

	; Check if file opened for reading OK
	If $file = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Exit
	EndIf

	; Read in lines of text until the EOF is reached
	While 1
		Local $line = FileReadLine($file)
		$line = $line & @CRLF
		$output_txt = $output_txt &	$line;
		If @error = -1 Then ExitLoop
;~ 		MsgBox(0, "Line read:", $line)
	WEnd

	FileClose($file)
;~ 	클립보드에 복사한다.
	ClipPut($output_txt)
EndFunc

Func FileReadToArray($file_name)
	Local $arry_return[1]=[""]

	Local $file = FileOpen($file_name, 0)

	; Check if file opened for reading OK
	If $file = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Exit
	EndIf

	; Read in lines of text until the EOF is reached
	$i = 0;
	While 1
		Local $line = FileReadLine($file)

		If @error = -1 OR $line ="" Then ExitLoop
;~ 		MsgBox(0, "Line read:", $line)
;~ 		_ArrayInsert($arry_return,$i, $line)
 		_ArrayAdd($arry_return,$line)
		$i = $i+1
;~ 		_ArrayAdd($arry_return,$line)

	WEnd
	_ArrayInsert($arry_return,1, $i)
	FileClose($file)
	Return $arry_return
EndFunc


Func Erwin_Script_Setup()

;ERWIN 스크립트 불러오기

;~ 	$erwin_script = FileReadBuffer(@ScriptDir&"\erwin_post_script_for_web.sql");
	$erwin_script = FileReadBuffer(@ScriptDir&"\erwin_post_script.sql");
	MsgBox(0,"ERWIN - POST 스크립트 적용 ", 'ERWIN에 POST SCRIPT 적용을  시작 합니다. ',2)

	WinActivate("AllFusion","")

    Send("{CTRLDOWN}{DOWN}{CTRLUP}")
	Send("{ALTDOWN}b{ALTUP}")
	Sleep(100)
 	Send("{p}")
	Sleep(100)
	Send("{t}")

	WinWaitActive("Oracle Script Template")

	Sleep(100)
	Send("{TAB}")
	Sleep(100)
	Send("{TAB}")
	Sleep(100)
	Send("{TAB}")
	Sleep(100)
	Send("{TAB}")
	Sleep(100)
	Send("{LEFT 5}")
	Sleep(100)
	Send("{TAB}")
	Sleep(100)

	Send("{CTRLDOWN}a{CTRLUP}")
	Send("{CTRLDOWN}v{CTRLUP}")
	Sleep(100)
	Send("{TAB}")
	Sleep(100)
	Send("{TAB}")
	Send("{ENTER}")
;~ 	ClipPut(''); 클립보드 비우기
EndFunc



;엑셀에서 처리대상 테이블을 가져온다.
Func Get_Excel_Data($title)
	Local $arry_return[1] = [""]
	Local $file = FileOpen(@ScriptDir&"\temp_file.lst", 2)
	WinActivate($title,"")
	If WinWaitActive($title,"",3) Then
		;~ 클립보드 초기화
		ClipPut('')
		Send("{CTRLDOWN}g{CTRLUP}")
		WinWaitActive("이동","",1)
		Send("a1{ENTER}")
		Sleep(100)
		Send("{CTRLDOWN}{SHIFTDOWN}{DOWN}{SHIFTUP}{CTRLUP}")
		Sleep(200)
		Send("{CTRLDOWN}c{CTRLUP}")
		Sleep(200)
		$cb = ClipGet()
		Sleep(100)

		; Check if file opened for writing OK
		If $file = -1 Then
			MsgBox(0, "Error", "Unable to open file.")
			Exit
		EndIf


;~ 		FileWrite($file, StringStripWS($cb,8))
		FileWrite($file, StringReplace($cb," ",""))

		FileClose($file)

		If StringLen($cb) <= 2 Then
			MsgBox(0,"","대상 복사 실패",3)
			exit
		endif
	Else
        MsgBox(0,"Error",$title & "-엑셀 인식 실패 ",3)
        exit
	EndIf
	Return True
EndFunc
오토잇 테이블생성 자동화

DB CAFE
