开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 金融证券系统 > 查看源码
WLBuildProcess.afl
资源名称：AFL_collection.rar　[点击查看]
上传用户：shiqiang
上传日期：2009-06-12
资源大小：1289k
文件大小：4k
源码类别：

金融证券系统

开发平台：

Others

WLBuildProcess.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    WLBuildProcess
  4. //  Author/Uploader: Fred Tonetti 
  5. //  E-mail:          
  6. //  Date/Time Added: 2006-09-16 05:30:39
  7. //  Origin:          
  8. //  Keywords:        WatchList AddToComposite
  9. //  Level:           basic
  10. //  Flags:           exploration,function
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=710
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=710
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Builds a user designated working watchlist using the tickers from an
  17. //  external file, processes the users formula and adds to a composite which is
  18. //  stored in the final watchlist. Any number of files can be processed
  19. //
  20. //------------------------------------------------------------------------------
  22. //
  23. // Builds Composites From External Lists of Symbols
  24. //
  25. // This should be run as an Exploration on the current symbol only
  26. // 
  27. // User Supplied Info:
  28. //
  29. //     WatchLists 
  30. //         62 - Work
  31. //         63 - Final
  32. //
  33. //     The requirements of input files are that they all must
  34. //         - Be in the same directory
  35. //         - Have the same Prefix   ( In this case ETF  ) 
  36. //         - Have the same FileType ( In this case .tls )
  37. //         - Contain a sequential number as part of the name beginning with 1 i.e. ETF1, ETF2 etc ...
  38. //
  39. //     FNMax = Number of Files to be Processed 
  40. //     FNLoc = File Location (Path)
  41. //     FNPre = FileName Prefix
  42. //     FNTyp = FileType
  43. //
  44. // FNNum = FileName Number ( Suffix ) ... Automatically generated from 1 to FNMax
  45. //
  46. // The resulting composites will be named ~FNPreFNNum and will be in the Final WatchList
  47. //
  49. WLWrk = 62;
  50. WLFin = 63;
  51. FNMax =  2;
  52. FNLoc = "C:/Work/";
  53. FNPre = "ETF";
  54. FNTyp = ".tls";
  56. // Clear Final WatchList
  58. IPList = GetCategorySymbols(categoryWatchlist, WLFin);
  60. _TRACE("Removing Tickers from W/L " + NumToStr(WLFin, 1.0));
  61. for (i = 0; i < 999999; i++)
  62. {
  63.     Ticker = StrExtract(IPList, i);
  64.     if (Ticker == "")
  65.         i = 999999;
  66.     else
  67.     {
  68.         CategoryRemoveSymbol(Ticker, categoryWatchlist, WLFin);
  69.         _TRACE("   " + Ticker);
  70.     }
  71. }
  73. Filter = BarIndex() == LastValue(BarIndex());
  75. // Loop to process all files
  77. for (FNNum = 1; FNNum <= FNMax; FNNum++)
  78. {
  79.     // Clear Work WatchList
  81.     IPList = GetCategorySymbols(categoryWatchlist, WLWrk);
  83.     _TRACE("Removing Tickers from W/L " + NumToStr(WLWrk, 1.0));
  84.     for (i = 0; i < 999999; i++)
  85.     {
  86.         Ticker = StrExtract(IPList, i);
  87.         if (Ticker == "")
  88.             i = 999999;
  89.         else
  90.         {
  91.             CategoryRemoveSymbol(Ticker, categoryWatchlist, WLWrk);
  92.             _TRACE("   " + Ticker);
  93.         }
  94.     }
  96.     // Load WatchList
  98.     IPFileName = FNLoc + FNPre + NumToStr(FNNum, 1.0) + FNTyp;
  100.     fh = fopen(IPFileName, "r");  
  101.     if(fh)  
  102.     {
  103.         _TRACE("Loading Tickers from " + IPFileName);
  104.         while(! feof(fh))  
  105.         { 
  106.             Ticker = fgets(fh); 
  107.             Ticker = StrReplace(Ticker, "n", "");  
  108.             Ticker = StrReplace(Ticker, "r", "");
  109.             if (Ticker != "")
  110.             {
  111.                 CategoryAddSymbol(Ticker, categoryWatchlist, WLWrk);
  112.                 _TRACE("   " + Ticker);
  113.             }
  114.         } 
  115.         fclose(fh);  
  116.     }  
  117.     else  
  118.     {  
  119.         printf("ERROR: " + IPFileName + " does NOT exist");  
  120.     }  
  122.     // Process WatchList 
  124.     IPList = GetCategorySymbols(categoryWatchlist, WLWrk); 
  125.     CompNM = "~" + FNPre + NumToStr(FNNum, 1.0);
  127.     _TRACE("Processing Tickers & Adding to Composite " + CompNM);
  128.     for (i = 0; i < 999999; i++) 
  129.     { 
  130.         Ticker = StrExtract(IPList, i); 
  131.         if (Ticker == "") 
  132.             i = 999999; 
  133.         else
  134.         {
  135.             _TRACE("   " + Ticker);
  137.             SetForeign(Ticker);
  139.             // Whatever processing for each Ticker - In this case we're just grabbing Close
  141.             AddToComposite(C, CompNM, "X", atcFlagCompositeGroup + atcFlagEnableInExplore);
  143.             CategoryAddSymbol(CompNm, categoryWatchlist, WLFin);
  145.             CategoryRemoveSymbol(CompNm, categoryGroup, 253);
  147.         }
  148.     }
  149.     AddTextColumn(CompNm, "Completed");
  150. }