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

时间：2022-06-01 21:42:30

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

原文：

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

 

ypZhuang 网友的java代码

  1. import  java.io.*; 
  2. import  java.util.*; 
  5. public   class  ExcelWriter { 
  6. public   static   void  main(String args[]){ 
  7. try  { 
  8. ExcelWriter excel =  new  ExcelWriter( "c://mytest.xls" ); 
  9.     excel.beginWrite(); 
  10.       
  11.             String head[] = { "StuNumber" , "Name" , "Score" }; 
  12.             excel.addLine(head);  
  13.             
  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); 
  19.             
  20.             java.util.List <GradePO> gradeList =  new  ArrayList <GradePO> (); 
  21.              for ( int  i= 0 ;i <  10  ; i++){ 
  22.             GradePO grade =  new  GradePO(); 
  23.             grade.setStuNumber(i); 
  24.             grade.setName( "学生" +i); 
  25.             grade.setScore( 88 .8f + i); 
  26.             gradeList.add(grade); 
  27.             } 
  28.             String fields[] = { "stuNumber" , "name" , "score" }; 
  29.             excel.addBean(gradeList, fields); 
  30.             
  31.             excel.writeNumber( 12 ,  0 ,  12 ); 
  32.             excel.writeString( 12 ,  1 ,  "ypzhuang" ); 
  33.             excel.writeNumber( 12 ,  2 ,  100 .0d); 
  34.             excel.endWrite(); 
  35.             
  36.             System.out.println( "write file ok" ); 
  37. }  catch  (FileNotFoundException e) { 
  38. System.err.print(e.getMessage()); 
  39. e.printStackTrace(); 
  40. }  catch  (IOException e) { 
  41. System.err.print(e.getMessage()); 
  42. e.printStackTrace(); 
  43. }  catch  (Exception e) { 
  44. System.err.print(e.getMessage()); 
  45. e.printStackTrace(); 
  46. } 
  47. } 
  48. private  FileOutputStream _wirter; 
  49. private   int  row =  0 ; 
  50. private  String path; 
  52. public  ExcelWriter(String strPath)  throws  FileNotFoundException { 
  53.   _wirter =  new  FileOutputStream(strPath); 
  54.   path = strPath; 
  55. } 
  57. /** 
  58. * 写入short数组 
  59. * @param values 
  60. * @throws IOException 
  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. * @throws IOException 
  72. */  
  73. public   void  beginWrite()  throws  IOException { 
  74. _writeFile( new   short [] {  0x809 ,  8 ,  0 ,  0x10 ,  0 ,  0  }); 
  75. } 
  77. /** 
  78. * 写文件尾 
  79. * @throws IOException 
  80. */  
  81. public   void  endWrite()  throws  IOException { 
  82. _writeFile( new   short [] {  0xa ,  0  }); 
  83. _wirter.close(); 
  84. } 
  86.      /** 
  87.     * 写一个浮点数到单元格x,y 
  88.     * @param x 
  89.     * @param y 
  90.     * @param value 
  91.     * @throws IOException 
  92.     */  
  93. public   void  writeNumber( short  x,  short  y,  float  value)  throws  IOException { 
  94. // _writeFile(new short[] { 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. * @param x 
  103. * @param y 
  104. * @param value 
  105. * @throws IOException 
  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. * @param x 
  114. * @param y 
  115. * @param value 
  116. * @throws IOException 
  117. */  
  118. public   void  writeString( short  x,  short  y, String value)  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. * @param x 
  127. * @param y 
  128. * @param value 
  129. * @throws IOException 
  130. */  
  131. public   void  writeString( int  x,  int  y, String value)  throws  IOException { 
  132. writeString(( short )x,( short )y,value); 
  133. } 
  136. /** 
  137. * 写一个整数到单元格x,y 
  138. * @param x 
  139. * @param y 
  140. * @param value 
  141. * @throws IOException 
  142. */  
  143. public   void  writeNumber( short  x,  short  y,  int  value)  throws  IOException { 
  144. // _writeFile(new short[] { 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. * @param x 
  153. * @param y 
  154. * @param value 
  155. * @throws IOException 
  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. * @param x 
  164. * @param y 
  165. * @param value 
  166. * @throws IOException 
  167. */  
  168. public   void  writeNumber( short  x,  short  y,  double  value)  throws  IOException { 
  169. writeString(x,y,value+ "" ); 
  170. } 
  172. /** 
  173. * 写一个双精度浮点数到单元格x,y 
  174. * @param x 
  175. * @param y 
  176. * @param value 
  177. * @throws IOException 
  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.     * @param rows 
  186.     * @param head 
  187.     * @throws IOException 
  188.     */  
  189. public    void  addLine( int  rows,String head[])  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. * @param head 字符数组 
  202. * @throws IOException 
  203. */  
  204. public    void  addLine(String head[])  throws  IOException{ 
  205. addLine( 0 ,head); 
  206. } 
  208. /** 
  209. * 在row行写入一行字符串 
  210. * 
  211. * @param rows 
  212. * @param list 字符LIST 
  213. * @throws IOException 
  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. * @param list 
  228. * @throws IOException 
  229. */  
  230. public   void  addLine(java.util.List <String> list)  throws  IOException{ 
  231. addLine(row,list); 
  232. } 
  234. /** 
  235. * 在当前行开始写入JavaBean对象List 
  236. * @param beans 
  237. * @param fields 
  238. * @throws Exception 
  239. */  
  240. public   void  addBean(java.util.List beans, String fields[])  throws  Exception{ 
  242. String methodName =  null ; 
  243. Object params[] =  new  Object[ 0 ]; 
  244. Class paramCls[] =  new  Class[ 0 ]; 
  245.         
  246. List <String> list =  new  ArrayList <String>(); 
  247. for  (Iterator iterator = beans.iterator(); iterator.hasNext();) { 
  248. Object obj = iterator.next(); 
  249. int  l = fields.length; 
  250. for  ( int  j =  0 ; j < l; j++) { 
  251. String field = fields[j]; 
  252. methodName = ( new  StringBuilder( "get" )).append( 
  253. field.substring( 0 ,  1 ).toUpperCase()).append( 
  254. field.substring( 1 )).toString(); 
  255. String tmp = 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. } 
  271.     
  272. private    byte [] getBytes( int  n) { 
  273. // byte[] b = new byte[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. // return b; 
  285. // return getBytes((short)n); 
  286. return  getBytes(n +  "" ); 
  287. } 
  289. private    byte [] getBytes( float  f) { 
  290. return  getBytes(Float.floatToRawIntBits(f)); 
  291. } 
  293. private    byte [] getBytes(String s) { 
  294. return  s.getBytes(); 
  295. } 
  297. public  InputStream getInputStreamResult()  throws  IOException { 
  298. if (_wirter != null ){ 
  299. endWrite(); 
  300. } 
  301. return   new  FileInputStream(path); 
  302. } 
  304.     
  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.      ''' <param name="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.      ''' <param name="x"></param>
  41.      ''' <param name="y"></param>
  42.      '''<param name="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.      ''' <param name="x"></param>
  54.      '''<param name="y"></param>
  55.      '''<param name="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
标签：

相关文章