XD Excel 解析库应用(2) --- 高速读写单元格性能测试

newer

1. (defun c:tt ()
   
2.   (defun test (n)
   
3.     (setq book (xdex_book_open))
   
4.     (if book
   
5.       (progn
   
6.         (if (setq sheet (xdex_book_addsheet "test" t))
   
7.           (progn
   
8.             (setq num (* maxRow maxCol))
   
9.             (setq t1 (xdrx_runtime t))
   
10.             (cond
    
11.               ((= n 0)
    
12.                 (princ (strcat "\n写 " (itoa num) "  个单元格."))
    
13.                 (princ "\n\n======================================\n写字符串测试...        ")
    
14.                 (setq row 0
    
15.                       col 0
    
16.                 )
    
17.                 (repeat maxRow
    
18.                   (setq col 0)
    
19.                   (repeat maxCol
    
20.                     (xdex_cell_write row col (xdrx_string_rand 8))
    
21.                     (setq col (1+ col))
    
22.                   )
    
23.                   (setq row (1+ row))
    
24.                 )
    
25.               )
    
26.               ((= n 1)
    
27.                 (princ (strcat "\n写 " (itoa num) "  个单元格."))
    
28.                 (princ "\n\n======================================\n写数字测试...          ")
    
29.                 (setq row 0
    
30.                       col 0
    
31.                 )
    
32.                 (repeat maxRow
    
33.                   (setq col 0)
    
34.                   (repeat maxCol
    
35.                     (xdex_cell_write row col (xdrx_math_rand 10000))
    
36.                     (setq col (1+ col))
    
37.                   )
    
38.                   (setq row (1+ row))
    
39.                 )
    
40.               )
    
41.               ((= n 2)
    
42.                 (princ "\n\n======================================\n读数字测试...          ")
    
43.                 (princ (strcat "\n读 " (itoa num) "  个单元格."))
    
44.                 (if (xdex_book_load "pernum.xls")
    
45.                   (progn
    
46.                     (setq row 0
    
47.                           col 0
    
48.                     )
    
49.                     (repeat maxRow
    
50.                       (setq col 0)
    
51.                       (repeat maxCol
    
52.                         (xdex_cell_read row col)
    
53.                       )
    
54.                       (setq row (1+ row))
    
55.                     )
    
56.                   )
    
57.                 )
    
58.               )
    
59.               ((= n 3)
    
60.                 (princ "\n\n======================================\n读字符串测试...          ")
    
61.                 (princ (strcat "\n读 " (itoa num) "  个单元格."))
    
62.                 (if (xdex_book_load "perstr.xls")
    
63.                   (progn
    
64.                     (setq row 0
    
65.                           col 0
    
66.                     )
    
67.                     (repeat maxRow
    
68.                       (setq col 0)
    
69.                       (repeat maxCol
    
70.                         (xdex_cell_read row col)
    
71.                       )
    
72.                       (setq row (1+ row))
    
73.                     )
    
74.                   )
    
75.                 )
    
76.               )
    
77.             )
    
78.             (setq d (xdrx_runtime))
    
79.             (princ "\n开始.")
    
80.             (cond
    
81.               ((or
    
82.                  (= n 0)
    
83.                  (= n 1)
    
84.                )
    
85.                 (princ (strcat "\n\n写入时间：" (rtos d 2 2) " 秒."))
    
86.                 (setq dd (/ num d))
    
87.                 (princ (strcat "\n写入速度： " (rtos dd 2 2) " 单元格/秒"))
    
88.                 (princ "\n\n存盘速度测试....")
    
89.                 (if (= n 1)
    
90.                   (xdex_book_save "pernum.xls")
    
91.                   (xdex_book_save "perstr.xls")
    
92.                 )
    
93.                 (setq d2 (xdrx_runtime)
    
94.                       d3 (- d2 d)
    
95.                 )
    
96.                 (princ (strcat "\n存盘时间:    " (rtos d3 2 2) "  秒."))
    
97.                 (princ (strcat "\n\n写入、存盘总共花费时间:" (rtos d2 2 2)
    
98.                                "  秒."
    
99.                        )
    
100.                 )
     
101.                 (princ (strcat "\n存盘速度:" (rtos (/ num d2) 2 2)
     
102.                                "  单元格/秒"
     
103.                        )
     
104.                 )
     
105.               )
     
106.               ((or
     
107.                  (= n 2)
     
108.                  (= n 3)
     
109.                )
     
110.                 (princ (strcat "\n\n读入时间：" (rtos d 2 2) " 秒."))
     
111.                 (setq dd (/ num d))
     
112.                 (princ (strcat "\n读入速度： " (rtos dd 2 2) " 单元格/秒"))
     
113.               )
     
114. 
     
115.             )
     
116.           )
     
117.         )
     
118.       )
     
119.       (xdex_book_close)
     
120.     )
     
121.   )
     
122.   (if (and
     
123.         (setq maxRow (getint "\n输入行数:"))
     
124.         (setq maxCol (getint "\n输入列数:"))
     
125.       )
     
126.     (progn
     
127.       (test 0)
     
128.       (test 1)
     
129.       (test 2)
     
130.       (test 3)
     
131.     )
     
132.   )
     
133.   (princ)
     
134. )

(defun c:tt ()<br />   (defun test (n)<br />     (setq book (xdex_book_open))<br />     (if book<br />       (progn<br />         (if (setq sheet (xdex_book_addsheet "test" t))<br />           (progn<br />             (setq num (* maxRow maxCol))<br />             (setq t1 (xdrx_runtime t))<br />             (cond<br />               ((= n 0)<br />                 (princ (strcat "\n写 " (itoa num) "  个单元格."))<br />                 (princ "\n\n======================================\n写字符串测试...        ")<br />                 (setq row 0<br />                       col 0<br />                 )<br />                 (repeat maxRow<br />                   (setq col 0)<br />                   (repeat maxCol<br />                     (xdex_cell_write row col (xdrx_string_rand 8))<br />                     (setq col (1+ col))<br />                   )<br />                   (setq row (1+ row))<br />                 )<br />               )<br />               ((= n 1)<br />                 (princ (strcat "\n写 " (itoa num) "  个单元格."))<br />                 (princ "\n\n======================================\n写数字测试...          ")<br />                 (setq row 0<br />                       col 0<br />                 )<br />                 (repeat maxRow<br />                   (setq col 0)<br />                   (repeat maxCol<br />                     (xdex_cell_write row col (xdrx_math_rand 10000))<br />                     (setq col (1+ col))<br />                   )<br />                   (setq row (1+ row))<br />                 )<br />               )<br />               ((= n 2)<br />                 (princ "\n\n======================================\n读数字测试...          ")<br />                 (princ (strcat "\n读 " (itoa num) "  个单元格."))<br />                 (if (xdex_book_load "pernum.xls")<br />                   (progn<br />                     (setq row 0<br />                           col 0<br />                     )<br />                     (repeat maxRow<br />                       (setq col 0)<br />                       (repeat maxCol<br />                         (xdex_cell_read row col)<br />                       )<br />                       (setq row (1+ row))<br />                     )<br />                   )<br />                 )<br />               )<br />               ((= n 3)<br />                 (princ "\n\n======================================\n读字符串测试...          ")<br />                 (princ (strcat "\n读 " (itoa num) "  个单元格."))<br />                 (if (xdex_book_load "perstr.xls")<br />                   (progn<br />                     (setq row 0<br />                           col 0<br />                     )<br />                     (repeat maxRow<br />                       (setq col 0)<br />                       (repeat maxCol<br />                         (xdex_cell_read row col)<br />                       )<br />                       (setq row (1+ row))<br />                     )<br />                   )<br />                 )<br />               )<br />             )<br />             (setq d (xdrx_runtime))<br />             (princ "\n开始.")<br />             (cond<br />               ((or<br />                  (= n 0)<br />                  (= n 1)<br />                )<br />                 (princ (strcat "\n\n写入时间：" (rtos d 2 2) " 秒."))<br />                 (setq dd (/ num d))<br />                 (princ (strcat "\n写入速度： " (rtos dd 2 2) " 单元格/秒"))<br />                 (princ "\n\n存盘速度测试....")<br />                 (if (= n 1)<br />                   (xdex_book_save "pernum.xls")<br />                   (xdex_book_save "perstr.xls")<br />                 )<br />                 (setq d2 (xdrx_runtime)<br />                       d3 (- d2 d)<br />                 )<br />                 (princ (strcat "\n存盘时间:    " (rtos d3 2 2) "  秒."))<br />                 (princ (strcat "\n\n写入、存盘总共花费时间:" (rtos d2 2 2)<br />                                "  秒."<br />                        )<br />                 )<br />                 (princ (strcat "\n存盘速度:" (rtos (/ num d2) 2 2)<br />                                "  单元格/秒"<br />                        )<br />                 )<br />               )<br />               ((or<br />                  (= n 2)<br />                  (= n 3)<br />                )<br />                 (princ (strcat "\n\n读入时间：" (rtos d 2 2) " 秒."))<br />                 (setq dd (/ num d))<br />                 (princ (strcat "\n读入速度： " (rtos dd 2 2) " 单元格/秒"))<br />               )<br /> <br />             )<br />           )<br />         )<br />       )<br />       (xdex_book_close)<br />     )<br />   )<br />   (if (and<br />         (setq maxRow (getint "\n输入行数:"))<br />         (setq maxCol (getint "\n输入列数:"))<br />       )<br />     (progn<br />       (test 0)<br />       (test 1)<br />       (test 2)<br />       (test 3)<br />     )<br />   )<br />   (princ)<br /> )

1、测试1万个格子读写存盘


命令: tt

输入行数:1000

输入列数:10

写 10000  个单元格.

======================================
写字符串测试...
开始.

写入时间：0.34 秒.
写入速度： 29154.52 单元格/秒

存盘速度测试....
存盘时间:    0.04  秒.

写入、存盘总共花费时间:0.39  秒.
存盘速度:25974.03  单元格/秒
写 10000  个单元格.

======================================
写数字测试...
开始.

写入时间：0.37 秒.
写入速度： 27027.03 单元格/秒

存盘速度测试....
存盘时间:    0.03  秒.

写入、存盘总共花费时间:0.4  秒.
存盘速度:25062.66  单元格/秒

======================================
读数字测试...
读 10000  个单元格.
开始.

读入时间：0.23 秒.
读入速度： 42918.45 单元格/秒

======================================
读字符串测试...
读 10000  个单元格.
开始.

读入时间：0.19 秒.
读入速度： 51813.47 单元格/秒


===================================================================

读写50万个单元格测试

命令: tt

输入行数:1000

输入列数:500

写 500000  个单元格.

======================================
写字符串测试...
开始.

写入时间：18.85 秒.
写入速度： 26528.01 单元格/秒

存盘速度测试....
存盘时间:    0.02  秒.

写入、存盘总共花费时间:18.87  秒.
存盘速度:26502.7  单元格/秒
写 500000  个单元格.

======================================
写数字测试...
开始.

写入时间：22.98 秒.
写入速度： 21760.89 单元格/秒

存盘速度测试....
存盘时间:    0.25  秒.

写入、存盘总共花费时间:23.23  秒.
存盘速度:21525.74  单元格/秒

======================================
读数字测试...
读 500000  个单元格.
开始.

读入时间：4.82 秒.
读入速度： 103734.44 单元格/秒

======================================
读字符串测试...
读 500000  个单元格.
开始.

读入时间：8.58 秒.
读入速度： 58268.27 单元格/秒




50万单元格的数据写也不过才20秒左右，还没见过这么快的操作EXCEL的工具，XDExcel解析库测试中，即将发布。

spp_wall

好像看不懂！！！！

newer

spp_wall 发表于 2014-10-23 20:40
好像看不懂！！！！

读写EXCEL的几个操作函数而已。打开，读，写，关闭。
上面的程序是测试读写速度的。字符串是随机生成的。

Free-Lancer

字符串比数字要多费些时间，就excel本身cell有多个格式，常规比其它格式要简单，用com也只有string格式，用第三方库才有更多选择

chbddzx12

不懂
~~~~~~~~~~~~

hjting

不懂！！！

iLisp

效率相当的不错！比com方式不知快多少倍！