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

Re: [amibroker] double (64-bit) precision



PureBytes Links

Trading Reference Links




Hi dingo,
 
Thanks for the Code. A small query, in the code you 
have reffered to EOD Export.afl. What I want to know is should I save this file 
also as EOD Export.afl alongwith Export.vbs or is there any other 
file.
 
Thanks
 
Prashanth
<BLOCKQUOTE dir=ltr 
>
  ----- Original Message ----- 
  <DIV 
  >From: 
  dingo 
  To: <A title=amibroker@xxxxxxxxxxxxxxx 
  href="">amibroker@xxxxxxxxxxxxxxx 
  Sent: Saturday, April 17, 2004 9:05 
  PM
  Subject: RE: [amibroker] Multiple file 
  Import
  
  <FONT face=Arial 
  color=#0000ff size=2>Just wanted to post the latest version - I've added a lot 
  of comments that should help. 
  <FONT face=Arial 
  color=#0000ff size=2> 
  <FONT 
  color=#0000ff><FONT face="Courier New" 
  size=1>'**************************************'Purpose: Run A Procedure in 
  Amibroker'         that will 
  export quotes from'         one 
  database into CSV files '         
  and then import them into 
  '         another 
  database.''Operation: Name this file whatever 
  you'         wish but give it an 
  extension'         of vbs. Place 
  it in your'         Amibroker 
  folder and run it'         by 
  double clicking on the 
  file'         name.'  
  '         Make sure that you 
  change those'         lines under 
  the !!!!!!! lines'         to 
  match your system.''         
  Make sure that you have the 
  '         correct format file in 
  the '         format 
  folder.''The Code: Is written in VB Script and 
  '         runs within "Windows 
  Scripting'         Host (WSH)". I 
  have included'         many 
  commented out msgbox 
  lines'         that you can 
  uncomment if you're'         
  having problems. That way 
  you'         have a way to monitor 
  the progress'         of the 
  script as it executes.''vbScript Help: The following links 
  will'         provide information 
  on VBScript:'         (Be careful 
  of folded lines)'' <A 
  href=""><FONT 
  face="Courier New" 
  size=1>http://msdn.microsoft.com/library/default.asp?url="";><FONT 
  face="Courier New" size=1>'' <A 
  href=""><FONT 
  face="Courier New" 
  size=1>http://msdn.microsoft.com/library/default.asp?url="";><FONT 
  face="Courier New" size=1>'' <A 
  href=""><FONT 
  face="Courier New" 
  size=1>http://www.microsoft.com/technet/community/scriptcenter/default.mspx<FONT 
  face="Courier New" size=1>'' <A 
  href=""><FONT 
  face="Courier New" 
  size=1>http://groups.msn.com/windowsscript/_homepage.msnw?pgmarket=en-us<FONT 
  face="Courier New" size=1>''Created By: 
  dingo'**************************************
   
  <FONT 
  face="Courier New" color=#0000ff size=1>Dim oABDim oAADim fsoDim 
  fldrDim flsDim fleDim flenamDim result
   
  <FONT 
  face="Courier New" color=#0000ff size=1>dim RT_DB_Pathdim 
  EOD_DB_Pathdim Frmla_Pathdim CSV_Dirdim CSV_FleNamdim 
  FmtFleNam
   
  <FONT 
  face="Courier New" color=#0000ff 
  size=1>'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' 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"
   
  <FONT 
  face="Courier New" color=#0000ff size=1>' declare object for Amibroker and the 
  file system objectset oAB = CreateObject("Broker.Application")Set oAA 
  = oAB.Analysisset fso = 
  CreateObject("Scripting.FileSystemObject")
   
  <FONT 
  face="Courier New" color=#0000ff 
  size=1>'------------------------------------------' 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 object'------------------------------------------Set 
  fldr = 
  fso.GetFolder(CSV_Dir)'------------------------------------------' set 
  the files object'------------------------------------------Set 
  fls  = fldr.FilesFor Each fle in fls    flenam = 
  fle.name    
  '------------------------------------------    ' make sure 
  its a csv file    
  '------------------------------------------    if 
  right(ucase(flenam), 4) = ".CSV" 
  then        
  '------------------------------------------        
  ' Delete this old file        
  '------------------------------------------        
  fle.Delete    end 
  ifNext'------------------------------------------' destroy the 
  folder and file objects'------------------------------------------set 
  fle = nothingset fls = 
  nothing '------------------------------------------' Set from 
  and to dates, and the 
  watchlist'------------------------------------------with 
  oAA    
  '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!    
  ' change the following settings to suit your 
  configuration    
  '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!    
  .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
   
  <FONT 
  face="Courier New" color=#0000ff 
  size=1>'------------------------------------------' destroy all 
  objects'------------------------------------------set fle = 
  nothingset fls = nothingset fldr = nothingset fso = 
  nothing
   
  <FONT 
  face="Courier New" color=#0000ff size=1>Set oAA = Nothingset oAB = 
  nothing<FONT 
  face=Arial color=#0000ff size=2>d
  
    
    
    From: Prashanth 
    [mailto:prash454@xxxxxxxxxxxxxxxxx] Sent: Saturday, April 17, 
    2004 4:54 AMTo: amibroker@xxxxxxxxxxxxxxxSubject: Re: 
    [amibroker] Multiple file Import
    
    Hi Graham,
     
    The reason for 2 Files is like this. I am just 
    checking out how the Forex markets Trade and whether my TA methods work 
    there. While there are paid services available, since I do not intend 
    (atleast for now) to trade, I am trying to use whatever freeforex data is 
    available. Someone on this group (I dont remember the name, Sorry) was kind 
    enough to give some links where one could find free forex data. Data is 
    available upto the time I download, but I cannot do an update, I would have 
    to download all the data again or use cut and paste for the latest data. 
    This is very cumbersome even for 1 pair let alone more. Thomas here showed 
    me a way in which I could import data from Meta Trader. The data MetaTrader 
    gives is for 1 month only and the old file is always overwritten with the 
    new data. Hence my wanting to combine both of them. 
     
    Regarding the Import file posted by dingo, I 
    have not tried out. Will try it out. Anyway Thanks for your 
    suggestions.
     
    Regards
    Prashanth K.
    <BLOCKQUOTE dir=ltr 
    >
      ----- Original Message ----- 
      <DIV 
      >From: 
      <A title=gkavanagh@xxxxxxxxxxxxx 
      href="">Graham 
      To: <A 
      title=amibroker@xxxxxxxxxxxxxxx 
      href="">amibroker@xxxxxxxxxxxxxxx 
      
      Sent: Saturday, April 17, 2004 1:43 
      PM
      Subject: RE: [amibroker] Multiple 
      file Import
      
      
      <SPAN 
      >Prashanth, I am a bit confused 
      as to why you would want to have 2 databases. Why not just combine them 
      and update the one. Or have I become confused as to the purpose of these. 
      What happens to the data in the 1 month database when it is overwritten, 
      is it lost? Is your 3 year history not continuous with the 1 month 
      data?
      <SPAN 
      >There are some script files 
      recently in this group for importing data, maybe check the recent email 
      history.
      
      <SPAN 
      >Cheers,Graham<A 
      href="">http://e-wire.net.au/~eb_kavan/ 
      
      <FONT face=Tahoma 
      size=2>-----Original 
      Message-----From: 
      Prashanth [mailto:prash454@xxxxxxxxxxxxxxxxx] <SPAN 
      >Sent: Saturday, April 17, 2004 4:00 
      PMTo: 
      amibroker@xxxxxxxxxxxxxxx<SPAN 
      >Subject: [amibroker] Multiple file 
      Import
      <FONT face="Times New Roman" 
      size=2> 
      
      <SPAN 
      >Hello,
      
      <FONT face="Times New Roman" 
      size=2> 
      
      <SPAN 
      >I had posted this letter 
      yesterday, but seems to have evoked not response. Hence I am sending 
      again.
      
      <FONT face="Times New Roman" 
      size=2> 
      
      
      <SPAN 
      >I have 2 local files for 
      each scrip. One file contains the historical database for the last 3 
      years. This file doesnt get updated. The second file contains data from 
      the previous 1 month. The second file gets overwritten whenever new 
      data comes in and hence at any point of time it contains data for the 
      previous 1 month only. What I want to do is to import the 1st file using 
      ASCII import and import the 2nd file accoring to a schedule using Java 
      Script file. In this way, I want to be able to access the historical data 
      and at the same time have it updated till date.
      
      <FONT face="Times New Roman" 
      size=2> 
      
      <SPAN 
      >All ideas 
      welcome.
      
      <FONT face="Times New Roman" 
      size=2> 
      
      <SPAN 
      >Thanks in 
      Advance
      
      <SPAN 
      > 
      
      <SPAN 
      >Prashanth 
      K. 
      <FONT face="Times New Roman" 
      size=2> 
      <FONT face="Times New Roman" 
      size=2><FONT 
      face="Courier New">Send BUG REPORTS to bugs@xxxxxxxxxxxxx<FONT 
      face="Courier New"><FONT 
      face="Courier New">Send SUGGESTIONS to 
      suggest@xxxxxxxxxxxxx<FONT 
      face="Courier New">-----------------------------------------<FONT 
      face="Courier New">Post AmiQuote-related messages ONLY to: 
      amiquote@xxxxxxxxxxxxxxx (Web 
      page: <A 
      href="">http://groups.yahoo.com/group/amiquote/messages/)<FONT 
      face="Courier New">--------------------------------------------<FONT 
      face="Courier New">Check group FAQ at: <A 
      href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html 
      Send BUG REPORTS to bugs@xxxxxxxxxxxxxSend 
      SUGGESTIONS to 
      suggest@xxxxxxxxxxxxx-----------------------------------------Post 
      AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page: 
      <A 
      href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check 
      group FAQ at: <A 
      href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html 
      Send BUG REPORTS to 
    bugs@xxxxxxxxxxxxxSend SUGGESTIONS to 
    suggest@xxxxxxxxxxxxx-----------------------------------------Post 
    AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page: 
    <A 
    href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check 
    group FAQ at: <A 
    href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html 
    Send BUG REPORTS to bugs@xxxxxxxxxxxxxSend 
    SUGGESTIONS to 
    suggest@xxxxxxxxxxxxx-----------------------------------------Post 
    AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page: 
    <A 
    href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check 
    group FAQ at: <A 
    href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html 
    


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.