13518219792
好像可以把它放到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，速度提升数十倍！
