ptLibert 发表于 2014-8-10 11:10:29

8月8日更新:新增对数组的支持,例子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));
                Console.WriteLine(node1.InnerText);
                node1 = node1.NextSibling;
        }
    //传递数组
        SetVarData("strArray", listString.ToArray());
        SetVarData("fltArray", listFloat.ToArray());

%>

Comment( strArray, ' ', strArray, ' ', strArray, ' ', strArray, ' ', strArray, ' ', strArray);
Comment( fltArray, ' ', fltArray, ' ', fltArray, ' ', fltArray, ' ', fltArray, ' ', fltArray);
End

fengzhanshan 发表于 2014-8-18 16:49:35

ptLibert 发表于 2014-8-10 11:10 static/image/common/back.gif
8月8日更新:新增对数组的支持,例子

新手请教,是不是扩展了fox.api;,接口之后,就可以工作在逐行模式下呢,感觉这个是逐行模式的。记得说.net dll 只能逐根模式。特别希望.net dll 能在逐行下工作,主要是选股

ktdev 发表于 2014-8-18 18:32:41

fengzhanshan 发表于 2014-8-18 16:49 static/image/common/back.gif
新手请教,是不是扩展了fox.api;,接口之后,就可以工作在逐行模式下呢,感觉这个是逐行模式的。记得说.ne ...

逐行逐根都可以,但SetVarData和GetVarData确实一般来说用在逐行模式,和飞狐的vbs类似

fengzhanshan 发表于 2014-8-18 19:16:17

ktdev 发表于 2014-8-18 18:32 static/image/common/back.gif
逐行逐根都可以,但SetVarData和GetVarData确实一般来说用在逐行模式,和飞狐的vbs类似 ...

谢谢,我多试试

gf66wj88 发表于 2014-10-10 20:27:56

谢谢了

nolandcn 发表于 2015-1-5 15:24:01

GET

jamesni88 发表于 2015-6-15 16:20:43

这个必须鸡冻一下,找了半天总算找到可以很简单就支持外挂库的平台。:lol

supperman_009 发表于 2015-7-16 23:59:39

我以前用飞狐自己写的C++的dll,现在想放到金魔方里运行。想用C#来直接处理。以前的函数是这么写,看了楼主的例子,知道.net里可以用类的方法直接替代。但是这个CALCINFO* pData在.net模式下,应该如何改写?还请指点。谢谢!
__declspec(dllexport) int WINAPI cb(CALCINFO* pData)
{
int intt=pData->m_nNumData;
int* cb1;
cb1=(int*)cbh(pData);
for(int y=0;y<intt;y++){pData->m_pResultBuf=cb1;}
free(cb1);
return 1;
}

回眸0804 发表于 2015-8-9 01:05:18

很好,辛苦楼主发这么有意义的帖

fanweihua 发表于 2016-4-19 17:53:51

很好,辛苦楼主发这么有意义的帖
页: 1 2 [3] 4
查看完整版本: 用 .net dll 代替 VBS