三星55寸三星曲面电视哪款好节目太少了怎么办

来源：蜘蛛抓取(WebSpider) 时间：2017-11-20 17:24 标签： 三星6880曲面电视缺点
查看: 2586|回复: 6
VBA读取大容量txt提示内存溢出，该如何解决？
阅读权限20
在线时间 小时
本帖最后由 qingwusigui 于
09:10 编辑
附件中的文本只是其中一小部分。真正的txt文件达500w万。。。
我想读取其中的几十万行数据到xls中。
但是报错。。。提示错误 。
上传不了附件，我把代码copy上来了。
& & F = Application.GetOpenFilename(&文本(*.txt), *.txt,所有文件(*.*), *.*&, , &请单选目标文本&)& &'一次只打开一个文件,参数顺序不能变,第二个是索引留空
& & ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
& & If F = False Then
& & Exit Sub
& & Application.ScreenUpdating = False
& & 'Workbooks.Open FileName:=F
& & End If
& & ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
& & Dim tt, tt1: tt = Timer '设定计时器
& & Dim s() As String
& & Dim i As Long
& & Dim p As Long
& & Dim a(), b(), c() As String
& & Dim k As Integer
& & 'On Error Resume Next
& & Open F For Input As #1
& & s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)& & '此句提示内存溢出！！！！！！！！！！1
& & Close #1
09:10 上传
点击文件名下载附件
21.89 KB, 下载次数: 11
阅读权限30
在线时间 小时
既然是读取其中的几十万行数据，也许可以采用ADO的方法直接将符合条件的数据读出来，写入EXCEL中
阅读权限100
在线时间 小时
你用二进制方式分段读取不就行了？
阅读权限20
在线时间 小时
翻翻以前的老帖
阅读权限20
在线时间 小时
joforn 发表于
你用二进制方式分段读取不就行了？
请老师指点二进制读取的方法。。。附件已经上传
阅读权限30
在线时间 小时
不会使用二进制的分段读取,^^.作了一个ADO的,不知道速度怎么样,作个参考吧
10:58 上传
点击文件名下载附件
16.37 KB, 下载次数: 17
阅读权限30
在线时间 小时
本帖最后由 onthetrip2008 于
15:45 编辑
用大数据测试了一下,6楼的方法在我的老式电脑上根本不可行,重新修改一下,不知道在好点的电脑上会不会好点
15:44 上传
点击文件名下载附件
15.51 KB, 下载次数: 33
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师> VB中读取TXT中的数据并且在picturebox上画图解决方法
VB中读取TXT中的数据并且在picturebox上画图解决方法
jiajun1699 & &
发布时间： & &
浏览：34 & &
回复：3 & &
悬赏：0.0希赛币
VB中读取TXT中的数据并且在picturebox上画图我现在那个txt文件里只有1列数据，有几十万行了。读取的时候是字符串，但是我转换成整型数据他就提示下标越界。读取了以后怎么画图啊？还有就是这个数据量比较大，我想用滚动条进行查看。网上有说用2个picturebox控件，外加一个Hscroll。我看的不是很明白啊，小弟是初学者，刚接触VB。有没有高手指点一下啊？可以提供相关例子不，谢谢了。
　　VB code　　Dim read1() As Double
Dim a() As String
Dim i As Integer
Private Sub Command1_Click()
Open &F:\心电data.txt& For Input As #1
Do Until EOF(1)
ReDim Preserve a(i)
Input #1, a(i)
read1(i)=val(a(i)) ' 这一行会报错，说是下标越界。
JIALAA & &
20:38:27 & &
& & （0）（0）引用是动态心电图吧？你最好把样本数据打包一个下载，这样才好解决问题。
geziyuan2009 & &
20:38:27 & &
& & （0）（0）引用先‘就事论事’说一下：你的 read1() 声明为动态数组，但没重定义数组大小就使用，当然会出现“下标越界”的错误。代码应该改成：ReDim Preserve a(i), read1(i)另外想说的是：　　你说‘有几十万行……’，象你那样在循环中不停地 ReDim Preserve 恐怕效率太低了吧？？？？？gezi1234 & &
20:38:27 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&作者 18:20打造世界领先的商业智能平台软件关注1以美国金融机构客户投诉数据分析为例，比较Smartbi和Excel数据透视表字数 1374阅读 806评论 0赞 0作为数据分析师，想必你能够熟练的使用Excel数据透视表：自由组合行列字段、对数据进行多层次汇总、排序筛选、数据作图等等。而且，当原始数据发生更改时，可以立刻更新数据透视表。但当你拿到一个几十万行的Excel文件，该怎么办呢？Excel毕竟只是桌面应用，处理的数据量有限，2003版只能处理6.5万行数据，13支持100万行，但在实际应用中，当数据量变大后，Excel 的性能剧降，打开文件可能就需要几分钟。大数据时代，Smartbi为数据分析师提供了新的武器，它内置了列存储数据库infobright，这是TB级别的数据库，支持亿、十亿条数据，用它来处理几十万行数据，自然不是问题。在前端操作界面上，Smartbi xQuery自助分析模块提供了浏览器版的数据透视表，操作方法和Excel类似。下面以美国金融机构投诉数据分析为例，比较一下两个软件。数据来源于消费者金融保护局(Consumer Financial Protection Bureau)，数据量37万条，数据时间跨越2011年12月至2015年4月。数据项目有投诉编号、投诉产品、子产品、问题、州、投诉时间、投诉公司等。1.打开数据的速度Excel文件大小约45M，在一台高配置电脑（四代酷睿I5+8G+SSD），Excel 2010打开文件约需30秒时间。Smartbi需要先将Excel文件导入系统，首次导入步骤需要花费3-4分钟，但之后使用数据均无需任何时间。2.界面比较Excel数据透视表和smartbi的界面很接近，不同点在于Excel采用了目录型的结构，Smartbi采用了表格模式。当层次结构多时，Excel目录结构不太好，但可以通过设置布局调整为表格模式。3.重计算速度Excel在添加、删除维度后，重新计算的过程略显迟滞，Smartbi相对较快。30万行数据的差距不大，相信在更大数据量下，Smartbi的优势会更明显。4.添加计算字段原始数据只有日期字段，分析时需要按年度、月度进行汇总，所以需要添加计算字段，Excel在原始数据中插入两列，分别用Year()、Month()函数获取。Smartbi可以新建计算字段，同样用函数提取年份、月份。5.排序比较Excel的排序功能较为隐蔽，尤其涉及多级排序时，需要多次选择排序字段。Smartbi提供了分级排序功能，分析多层次数据时很方便。6.数据筛选Excel采用下拉框的方式来选择筛选项，对于小数据非常方便，但如果选择项目很多时略显难用。筛选项的数量上限是1万个。Smartbi采用了对话框来选择筛选项，较适合大数据量，筛选项的数量没有上限。7.交叉表Excel交叉表的默认界面不会折行显示列标签，会把列撑的很宽，不太好看。当然你可以调整列宽，但操作上显的复杂。Smartbi的默认行宽是固定的，数据会折行显示，界面更加友好。总结：Excel数据透视表确实强大，但当它碰到大数据的时候，就会发现它也有不爽之处：性能问题、界面细节问题、排序问题等等。Smartbi通过前端界面及后端存储方面的创新，对于大数据的分析显然更具优势。现在你可以在线体验Smartbi的创新功能（），也可以下载试用()。如果觉得我的文章对您有用，请点赞。您的支持将鼓励我继续创作！

我要回帖

更多关于 三星6880曲面电视缺点 的文章

 

随机推荐