- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何将数据分析结果生成新的数据表？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38953)
-- 发布时间：2013/8/11 22:48:00
-- [求助]如何将数据分析结果生成新的数据表？
分析股票数据想做到：见附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导入txt数据.zip |
1、各只股票星期*的平均涨幅
| 星期 | 股票1 | 股票2 | 股票3 | 股票4 | 股票5 | 股票6 | 股票7 | ...... | |||
| 1 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | |||||
| 2 | ...... | ||||||||||
| 3 | ...... | ||||||||||
| 4 | ...... | ||||||||||
| 5 | ...... | |
2、
各只股票阴历*的平均涨幅
| 阴历日期 | 股票1 | 股票2 | 股票3 | 股票4 | 股票5 | 股票6 | ...... | ||||
| 初一 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | 平均涨跌幅 | |||||
| 初二 | |||||||||||
| 初三 | |||||||||||
| ...... | |||||||||||
-- 发布时间：2013/8/11 22:55:00
--
好吧，但是涨跌幅根据什么数据得到？
-- 发布时间：2013/8/12 6:57:00
--
涨跌幅根据：（后一天的收盘价-前一天的收盘价）/前一天的收盘价*100% 计算得出。
比如：1997-10-16涨跌幅为
（8.18-7.88）/7.88*100%=
时间, 开盘价,最高价,最低价,收盘价,成交量,金额
1997/10/15,8.00,8.18,7.81,7.88,310858.00,248436000.00
1997/10/16,7.90,8.20,7.83,8.18,123153.00,98570000.00
1997/10/17,8.20,8.21,7.90,7.98,77541.00,62038000.00
1997/10/20,7.96,8.28,7.94,8.16,80099.00,64948000.00
1997/10/21,8.26,8.38,8.14,8.23,60224.00,49562000.00
1997/10/22,8.16,8.23,7.79,7.81,69852.00,55574000.00
1997/10/23,7.85,8.00,7.80,7.83,32276.00,25433000.00
-- 发布时间：2013/8/12 7:14:00
--
能不能导入txt文件后，将生成的股票狐表文件都增加一列“涨跌幅”列，然后再进行统计分析。
-- 发布时间：2013/8/12 8:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:txt数据导入.rar |
-- 发布时间：2013/8/12 20:07:00
--
非常感谢 lsy 提供的模块，但是：
1、选“追加（或覆盖）-多选-新增表格”时导入出错，多选改为全选时，导入正确。
2、点击“涨幅”进行计算时，仅对“股票信息明细表”中的合并数据有效，但生成的新增数据表没有增加“涨跌幅”列，希望能够完善。
此主题相关图片如下：1.gif
-- 发布时间：2013/8/12 21:12:00
--
5楼做的越来越像一个专业的软件了，嘻嘻，希望更完善……可以跟楼主要点劳务费啥的。
太复杂，不好改，期待lsy
-- 发布时间：2013/8/12 21:26:00
--
比如， 将生成的新增数据表"西宁特钢"增加“涨跌幅”列 ，增加如下代码,对吗？对所有新增数据表增加“涨跌幅”列，怎么办？
（参照ADOXBuilder用于动态创建表和列）
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder.Tables("西宁特钢")
.AddColumn("涨幅" ,ADOXType.Double)
If i = 0 Then
drlist(i)("涨幅") = 0
Else
drlist(i)("涨幅") = (drlist(i)("收盘价") - drlist(i - 1)("收盘价")) / drlist(i - 1)("收盘价") * 1%
End If
End With
Builder.Close()
-- 发布时间：2013/8/12 21:58:00
--
应该是这样，小改一下导入的代码，具体看代码。
-- 发布时间：2013/8/12 22:21:00
--
谢谢 有点甜 ，但怎样是涨幅保留两位小数？
\'新增的代码
Dim tname As String = FileSys.GetName(file.SubString(0, file.length - 4))
Dim drs As List(of DataRow) = DataTables(tname).Select("", "时间")
For i As Integer = 1 To drs.Count - 1
drs(i)("涨幅") = (drs(i)("收盘价") - drs(i - 1)("收盘价")) / drs(i - 1)("收盘价") * 100
Next
Next
End If
End If
End If
Tables("股票信息明细表").ResumeRedraw()
e.Form.Close()
msgbox("导入结束")