오토핫키 웹 파싱 함수입니다. 제가 직접만들었고 웹 전체 파싱,정규식을 사용할수 있습니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
parsing_Fun(URL,left,right){
/*
개발자:Plorence
함수 설명:웹 파싱과 정규식사용이 가능한 함수입니다.
정규식 사용을 안할거면 두 번째 인자와 세 번째 인자로 0을 전달하면됩니다.
LINK:http://plorence.kr/
*/
winhttp := ComObjCreate("Winhttp.WinHttpRequest.5.1")
winhttp.Open("Get",URL)
winhttp.Send()
Html_sour := winhttp.ResponseText
msgbox,%left%
msgbox,%right%
if (left = 0 && right = 0){ ;left,right 둘다 0일시 
    msgbox,aaaa
return Html_sour
}
else{
RegExMatch(Html_sour,left "(.*?)" right,txt_str)
return txt_str1    
}
}
cs

함수 코드입니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
return
F1::
a := parsing_Fun("https://www.naver.com/","span class=\Cnaver_logo\C>","</span>") ;정규식 사용
msgbox,%a%
return
 
F2::
a := parsing_Fun("https://www.naver.com/",0,0) ;정규식 사용안함
msgbox,%a%
return
 
parsing_Fun(URL,left,right){
/*
개발자:Plorence
함수 설명:웹 파싱과 정규식사용이 가능한 함수입니다.
정규식 사용을 안할거면 두 번째 인자와 세 번째 인자로 0을 전달하면됩니다.
LINK:http://plorence.kr/
*/
winhttp := ComObjCreate("Winhttp.WinHttpRequest.5.1")
winhttp.Open("Get",URL)
winhttp.Send()
Html_sour := winhttp.ResponseText
msgbox,%left%
msgbox,%right%
if (left = 0 && right = 0){ ;left,right 둘다 0일시 
    msgbox,aaaa
return Html_sour
}
else{
RegExMatch(Html_sour,left "(.*?)" right,txt_str)
return txt_str1    
}
}
 
F12::
ExitApp
cs

예제 코드입니다

복사가 안될테니 사용하실려면 아래의 파일을 다운받아 이용하세요.

웹파싱+정규식.zip


댓글을 달아 주세요