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

[amibroker] Re: EMPTY A WATCHLIST WITH JAVA SCRIPT QUESTION


  • Date: Thu, 26 Nov 2009 15:46:19 -0000
  • From: "bistrader" <bistrader@xxxxxxxxx>
  • Subject: [amibroker] Re: EMPTY A WATCHLIST WITH JAVA SCRIPT QUESTION

PureBytes Links

Trading Reference Links

Joe, I know and not what I want.  I want to learn this in Javascript.  Take care.

--- In amibroker@xxxxxxxxxxxxxxx, "Joe Landry" <jelandry@xxx> wrote:
>
> Hello Bert:  Unless you're really interested in working with jScript you can do clear and build without it. 
> Something I put together using Bruce's FT utilities.  As the instructions say, careful what your paramlist in the 
> Autoanalyzer function is set to, cause it will erase the number that resides there. 
> 
> Joe 
> 
> // Builds a watchlist from a FastTrack Family
> // May 2005  JEL 
> // Uses the Bruce Robinson's utilities to get a family from the
> // FastTrack data base 
> // Will look in C:\FT\FTDEF   in USERDEF and in FT4WIN for the family named
> // in the parameter list below. 
> // Careful of what watchlist you point this to because it will empty it first
> // then fill it with the FT Family
> // How to Run in Autoanalyzer window
> // 1) Set RANGE to LAST QUOTATIONS = 1
> // 2) Set APPLY TO CURRENT SYMBOL a stock with lots of data bars/history a money market or XOM
> // 3) Select PARAMETERS button and ENTER the Watchlist LIST you want to ERASE and REFILL
> // 4) Select FastTrack Family   jerryall   or myfam  upper or lower case. 
> // 5) Press SCAN, to transfer the tickers from the FT FAM to the WATCHLIST of your choosing 
> 
> #pragma nocache
> #include <FT-Utilities8.afl>
> 
> script = GetScriptObject(); 
> WLNum = Param("Watchlist Number",7,1,60,1);
> FamName= ParamStr("FT Family Name","BD-Junk");  // Looks in FTDEF, USERDEF and FT4WIN 
> 
> if ( Status("action") == 3 )
> { 
>  // ****************  File Ops Clears and Rebuilds a Watchlist ********************
>  
>  currentlist    = CategoryGetSymbols( categoryWatchlist, WLNum );
>  for (i = 0; (member = StrExtract(currentlist, i)) != ""; i++)
>   CategoryRemoveSymbol( member, categoryWatchlist, WLNum );
>  
>  // **************** Get the FT Family **********************************************
>  List = script.FTGetFam(FamName);   
>  for( i = 0; ( sym = StrExtract( list, i ) ) != ""; i++ )
>  {
>  CategoryAddSymbol(sym,categoryWatchlist,WLNUM); 
>  }
>  
>  Buy=Sell=0;  // this fakes out the AmiBroker AutoAnalyzer
>  //           and lets you run the program without an error indication. 
> }
> 
> 
>   ----- Original Message ----- 
>   From: bistrader 
>   To: amibroker@xxxxxxxxxxxxxxx 
>   Sent: Wednesday, November 25, 2009 9:29 AM
>   Subject: [amibroker] EMPTY A WATCHLIST WITH JAVA SCRIPT QUESTION
> 
> 
>     
>   I am working on a Java Script and am taking one step at a time. I want this section of the js to empty a watchlist. I have googled a lot and have commands that are javascript and visual basic. This is my error, but I am learning. Here is what I have on this should so far. Help appreciated.
> 
>   // emptyWatchlist.js
> 
>   // This Java Script file should:
>   // 1. Load a Database
>   // 2. Call a function to empty a watchlist. This function ...
>   // a. Creates an afl
>   // b. Runs an exploration on this afl to empty watchlist 10.
>   // THIS AFL DOES NOT WORK YET
>   // ----------------------------------------------------------
>   // Create AmiBroker object and get Analysis object
>   // ----------------------------------------------------------
>   var AB, AA, i;
> 
>   AB = new ActiveXObject("Broker.Application");
>   AA = AB.Analysis;
> 
>   // ----------------------------------------------------------
>   // Load Database
>   // ----------------------------------------------------------
>   AB.LoadDatabase("C:\\Amibroker\\FastTrack");
> 
>   // ----------------------------------------------------------
>   // Load Reference Ticker into AmiBroker
>   // ----------------------------------------------------------
>   AB.ActiveDocument.Name = "RUT-I"; // Set RUT-I as reference ticker
> 
>   // ----------------------------------------------------------
>   // Empty Watchlist 10
>   // ----------------------------------------------------------
>   var WatchlistNumber = 10
> 
>   WLEmpty_Directory = "C:\\Amibroker\\Temp\\";
>   WLEmpty_ExploreFileName = "Empty_Watchlist.afl";
>   WLEmpty_ExploreFile = WlEmpty_Directory + WLEmpty_ExploreFileName; 
> 
>   emptyWatchlist.call(10);
>   //Call emptyWatchlist; // does not work?
> 
>   // ----------------------------------------------------------
>   // Afl Code to Empty a Watchlist
>   // ----------------------------------------------------------
>   var Emptya = "list = GetCategorySymbols( categoryWatchlist, ";// Add watchlist number later
>   var Emptyb = " );"; // Use Chr(34) later to add quotes
>   var Emptyc = "for( i = 0; ( sym = StrExtract( list, i ) ) != ";
>   var Emptyd = "; i++ )";
>   var Emptye = "{";
>   var Emptyf = " CategoryRemoveSymbol(sym, categoryWatchlist, ";
>   var Emptyg = " );";
>   var Emptyh = " Filter=1;";
>   var Emptyi = "}";
>   var Emptyj = "AddTextColumn(sym ,";// Use Chr(34) later to add quotes
>   var Emptyk = "Ticker";
>   var Emptyl = ");";
> 
>   // ----------------------------------------------------------
>   // Function to create an afl that will Empty a Watchlist
>   // ----------------------------------------------------------
>   function emptyWatchlist
>   {
>   Dim bolResult
>   Dim FrmlaFile
> 
>   var Result = WSH.popup("Emptying a Watchlist")
> 
>   var FrmlaFile = FS.CreateTextFile(WLEmpty_ExploreFile, True)
> 
>   With FrmlaFile
>   .WriteLine Emptya + cstr(WatchlistNumber) + Emptyb
>   .WriteLine Emptyc + Chr(34) + Chr(34) + Emptyd
>   .WriteLine Emptye
>   .WriteLine Emptyf + cstr(WatchlistNumber) + Emptyg
>   .WriteLine Emptyh
>   .WriteLine Emptyi
>   .WriteLine Emptyj + Chr(34) + Emptyk + Chr(34) + Emptyl
>   .Close
>   End With
> 
>   Set FrmlaFile = Nothing
> 
>   With AA
>   .ApplyTo = 1;
>   .RangeMode = 2;
>   .RangeN = 1;
>   .ClearFilters();
>   .Filter(0, "watchlist") = WatchlistNumber
>   bolResult = .LoadFormula(WLEmpty_ExploreFile)
>   If bolResult Then
>   .Explore();
>   End If
>   End With
> 
>   AB.RefreshAll()
> 
>   //End function
>   }
> 
>   // That is it.
>




------------------------------------

**** IMPORTANT PLEASE READ ****
This group is for the discussion between users only.
This is *NOT* technical support channel.

TO GET TECHNICAL SUPPORT send an e-mail directly to 
SUPPORT {at} amibroker.com

TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
http://www.amibroker.com/feedback/
(submissions sent via other channels won't be considered)

For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/

Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/amibroker/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/amibroker/join
    (Yahoo! ID required)

<*> To change settings via email:
    amibroker-digest@xxxxxxxxxxxxxxx 
    amibroker-fullfeatured@xxxxxxxxxxxxxxx

<*> To unsubscribe from this group, send an email to:
    amibroker-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/