公式运行效果
网站原数据
实现了主力流入自动红色,主力流出自动绿色
- Variable : strArray, fltArray;
- If IsLastBar And (StkInBlock(StkLabel,'上海A股') Or StkInBlock(StkLabel,'深圳A股') Or StkInBlock(StkLabel,'创业板') Or StkInBlock(StkLabel,'中小企业')) Then
- Begin
- url = 'http://s1.dfcfw.com/xml/' + StkLabel + '.xml';
- <%#
- using System.Xml;
- String strHtml = "";
- String url = (String)GetVarData("url");
- WebRequest request = WebRequest.Create(url);
- WebResponse response = request.GetResponse();
- StreamReader reader = new StreamReader(response.GetResponseStream(), Encoding.GetEncoding("utf-8"));
- strHtml = reader.ReadToEnd();
- reader.Close();
- reader.Dispose();
- response.Close();
- XmlDocument doc = new XmlDocument();
- doc.Load(new StringReader(strHtml));
- List<String> listString = new List<String>();
- List<float> listFloat = new List<float>();
- XmlNode node1 = doc.FirstChild.NextSibling.FirstChild;
- while (node1 != null)
- {
- listString.Add(node1.InnerText);
- listFloat.Add(float.Parse(node1.InnerText));
- node1 = node1.NextSibling;
- }
- //传递数组
- //SetVarData("strArray", listString.ToArray());
- SetVarData("fltArray", listFloat.ToArray());
- %>
- Comment( '超大单流入:',fltArray[0], ' 大单流入:', fltArray[1], ' 中单流入:', fltArray[2], ' 小单流入:', fltArray[3]);
- Comment( '超大单流出:',fltArray[7], ' 大单流出:', fltArray[6], ' 中单流出:', fltArray[5], ' 小单流出:', fltArray[4]);
- Comment( '超大单净量:',fltArray[0]-fltArray[7], ' 大单净量:', fltArray[1]-fltArray[6], ' 中单净量:', fltArray[2]-fltArray[5], ' 小单净量:', fltArray[3]-fltArray[4]);
- 主力流入: fltArray[0]+fltArray[1],ColorRed,NoDraw;
- 主力流出: fltArray[7]+fltArray[6],ColorGreen,NoDraw;
- 主力资金流向= fltArray[0]-fltArray[7]+fltArray[1]-fltArray[6],ColorRed,NoDraw;
- if 主力资金流向>0 Then 主力资金流向:主力资金流向,ColorRed,NoDraw;
- if 主力资金流向<=0 Then 主力资金流向:主力资金流向,ColorGreen,NoDraw;
- End