通过文件结构直接生成xls文件的VB.Net和Java两个版本

在论坛发布的帖子，受到热心网友支持，翻译了两个语言的版本出来，在此一起收录

原文：

通过文件结构直接生成xls文件

ypZhuang 网友的java代码

1. import java.io.*;
2. import java.util.*;
5. public class ExcelWriter{
6. public static void main(Stringargs[]){
7. try {
8. ExcelWriterexcel= new ExcelWriter( "c://mytest.xls" );
9. excel.beginWrite();
11. Stringhead[]={ "StuNumber" , "Name" , "Score" };
12. excel.addLine(head);
14. List<String>list= new ArrayList<String>();
15. list.add( "99" );
16. list.add( "jinjazz" );
17. list.add( "99.9" );
18. excel.addLine( 1 ,list);
20. java.util.List<GradePO>gradeList= new ArrayList<GradePO>();
21. for ( int i= 0 ;i< 10 ;i++){
22. GradePOgrade= new GradePO();
23. grade.setStuNumber(i);
24. grade.setName( "学生" +i);
25. grade.setScore( 88 .8f+i);
26. gradeList.add(grade);
27. }
28. Stringfields[]={ "stuNumber" , "name" , "score" };
29. excel.addBean(gradeList,fields);
31. excel.writeNumber( 12 , 0 , 12 );
32. excel.writeString( 12 , 1 , "ypzhuang" );
33. excel.writeNumber( 12 , 2 , 100 .0d);
34. excel.endWrite();
36. System.out.println( "writefileok" );
37. } catch (FileNotFoundExceptione){
38. System.err.print(e.getMessage());
39. e.printStackTrace();
40. } catch (IOExceptione){
41. System.err.print(e.getMessage());
42. e.printStackTrace();
43. } catch (Exceptione){
44. System.err.print(e.getMessage());
45. e.printStackTrace();
46. }
47. }
48. private FileOutputStream_wirter;
49. private int row= 0 ;
50. private Stringpath;
52. public ExcelWriter(StringstrPath) throws FileNotFoundException{
53. _wirter= new FileOutputStream(strPath);
54. path=strPath;
55. }
57. /**
58. *写入short数组
59. *@paramvalues
60. *@throwsIOException
61. */
62. private void _writeFile( short []values) throws IOException{
63. for ( short v:values){
64. byte []b=getBytes(v);
65. _wirter.write(b, 0 ,b.length);
66. }
67. }
69. /**
70. *写文件头
71. *@throwsIOException
72. */
73. public void beginWrite() throws IOException{
74. _writeFile( new short []{ 0x809 , 8 , 0 , 0x10 , 0 , 0 });
75. }
77. /**
78. *写文件尾
79. *@throwsIOException
80. */
81. public void endWrite() throws IOException{
82. _writeFile( new short []{ 0xa , 0 });
83. _wirter.close();
84. }
86. /**
87. *写一个浮点数到单元格x,y
88. *@paramx
89. *@paramy
90. *@paramvalue
91. *@throwsIOException
92. */
93. public void writeNumber( short x, short y, float value) throws IOException{
94. //_writeFile(newshort[]{0x203,14,x,y,0});
95. //byte[]b=getBytes(value);
96. //_wirter.write(b,0,b.length);
97. writeString(( short )x,( short )y,value+ "" );
98. }
100. /**
101. *写一个数字到单元格x,y
102. *@paramx
103. *@paramy
104. *@paramvalue
105. *@throwsIOException
106. */
107. public void writeNumber( int x, int y, float value) throws IOException{
108. writeNumber(( short )x,( short )y,value);
109. }
111. /**
112. *写一个字符到单元格x,y
113. *@paramx
114. *@paramy
115. *@paramvalue
116. *@throwsIOException
117. */
118. public void writeString( short x, short y,Stringvalue) throws IOException{
119. byte []b=getBytes(value);
120. _writeFile( new short []{ 0x204 ,( short )(b.length+ 8 ),x,y, 0 ,( short )b.length});
121. _wirter.write(b, 0 ,b.length);
122. }
124. /**
125. *写一个字符到单元格x,y
126. *@paramx
127. *@paramy
128. *@paramvalue
129. *@throwsIOException
130. */
131. public void writeString( int x, int y,Stringvalue) throws IOException{
132. writeString(( short )x,( short )y,value);
133. }
136. /**
137. *写一个整数到单元格x,y
138. *@paramx
139. *@paramy
140. *@paramvalue
141. *@throwsIOException
142. */
143. public void writeNumber( short x, short y, int value) throws IOException{
144. //_writeFile(newshort[]{0x203,14,x,y,0});
145. //byte[]b=getBytes(value);
146. //_wirter.write(b,0,b.length);
147. writeString(x,y,value+ "" );
148. }
150. /**
151. *写一个整数到单元格x,y
152. *@paramx
153. *@paramy
154. *@paramvalue
155. *@throwsIOException
156. */
157. public void writeNumber( int x, int y, int value) throws IOException{
158. writeNumber(( short )x,( short )y,value);
159. }
161. /**
162. *写一个双精度浮点数到单元格x,y
163. *@paramx
164. *@paramy
165. *@paramvalue
166. *@throwsIOException
167. */
168. public void writeNumber( short x, short y, double value) throws IOException{
169. writeString(x,y,value+ "" );
170. }
172. /**
173. *写一个双精度浮点数到单元格x,y
174. *@paramx
175. *@paramy
176. *@paramvalue
177. *@throwsIOException
178. */
179. public void writeNumber( int x, int y, double value) throws IOException{
180. writeNumber(( short )x,( short )y,value);
181. }
183. /**
184. *row行写入一行字符串
185. *@paramrows
186. *@paramhead
187. *@throwsIOException
188. */
189. public void addLine( int rows,Stringhead[]) throws IOException{
190. if (rows< 0 ){
191. rows= 0 ;
192. }
193. for ( int i= 0 ;head!= null &&i<head.length;i++){
194. writeString(rows,i,head[i]);
195. }
196. row=rows+ 1 ;
197. }
199. /**
200. *在第0行写入一行字符串
201. *@paramhead字符数组
202. *@throwsIOException
203. */
204. public void addLine(Stringhead[]) throws IOException{
205. addLine( 0 ,head);
206. }
208. /**
209. *在row行写入一行字符串
210. *
211. *@paramrows
212. *@paramlist字符LIST
213. *@throwsIOException
214. */
215. public void addLine( int rows,java.util.List<String>list) throws IOException{
216. if (rows< 0 ){
217. rows= 0 ;
218. }
219. for ( int i= 0 ;list!= null &&i<list.size();i++){
220. writeString(rows,i,list.get(i));
221. }
222. row=rows+ 1 ;
223. }
225. /**
226. *在当前行写入一行字符串
227. *@paramlist
228. *@throwsIOException
229. */
230. public void addLine(java.util.List<String>list) throws IOException{
231. addLine(row,list);
232. }
234. /**
235. *在当前行开始写入JavaBean对象List
236. *@parambeans
237. *@paramfields
238. *@throwsException
239. */
240. public void addBean(java.util.Listbeans,Stringfields[]) throws Exception{
242. StringmethodName= null ;
243. Objectparams[]= new Object[ 0 ];
244. ClassparamCls[]= new Class[ 0 ];
246. List<String>list= new ArrayList<String>();
247. for (Iteratoriterator=beans.iterator();iterator.hasNext();){
248. Objectobj=iterator.next();
249. int l=fields.length;
250. for ( int j= 0 ;j<l;j++){
251. Stringfield=fields[j];
252. methodName=( new StringBuilder( "get" )).append(
253. field.substring( 0 , 1 ).toUpperCase()).append(
254. field.substring( 1 )).toString();
255. Stringtmp=String.valueOf(obj.getClass().getMethod(methodName,paramCls).invoke(obj,params));
256. list.add(tmp);
258. }
259. addLine(list);
260. list.clear();
261. }
263. }
265. private byte []getBytes( short n){
266. byte []b= new byte [ 2 ];
267. b[ 0 ]=( byte )(n& 0xff );
268. b[ 1 ]=( byte )(n>> 8 & 0xff );
269. return b;
270. }
272. private byte []getBytes( int n){
273. //byte[]b=newbyte[4];
274. //
275. //b[0]=(byte)(n&0xff);
276. //b[1]=(byte)(n>>8&0xff);
277. //b[2]=(byte)(n>>16&0xff);
278. //b[3]=(byte)(n>>24&0xff);
280. //b[3]=(byte)(n&0xff);
281. //b[2]=(byte)(n>>8&0xff);
282. //b[1]=(byte)(n>>16&0xff);
283. //b[0]=(byte)(n>>24&0xff);
284. //returnb;
285. //returngetBytes((short)n);
286. return getBytes(n+ "" );
287. }
289. private byte []getBytes( float f){
290. return getBytes(Float.floatToRawIntBits(f));
291. }
293. private byte []getBytes(Strings){
294. return s.getBytes();
295. }
297. public InputStreamgetInputStreamResult() throws IOException{
298. if (_wirter!= null ){
299. endWrite();
300. }
301. return new FileInputStream(path);
302. }
305. }

hztltgg 网友的Vb.Net代码

1. Public Class ExcelWriter
3. Private _wirter As System.IO.FileStream
5. Public Sub New ( ByVal strPath As String )
6. _wirter= New System.IO.FileStream(strPath,System.IO.FileMode.OpenOrCreate)
7. End Sub
9. '''<summary>
10. '''写入short数组
11. '''</summary>
12. '''<paramname="values"></param>
13. Private Sub _writeFile( ByVal values As Short ())
14. For Each v As Short In values
15. Dim b As Byte ()=System.BitConverter.GetBytes(v)
16. _wirter.Write(b,0,b.Length)
17. Next
18. End Sub
20. '''<summary>
21. '''写文件头
22. '''</summary>
23. Public Sub BeginWrite()
24. _writeFile( New Short (){&H809,8,0,&H10,0,0})
25. End Sub
28. '''<summary>
29. '''写文件尾
30. '''</summary>
31. Public Sub EndWrite()
32. _writeFile( New Short (){&HA,0})
33. _wirter.Close()
34. End Sub
37. '''<summary>
38. '''写一个数字到单元格x,y
39. '''</summary>
40. '''<paramname="x"></param>
41. '''<paramname="y"></param>
42. '''<paramname="value"></param>
43. Public Sub WriteNumber( ByVal x As Short , ByVal y As Short , ByVal value As Double )
44. _writeFile( New Short (){&H203,14,x,y,0})
45. Dim b As Byte ()=System.BitConverter.GetBytes(value)
46. _wirter.Write(b,0,b.Length)
47. End Sub
50. '''<summary>
51. '''写一个字符到单元格x,y
52. '''</summary>
53. '''<paramname="x"></param>
54. '''<paramname="y"></param>
55. '''<paramname="value"></param>
56. Public Sub WriteString( ByVal x As Short , ByVal y As Short , ByVal value As String )
57. Dim b As Byte ()=System.Text.Encoding. Default .GetBytes(value)
58. _writeFile( New Short (){&H204, CShort ((b.Length+8)),x,y,0, CShort (b.Length)})
59. _wirter.Write(b,0,b.Length)
60. End Sub
62. End Class