02-01-2016, 04:24 AM
1. I would like to save the data searched for A, B and C automatically
2. However, result values for the final result values “(C )” are saved only.
3. I would like to save result values for each A, B and C separately as "Logfile function", so please let me know in detail how to do.
How should I do?
Function Search_Query
2. However, result values for the final result values “(C )” are saved only.
3. I would like to save result values for each A, B and C separately as "Logfile function", so please let me know in detail how to do.
How should I do?
Function Search_Query
,Excel.Application xlApp._create
,Excel.Worksheet xlSheet=xlApp.Workbooks.Add(Excel.xlWBATWorksheet).ActiveSheet ;;add workbook and get worksheet
,Excel.Range allcells=xlSheet.Cells
,ARRAY(str) GetIDXnum GetTitleInfo GetSizeInfo GetPriceInfo GetSectionInfo; str SearchOutput PopupOut TitleOut; int WEB_Count
,if(!findrx(urlFormat WEB_IDX 0 4 GetIDXnum)) out "NOT_FOUND_IDX";0.3; mes("검색이 완료 되었습니다." "메시지" m) ;ret
,if(!findrx(urlFormat WEB_TITLE 0 4 GetTitleInfo)) out "NOT_FOUND_TITLE";ret
,if(!findrx(urlFormat WEB_PRICE 0 4 GetPriceInfo)) out "NOT_FOUND_PRICE";ret
,if(!findrx(urlFormat WEB_SIZE 0 4 GetSizeInfo)) out "NOT_FOUND_SIZE";ret
,if(!findrx(urlFormat WEB_SECTION 0 4 GetSectionInfo)) out "NOT_FOUND_SECTION";ret
,for(WEB_Count 0 GetIDXnum.len)
,,SearchOutput.format(" %s %s %s %s %s %s" GetIDXnum[1 WEB_Count] GetTitleInfo[1 WEB_Count] GetPriceInfo[1 WEB_Count] GetSizeInfo[1 WEB_Count] GetSectionInfo[1 WEB_Count] GetIDXnum[1 WEB_Count])
,,,str GetReseult= SearchOutput
,,,out GetReseult
,,;Excel.Range cell1=+allcells.Item(row+1 1)
,,Excel.Range cell2=+allcells.Item(WEB_Count+1 2)
,,Excel.Range cell3=+allcells.Item(WEB_Count+1 3)
,,Excel.Range cell4=+allcells.Item(WEB_Count+1 4)
,,Excel.Range cell5=+allcells.Item(WEB_Count+1 5)
,,Excel.Range cell6=+allcells.Item(WEB_Count+1 6)
,,Excel.Range cell7=+allcells.Item(WEB_Count+1 7)
;
,,cell2.Value=GetIDXnum[1 WEB_Count]
,,cell3.Value=GetTitleInfo[1 WEB_Count]
,,cell4.Value=GetPriceInfo[1 WEB_Count]
,,cell5.Value=GetSizeInfo[1 WEB_Count]
,,cell6.Value=GetSectionInfo[1 WEB_Count]
,,cell7.Value=GetIDXnum[1 WEB_Count]
,,LogFile GetReseult 0 "$temp$\data.csv"
,xlApp.DisplayAlerts=0
,xlSheet.SaveAs(_s.expandpath("$desktop$\test.xls"))
,xlApp.Quit
,;run
,str filename="$temp$\data.csv"
,,filename.expandpath
;
,str SetEdit5.getfile(filename)
,,SetEdit5.setwintext(id(22 hDlg))
,,g.FromCsv(SetEdit5 " ")