[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[amibroker] PnF charts how to created them??


  • To: <amibroker@xxxxxxxxxxxxxxx>
  • Subject: RE: [amibroker] Re: Script to automate exporting of EOD quotes and importing into Another DB - Need Help with the oAB.Import.
  • From: "dingo" <dingo@xxxxxxxxxxxx>
  • Date: Tue, 13 Apr 2004 12:55:41 -0700

PureBytes Links

Trading Reference Links




<FONT face=Arial 
color=#0000ff size=2>it already has a csv appended to it since I'm getting 
the file name from the files object of the folder.
<FONT face=Arial 
color=#0000ff size=2> 
<FONT face=Arial 
color=#0000ff size=2>I agree on the single file but I didn't write the original 
AFL formula. I was going to sugges that to herman. This code will work on a 
single file or multiple files - just requires a change in the format 
file.
<FONT face=Arial 
color=#0000ff size=2> 
<FONT face=Arial 
color=#0000ff size=2>Here's the latest version if you'd care to take a 
look.  Thanks for the help.
 
<FONT face=Arial color=#0000ff 
size=2>d
 
<FONT 
color=#0000ff>-<SPAN 
class=304335119-13042004>------------------------------------------------------------------------------------------------------------
<SPAN 
class=304335119-13042004>'**************************************'Purpose: 
Run A Procedure in 
Amibroker'         that will export 
quotes from'         one database 
into CSV files '         and then 
import them into '         another 
database.''Created By: 
dingo'**************************************
 
<SPAN 
class=304335119-13042004>Dim oABDim oAADim fsoDim fldrDim 
flsDim fleDim flenamDim result
 
<SPAN 
class=304335119-13042004>dim RT_DB_Pathdim EOD_DB_Pathdim 
Frmla_Pathdim CSV_Dirdim CSV_FleNamdim 
FmtFleNam
 
<SPAN 
class=304335119-13042004>'-------------------------------------------------------' 
change the following paths to suit your 
configuration'-------------------------------------------------------RT_DB_Path 
= "C:\Program Files\Amibroker\Data"EOD_DB_Path = "C:\Program 
Files\Amibroker\TC2000"Frmla_Path = "C:\Program Files\Amibroker\AFL\EOD 
Export.Afl"CSV_Dir = "C:\Program Files\Amibroker\Output"FmtFleNam = 
"C:\Program 
Files\Amibroker\Formats\EOD_To_RT.Format"
 
<SPAN 
class=304335119-13042004>' declare object for Amibroker and the file system 
objectset oAB = CreateObject("Broker.Application")Set oAA = 
oAB.Analysisset fso = 
CreateObject("Scripting.FileSystemObject")
 
<SPAN 
class=304335119-13042004>'------------------------------------------' Delete 
all csv files in the CSV folder' so that we don't import any old ones' 
that may still be 
there'------------------------------------------wscript.echo "Cleaning 
Out " + CSV_Dir' set the folder objectSet fldr = 
fso.GetFolder(CSV_Dir)' set the files objectSet fls  = 
fldr.FilesFor Each fle in fls    flenam = 
fle.name    ' make sure its a csv file    
if right(ucase(flenam), 4) = ".CSV" 
then        ' Import the CSV File using 
the correct format        
fle.Delete    end ifNext' destroy the folder and file 
objectsset fle = nothingset fls = 
nothing
 
<SPAN 
class=304335119-13042004>'------------------------------------------' Set 
from and to dates, and the 
watchlist'------------------------------------------with 
oAA    .RangeMode = 3    .RangeFromDate = 
"01/01/2001"    .RangeToDate = 
"12/31/2002"    .ClearFilters    .ApplyTo 
= 2    .Filter(0, "watchlist") = 29end 
with
 
<SPAN 
class=304335119-13042004>'------------------------------------------' The 
following is the "main" code for the' exporting and importing of the 
data'------------------------------------------' Load EOD Data 
Basewscript.echo "Loading EOD Database: " + EOD_DB_PathIf 
oAB.LoadDatabase(EOD_DB_Path) Then    ' Load the AFL for 
Building the CSV File    wscript.echo "Loading AFL: " + 
Frmla_Path    if oAA.LoadFormula(Frmla_Path) 
Then        ' Run The 
Scan        wscript.echo "Running 
Scan"        result = oAA.Scan 
        ' now load the RT 
Database        wscript.echo "Loading RT 
Database: " + RT_DB_Path        If 
oAB.LoadDatabase(RT_DB_Path) 
Then            ' 
import each csv file in the EODexports folder 
            ' set the 
files 
object            Set 
fls  = 
fldr.Files            
For Each fle in 
fls                
flenam = 
fle.name                
' make sure its a csv 
file                
if right(ucase(flenam), 4) = ".CSV" 
then                    
' Import the CSV File using the correct 
format                    
CSV_FleNam = CSV_Dir + "\" + 
flenam                    
wscript.echo "Importing " + 
CSV_FleNam                    
result = oAB.Import(0, CSV_FleNam, FmtFleNam) 
                    
if result <> 0 
Then                        
msgbox "Error Running 
Import"                        
Exit 
For                    
end 
if                
end if            
Next    
            
oAB.RefreshAll()            
wscript.echo "Saving RT 
Database"            
oAB.SaveDataBase            
MsgBox "Finished"        
Else            
msgbox "Can't Load RT Database"        
End IF    else        
msgbox "Can't Load EOD Export.Afl"    End 
If    Else    MsgBox "Cant Load EOD 
Database"End If
 
<SPAN 
class=304335119-13042004>' destroy all objectsset fle = nothingset fls = 
nothingset fldr = nothingset fso = 
nothing
 
<SPAN 
class=304335119-13042004>Set oAA = Nothingset oAB = 
nothing
 
<SPAN 
class=304335119-13042004><FONT 
color=#0000ff> 

  
  
  From: chelnore [mailto:chelnore@xxxxxxxx] 
  Sent: Tuesday, April 13, 2004 3:32 PMTo: 
  amibroker@xxxxxxxxxxxxxxxSubject: [amibroker] Re: Script to 
  automate exporting of EOD quotes and importing into Another DB - Need Help 
  with the oAB.Import.
  tryFmtFleNam = "C:\Program 
  Files\Amibroker\formats\EOD_To_RT.Format"oAB.Import(0, CSV_FleNam 
  +".csv", FmtFleNam);also a single file would be faster, 20-30% 
  according to tj.curt


Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx 
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html








Yahoo! Groups Links
To visit your group on the web, go to:http://groups.yahoo.com/group/amibroker/ 
To unsubscribe from this group, send an email to:amibroker-unsubscribe@xxxxxxxxxxxxxxx 
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.