通达信股票池入选个股自动进自定义板块

这里有没有玩股票的？（是不是只有几个不举手

） 发现多数人看股票喜欢用通达信，尤其是爱折腾的人。
如果每次在股票池选出来的个股都要手动添加到自定义或自选板块，肯定很烦人。
写的这个小工具就是解决此问题的，只要你在目标池改好名，不管分多少类，都会一个个在自定义板块区按序排好。
还会在自定义数据里面生成 股票代码+入选日期+板块名+入选价格，可以在股票列表增加列显示出来，这样会很直观的看到哪只股在什么时候被什么条件选中过。
没有用到别的插件，全程的for循环和split，有需要的拿去。
来几张图

免费内容:

puth0 = (form1.BrowseBox1.Path)puth1 = (form1.BrowseBox2.Path)
puth2 = (form1.BrowseBox3.Path)
sjh=(Form1.InputBox1.Text)
//Call Plugin.File.DeleteFile(puth0)
Text = Plugin.File.ReadFileEx(puth1&"bk.cfg")
a = Plugin.File.ReadFileEx(puth2)//以上是几个文件路径
tt = split(text, " ")
For y = 0 To UBound(tt) - 1
w = trim(tt(y))
If w <> "" and w<>xThen
x=w
z = x & "|"
q = q+z
End If
Next
aa= split(q, "|")
For i = 0 To UBound(aa) - 1 step 2
s = split(aa(i), "|")(0)//选出|单数前的板块名
ss= split(aa(i+1), "|")(0)
d = "text=" & """" & s & """" & ">"
m = split(a, d)(1)
n=split(m, "/cell>")
e = n(0)
//按股票分行
f = split(e, "/>")

以下为本帖隐藏内容

==============================

For ii = 0 To ubound(f)-1
g = f(ii)//每个分行内容
o = split(g, "setcode=")(1)
沪深 = split(o, " "&"code")(0)
rr = split(g, " " & "code=")(1)
代码 = split(rr, " " & "indate")(0)
u = split(g, "indate=")(1)
日期 = split(u, " " & "int")(0)
v = split(g, "inprice=")(1)
入选价 = split(v," " & "income")(0)
k = 沪深 & "|" & 代码 & "|" & sjh & "|" & 日期 & " " & "["&s&"]"& " " & 入选价 & "|" & "0.00"
l = Replace(k, """", "") &vbCrLf
ll = ll + l
k1 = 沪深 & 代码
bb = vbCrLf & Replace(k1, """", "")
bk = bk+bb
Next
//MessageBox ii
Call Plugin.File.DeleteFile(puth1 & ss & ".blk")
Call Plugin.File.WriteFileEx(puth1 & ss & ".blk", bk)//写每个ss.blk内容
bk = ""
Next
Call Plugin.File.WriteFileEx(puth0,ll)

==============================