大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
好像可以把它放到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,速度提升数十倍!