asked on

Formatting Future

Hi Expert,

I have one WB which download file from Web and format, I need little modification in formatting.
Current Code Perform this steps
Delete all files from this location "D:\AmiBroker Data\NSE\F&O"
1 Download Zip From Start date to End Date
2 Unzip that files.
3 Find text "NIFTY" in column B which is mostly 3 match found in column B
4 Register that three dates in column C which match to "NIFTY" and gave name instead of date as "I" "II" & "III"
5 Apply above to all in column C as per date i.e. "I" "II" "III".
6 Delete other rows which is not same as earlier match i.e. step 3 and step 4.
7 Apply formula in cell P2
=IF(OR(A2="FUTSTK",A2="FUTIDX"),B2&" "&C2&","&TEXT(O2,"DD-MMM-YY")&","&F2&","&G2&","&H2&","&I2&","&K2&","&M2,IF(OR(A2="OPTIDX",A2="OPTSTK"),B2&" "&C2&" "&D2&" "&E2&","&TEXT(O2,"DD-MMM-YY")&","&F2&","&G2&","&H2&","&I2&","&K2&","&M2,""))
& formula drop down till end.
8 copy whole column P and past to new .txt file and delete original .csv file
9 next file till end.

Modification which I looking to
Need .text file from .csv file.
After step 7
1 Sort A to Z Column E
2 Copy column P data only where in column E cell value = "xx" with header
3 past these data to new .txt file and name as "F" & actual .csv file name.
4 save to this location "D:\AmiBroker Data\NSE\F&O\Future"
5 Next .csv file.

Note as new buttons created named Future it delete all files from this location "D:\AmiBroker Data\NSE\F&O\Future"
and follow the steps.

Thanks
Incoporated-Download-File-V14.xlsm

Jacques Geday

ok one by one

You mention: 1 Download Zip From Start date to End Date

What is the http address and format of the file ? same as FO ?
gowflow

Naresh Patel

ASKER

Yes Sir, same as FO.

Thanks

Jacques Geday

OK just got an error in the formatting as in FO we were filtering by
"NIFTY" and "XX"

here no mention of XX at the csv level should we only do "NIFTY" ??? and after take XX only for future ???

gowflow

Jacques Geday

ok forget my last post I noticed that the workbook I posted had some wrong denomination like instead of
Future --- > it is showing Furture

so this is a major problem that I fixed in this version reason why I am attaching the whole workbook.

Pls try Future
and
Future & Options

as they are now using the same subs with different variables and chk if all is ok.

gowflow
Incoporated-Download-File-V16.xlsm

Naresh Patel

ASKER

Both buttons worked fine. Only thing is Future button wont past date of last available file plus one day.

Thanks

Jacques Geday

Ooops !!! small typo

in module aStartFO Sub DownloadedFileFO

go toward the end just when you see

...
Select Case sType

....

Replace
Case Future

BY
Case "Future"

this is it.
gowflow

Naresh Patel

ASKER

Thanks

ASKER CERTIFIED SOLUTION

Jacques Geday

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Naresh Patel

ASKER

Perfect - May I Ask Follow Up?

Jacques Geday

Yes sorry for delay ... time zone difference !
gowflow

Naresh Patel

ASKER

May I now?

Naresh Patel

ASKER

here it is.

I had posted because I know only you can understand what mi up to...and you are creator of this WB. Other may got confused so may not attend.

Thanks