从品牌网站建设到网络营销策划,从策略到执行的一站式服务
好像可以把它放到excel 里的,不过10万条 也多了点,吧知道行不行呢
创新互联提供成都网站制作、成都做网站、网页设计,品牌网站设计,广告投放平台等致力于企业网站建设与公司网站制作,10余年的网站开发和建站经验,助力企业信息化建设,成功案例突破近1000家,是您实现网站建设的好选择.
sub xr()
dim arr(1 to 100000,1 to 10)
for i=1 to 100000
for j=1 to 10
arr(i,j)=cells(i,j)
next
next
end sub
手机打的,自行测试
读500万行的txt文件190M左右,提取每行中特定字符,写入7个文件,单个文件130万行,13M左右。一共用时20秒左右。
用System.IO.StreamReader System.IO.StreamWriter。
Delphi代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
购物总价:Integer;
折扣:Extended;
begin
购物总价:=StrToInt(Edit1.Text);
if 购物总价250 then
begin
折扣:=0;
end
else if 购物总价500 then
begin
折扣:=0.05;
end
else if 购物总价1000 then
begin
折扣:=0.075;
end
else if 购物总价2000 then
begin
折扣:=0.1;
end
{
此段的折扣是多少?
else if 购物总价3000 then
begin
折扣:=0.05;
end
}
else if 购物总价=3000 then
begin
折扣:=0.15;
end;
ShowMessage('您享受的折扣是:'+FloatToStr(折扣)
+' 原价:'+IntToStr(购物总价)
+' 折后总价:'+FloatToStr(购物总价*(1-折扣)));
end;
datagridview属性里面不是有可以设置的每页最大条数多少,不过总的条数多少我就不知道了。你看可以不可以用数据库和datagridview绑定的语句中就设定top(10)
我之前做过一个大批量修改文件的程序,最初用的是一次性读入的方式读取文件,即ReadToEnd。结果就出现了你这种很慢的情况,后来改成了逐行读入,即ReadLine,速度提升数十倍!
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图