03-30-2015, 05:39 AM
Only one line is output.
I want to list the results in order to grid.
I want the order output
How can I do?
Function IDX_Search2
Function Filetour_Search2
I want to list the results in order to grid.
I want the order output
How can I do?
Function IDX_Search2
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str dd =
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 348 308 "WebHard_Search"
;5 Edit 0x54030081 0x200 104 20 142 13 ""
;23 Button 0x54032000 0x0 252 16 32 20 "검색"
;26 ComboBox 0x54230243 0x0 60 20 40 213 ""
;27 ComboBox 0x54230243 0x0 12 20 44 213 ""
;3 QM_Grid 0x56031041 0x200 8 48 320 236 "0[]IDX[]TITLE[]PRICE[]GENRE[]ID"
;2 Button 0x54030000 0x4 248 288 44 18 "Exit"
;21 Button 0x54020007 0x0 8 8 284 34 "Search"
;END DIALOG
;DIALOG EDITOR: "" 0x2040108 "*" "" "" ""
str controls = "5 26 27 3"
str e5 cb26 cb27 qmg3
,cb26="ALL[]MVO[]DRA[]MED[]ANI[]GME[]UTL[]DOC[]EDU[]IMG[]ADT[]PTB[]ETC"
,cb27="FileTour"
if(!ShowDialog(dd &IDX_Search2 &controls)) ret
ret
;messages
__RegisterHotKey- enter_hk
sel message
,case WM_INITDIALOG
,enter_hk.Register(hDlg 22 MOD_CONTROL VK_RETURN) ;;ENTER key
,;enter_hk.Register(hDlg 22 MOD_ALT 'Q')
,__Font-- DIALOG_f
,DIALOG_f.Create("돋움" 10 1)
,DIALOG_f.SetDialogFont(hDlg "5")
,DIALOG_f.SetDialogFont(hDlg "23")
,DIALOG_f.SetDialogFontColor(hDlg 0xff0000 "27")
,LoadDialogControlValues_IDX_Search hDlg "Software\IDXSearch" "idxControls" "password"
,;web login
,Http FiletourHost.Connect("http://filetour.com")
,,FiletourHost.PostAdd("httpsurl" "/models/common/main/login/loginPrc_ssl.php")
,,FiletourHost.PostAdd("httpurl" "/models/common/main/login/loginPrc_ssl.php")
,,FiletourHost.PostAdd("sSiteNameLogin" "filetour.com")
,,FiletourHost.PostAdd("mb_id" "ID")
,,FiletourHost.PostAdd("mb_pw" "PASS")
,;loging check
,str r2
,if(!FiletourHost.PostFormData("/models/common/main/login/loginPrc_ssl.php" 0 r2)) end "failed"
,case WM_HOTKEY
,sel wParam
,,case 22 ;;"ENTER key"
,,,SaveDialogControlValues_IDX_Search hDlg "Software\IDXSearch" "idxControls" "5 25 26 27" "password"
,,,goto g1
;
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 23
,,;g1
,,SaveDialogControlValues_IDX_Search hDlg "Software\IDXSearch" "idxControls" "5 25 26 27" "password"
,,del- "$temp$\data.txt"; err
,,str SiteName
,,,SiteName.getwintext(id(27 hDlg))
,,out
,,if SiteName="FileTour"
,,,mac "Filetour_Search2" "" hDlg
,case IDOK
,,ret
,case IDCANCEL
,,del- "$temp$\data.txt"; err
,,,if(mes("이 프로그램을 종료 하시겠습니까?" "메시지" "YN?")!='Y') ret
ret 1
;\
function hDlg
MES m; int mess
,m.style="O"
,m.timeout=1
;option chk
str Category
,Category.getwintext(id(26 hDlg))
out Category
str nPage keyword urlFormat; int UrlCount
,keyword.getwintext(id(5 hDlg))
,keyword.ConvertEncoding(CP_UTF8 0)
for UrlCount 1 80+1
,nPage.from("" UrlCount)
,urlFormat.format("http://filetour.com/storage.php?banner_keyword=&searchKey=&searchValue=&search_keyword_hidden=&search_type=&search_keyword=&search=%s&spcpass=0&searchHanGul=§ion=%s&sub_sec=&nPage=%s&act=&s_act=&nLimit=100" keyword Category nPage)
,str FiletourHostContentsHTML
,IntGetFile urlFormat FiletourHostContentsHTML
,FiletourHostContentsHTML.ConvertEncoding(10003 _unicode)
,str FileTour_IDX=
,;<!--<td class="c_num">(.*)</td>-->
,str FileTour_TITLE=
,;<span style='color:;font-weight:;text-decoration:underline;'><font color="(.*)">(.*)</font></span>
,str FileTour_PRICE=
,;<span class="b_price">(.*)</span>
,str FileTour_USERID=
,;<!--<td class="c_category">(.*)</td>-->
,str FileTour_SECTION=
,;onclick="(.*)">(.*)</span></td>
,ARRAY(str) GetIDXnum GetTitleInfo GetPriceInfo GetUserID GetSectionInfo; str SearchOutput PopupOut; int FileTourCount
,if(!findrx(FiletourHostContentsHTML FileTour_IDX 0 4 GetIDXnum)) out "not found";0.3; mes("검색이 완료 되었습니다." "메시지" m) ;ret
,if(!findrx(FiletourHostContentsHTML FileTour_TITLE 0 4 GetTitleInfo)) out "not found";;;ret
,if(!findrx(FiletourHostContentsHTML FileTour_PRICE 0 4 GetPriceInfo)) out "not found";;ret
,if(!findrx(FiletourHostContentsHTML FileTour_USERID 0 4 GetUserID)) out "not found";;ret
,if(!findrx(FiletourHostContentsHTML FileTour_SECTION 0 4 GetSectionInfo)) out "not found";;ret
,for(FileTourCount 0 GetIDXnum.len)
,,SearchOutput.format("%s,%s,%s,%s,%s" GetIDXnum[1 FileTourCount] GetTitleInfo[2 FileTourCount] GetPriceInfo[1 FileTourCount] GetUserID[1 FileTourCount] GetSectionInfo[2 FileTourCount])
,,,str GetReseult= SearchOutput
,,,,GetReseult.replacerx("</strong>")
,,,,GetReseult.replacerx("<strong>")
,,,out GetReseult
,,LogFile GetReseult 0 "$temp$\data.txt"
,;run
,str filename="$temp$\data.txt"
,,filename.expandpath
,str SetEdit5.getfile(filename)
,,SetEdit5.setwintext(id(3 hDlg))
,,,err+
,,,,mes("검색결과가 없습니다." "메시지" m);ret