Allegro 16.6 支持处理Excel表格,範例代碼

XYX365

Allegro 16.6 支持处理Excel表格,範例代碼

1. procedure( spreadsheetExample()
   
2.     ; Initialize an empty spreadsheet.
   
3.     ; Note that you do not need to provide a name until you
   
4.     ; wish to write the spreadsheet to disk.
   
5.     axlSpreadsheetInit()
   
6. 
   
7.     ; Define inital, default style.
   
8.     ; Styles may be defined at any point during the spreadsheet's
   
9.     ; construction, but must be defined before they are referenced
   
10.     ; by any row, column, or cell.
    
11.     axlSpreadsheetSetStyle("Default" nil)
    
12.     axlSpreadsheetSetStyleProp("Alignment" "Vertical" "Top")
    
13.     axlSpreadsheetSetStyleProp("Alignment" "Horizontal" "Left")
    
14.     axlSpreadsheetSetStyleProp("Alignment" "WrapText" "1")
    
15. 
    
16.     ; Define a second style, derived from the Default style, which
    
17.     ; will include a thin border outline and specifies a red
    
18.     ; background fill.
    
19.     axlSpreadsheetSetStyle("Red" "Red Cell")
    
20.     axlSpreadsheetSetStyleParent("Default")
    
21.     axlSpreadsheetSetStyleBorder("Left" nil "Continuous" "2")
    
22.     axlSpreadsheetSetStyleBorder("Right" nil "Continuous" "2")
    
23.     axlSpreadsheetSetStyleBorder("Top" nil "Continuous" "2")
    
24.     axlSpreadsheetSetStyleBorder("Bottom" nil "Continuous" "2")
    
25.     axlSpreadsheetSetStyleProp("Fill" "Color"
    
26.     axlSpreadsheetGetRGBColorString(255 0 0))
    
27.     axlSpreadsheetSetStyleProp("Fill" "Pattern" "Solid")
    
28. 
    
29.     ; Define the first worksheet in the spreadsheet.
    
30.     axlSpreadsheetSetWorksheet("First")
    
31. 
    
32.     ; With a wider first column
    
33.     axlSpreadsheetSetColumnProp(1 "Width" "500")
    
34.     axlSpreadsheetDefineCell(1 1 "Default" "String" "Default formatted cell")
    
35.     axlSpreadsheetDefineCell(1 2 "Red" "String" "Red background cell")
    
36. 
    
37.     ; Write the compiled spreadsheet to XML file on disk.
    
38.     axlSpreadsheetWrite("spreadsheet.xml")
    
39. 
    
40.     ; Close and release the compiled spreadsheet's data.
    
41.     axlSpreadsheetClose()
    
42. )
    

复制代码

chuankay

这个太好了，不用依赖html了。

l888888h

study..., thanks

l888888h

它好像是.xml的格式, 16.6可以处理.xls的文件吗

XYX365

l888888h 发表于 2013-9-9 15:06
它好像是.xml的格式, 16.6可以处理.xls的文件吗

xml的格式,不能處理xls

l888888h

学习了, 谢谢...

winter_liu

不错，学习了。。。。

sisic

謝謝分享喔   學習了

bingshuihuo

这个太好了，不用依赖html了

srqrs

很强大 支持；