Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Grid sequentially output problem
#1
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
Code:
Copy      Help
\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 Filetour_Search2
Code:
Copy      Help
;\
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=&section=%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
#2
Just try this:
1/ After the searching, wait until the list is populated completely.
2/ Click on the column header to sort by that column.
Function IDX_Search
Code:
Copy      Help
\Dialog_Editor

function# hDlg message wParam lParam
DlgGrid g.Init(hDlg 3)
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 54 20 "Retrieve"
;26 ComboBox 0x54230243 0x0 60 20 40 212 ""
;27 ComboBox 0x54230243 0x0 12 20 44 212 ""
;3 QM_Grid 0x56031041 0x200 4 48 340 236 "0[]IDX[]TITLE[]PRICE[]GENRE[]ID"
;2 Button 0x54030000 0x4 248 288 44 18 "Exit"
;21 Button 0x54020007 0x0 8 8 304 34 "Search"
;END DIALOG
;DIALOG EDITOR: "" 0x2040202 "*" "" "" ""

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_Search &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 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 hDlg "Software\IDXSearch" "idxControls" "5 25 26 27" "password"
,,,goto g1

,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_NOTIFY goto messages3
ret
;messages2
sel wParam
,case 23
,,;g1
,,SaveDialogControlValues 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_Search" "" hDlg

,case IDOK
,,ret
,case IDCANCEL
,,del- "$temp$\data.txt"; err
,,,if(mes("이 프로그램을 종료 하시겠습니까?" "메시지" "YN?")!='Y') ret

ret 1
;messages3
NMHDR* nh=+lParam
sel nh.idFrom
,case 3
,NMLISTVIEW* nlv=+nh
,sel nh.code
,,case LVN_COLUMNCLICK ;;click header
,,,g.Sort(4|0x10000 nlv.iSubItem)
,
Function Filetour_Search
Code:
Copy      Help
;\
function hDlg
DlgGrid g.Init(hDlg 3)
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=&section=%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=_s.expandpath("$temp$\data.txt")
,str SetEdit5.getfile(filename)
,g.FromCsv(SetEdit5 ",")
,err+
,,mes("검색결과가 없습니다." "메시지" m);ret
#3
Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin
to lionking Thanks very much
can run ^^ Big Grin


Forum Jump:


Users browsing this thread: 1 Guest(s)