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

[amibroker] Re: T3 Question


  • 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: Wed, 14 Apr 2004 18:11:35 -0700

PureBytes Links

Trading Reference Links




<SPAN 
class=015180801-15042004>After getting straightened out by TJ the script now 
works.
<SPAN 
class=015180801-15042004> 
<SPAN 
class=015180801-15042004>'**************************************'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=015180801-15042004>Dim oABDim oAADim fsoDim fldrDim 
flsDim fleDim flenamDim result
 
<SPAN 
class=015180801-15042004>dim RT_DB_Pathdim EOD_DB_Pathdim 
Frmla_Pathdim CSV_Dirdim CSV_FleNamdim FmtFleNam
 
<SPAN 
class=015180801-15042004>'-------------------------------------------------------' 
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 = 
"EOD_To_RT.Format"
 
<SPAN 
class=015180801-15042004>' declare object for Amibroker and the file system 
objectset oAB = CreateObject("Broker.Application")Set oAA = 
oAB.Analysisset fso = 
CreateObject("Scripting.FileSystemObject")
 
<SPAN 
class=015180801-15042004>'------------------------------------------' 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 '------------------------------------------' 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 '------------------------------------------' The following 
is the "main" code for the' exporting and importing of the 
data'------------------------------------------' Load EOD Data 
Base'wscript.echo "Loading EOD Database: " + EOD_DB_PathIf 
oAB.LoadDatabase(cstr(EOD_DB_Path)) Then    ' Load the AFL 
for Building the CSV File    'wscript.echo "Loading AFL: " + 
Frmla_Path    if oAA.LoadFormula(cstr(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(cstr(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, cstr(CSV_FleNam), cstr(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=015180801-15042004>' destroy all objectsset fle = nothingset fls = 
nothingset fldr = nothingset fso = nothing
 
<FONT face="Courier New" 
size=1>Set oAA = Nothingset oAB = 
nothing<SPAN 
class=015180801-15042004>
<FONT face="Courier New" 
size=1><FONT face=Arial 
size=2>------------------------------------------------
<FONT face="Courier New" 
size=1> here is the 
format file 
<FONT face="Courier New" 
size=1><FONT face=Arial 
size=2> 
<FONT face="Courier New" 
size=1>$FORMAT Date_YMD, 
Open, High, Low, Close, Volume, Skip$SKIPLINES 0$SEPARATOR ,$CONT 
1$GROUP 255$AUTOADD 1$DEBUG 1$BREAKONERR 1
<FONT 
size=2>Thanks TJ!
 
d<SPAN 
class=015180801-15042004>


  
  
  From: Herman van den Bergen 
  [mailto:psytek@xxxxxxxx] Sent: Tuesday, April 13, 2004 5:11 
  PMTo: amibroker@xxxxxxxxxxxxxxxSubject: RE: [amibroker] 
  Re: Script to automate exporting of EOD quotes and importing into Another DB - 
  Need Help with the oAB.Import.
  
  OK, 
  thanks d, i understand. Probably not worth the effort because it doesn't take 
  very long to do the N100 and needs to be done only once a 
  day.
  <FONT face=Arial color=#0000ff 
  size=2> 
  <FONT face=Arial color=#0000ff 
  size=2>h
  <FONT face=Arial color=#0000ff 
size=2> 


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.