Re: [amibroker] Sector Rotation ... Finally - VBscript: HELP

["Ara Kaloustian" <ara1@xxxxxxxxxx>]

d
 
The buy / sell file is one character per 
line:  
              
objBuyFile.WriteLine 1
 
Reading back: 
intSize = 0Do While objFile.AtEndOfStream = 
False   strLine = objFile.ReadLine
 
   ReDim Preserve 
ArrBuyArray(intSize)   arrBuyArray(intSize) = 
strLine   intSize = 
intSize+1LoopobjFile.Close
 
Transfer back to 
AFL:        AFL("BuyArray") = 
arrBuyArray  
 
So the final presentation to AFL should be 101010 
type sequence
 
Thanks
 
Ara
<BLOCKQUOTE 
>
  ----- Original Message ----- 
  <DIV 
  >From: 
  dingo 
  To: <A title=amibroker@xxxxxxxxxxxxxxx 
  href="">amibroker@xxxxxxxxxxxxxxx 
  Sent: Tuesday, February 11, 2003 6:03 
  AM
  Subject: RE: [amibroker] Sector Rotation 
  ... Finally - VBscript: HELP
  
  How 
  did you write the file out to disk? IOW is it jut 1010010  or did you 
  separate them with commas?
  <FONT face=Tahoma color=#0000ff 
  size=2> 
  You 
  need to know that in order to load the array's..
  <FONT face=Tahoma color=#0000ff 
  size=2> 
  <FONT face=Tahoma color=#0000ff 
  size=2>d
  
    
    <FONT 
    face=Tahoma size=2>-----Original Message-----From: Ara Kaloustian 
    [mailto:ara1@xxxxxxxxxx] Sent: Tuesday, February 11, 2003 12:54 
    AMTo: AmiBroker - BBSubject: [amibroker] Sector 
    Rotation ... Finally - VBscript: HELP
    We're almost there...
     
    Completed code in 3 sections:
    1. Export data files from AFL to VBS to 
    disk
    2. Data processing - process data and create 
    buy / sell arrays
    3. Import processed Buy / Sell arrays back to 
    AFL
     
    Current problem interfacing with 
    AFL...
     
    The Buy Sell arrays are VBS  files with 
    "1" and "0" read into arrays to send back to AFL
     
    When I bring them back, I get AFL error saying 
    "Missmatch,  Assignment Failed. One message for each array transferred 
    back.
     
    Anyone with suggestions?
     
    Thanks
     
    Ara
     
    
    //File - DEV - Sector Rotation #3 - VB to AFL
     
     
    Ticker = Name<FONT 
    size=1>();
    EnableScript(<FONT color=#ff00ff 
    size=1>"vbscript");
    <%
    VBS code ..... to read disk file
    
    AFL("BuyArray") = 
    arrBuyArray '* Transfer array back to AFL 
    AFL("SellArray")= 
    ArrSellArray
    %>
    BuyPrice = Close;
    SellPrice = Close;
    Buy = BuyArray;
    Sell= SellArray;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 
    Your use of Yahoo! Groups is subject to the <A 
    href="">Yahoo! Terms of Service. 
    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 
  Your use of Yahoo! Groups is subject to the <A 
  href="">Yahoo! Terms of Service. 







Yahoo! Groups Sponsor


  ADVERTISEMENT









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



Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.