控件中国网现已改版,您看到的是老版本网站的镜像,系统正在为您跳转到新网站首页,请稍候.......
中国最专业的商业控件资讯网产品咨询电话:023-67870900 023-67871946
产品咨询EMAIL:SALES@COMPONENTCN.COM

Aspose.Cell保存工作表为文本或者CSV格式

作者:ComponentCN 出处:ComponentCN 2014年08月12日 阅读:

Aspose.Cell保存工作表为文本或者CSV格式

Aspose.Cell是一款功能强大的Excel文件处理控件,在不需要安装第三方插件的情况下,对Excel文件进行读取,修改,删除,新增,转换等功能,支持几乎所有版本的Excel。在很多时候客户需要把工作表转换为文本格式,如TXT, TabDelim, CSV等,下面的代码阐述了如果保存完整的工作表为文本,您也可以通过修改下面的代码保存为CSV格式。

具体代码如下:

C#
string filePath = @"F:\Downloads\source.xlsx";

//Load your source workbook
Workbook workbook = new Workbook(filePath);

//0-byte array
byte[] workbookData = new byte[0];

//Text save options. You can use any type of separator
TxtSaveOptions opts = new TxtSaveOptions();
opts.Separator = '\t';

//Copy each worksheet data in text format inside workbook data array
for (int idx = 0; idx < workbook.Worksheets.Count; idx++)
{
    //Save the active worksheet into text format
    MemoryStream ms = new MemoryStream();
    workbook.Worksheets.ActiveSheetIndex = idx;
    workbook.Save(ms, opts);

    //Save the worksheet data into sheet data array
    ms.Position = 0;
    byte[] sheetData = ms.ToArray();

    //Combine this worksheet data into workbook data array
    byte[] combinedArray = new byte[workbookData.Length + sheetData.Length];
    Array.Copy(workbookData, 0, combinedArray, 0, workbookData.Length);
    Array.Copy(sheetData, 0, combinedArray, workbookData.Length, sheetData.Length);

    workbookData = combinedArray;
}

//Save entire workbook data into file
File.WriteAllBytes(filePath + ".out.txt", workbookData);

VB.NET
Dim filePath As String = "F:\Downloads\source.xlsx"

'Load your source workbook
Dim m_workbook As Workbook = New Workbook(filePath)

'0-byte array
Dim workbookData(0) As Byte

'Text save options. You can use any type of separator
Dim opts As TxtSaveOptions = New TxtSaveOptions()
opts.Separator = Chr(9)

'Copy each worksheet data in text format inside workbook data array
For idx As Integer = 0 To m_workbook.Worksheets.Count - 1

    'Save the active worksheet into text format
    Dim ms As MemoryStream = New MemoryStream()
    m_workbook.Worksheets.ActiveSheetIndex = idx
    m_workbook.Save(ms, opts)

    'Save the worksheet data into sheet data array
    ms.Position = 0
    Dim sheetData() As Byte = ms.ToArray()

    'Combine this worksheet data into workbook data array
    Dim combinedArray() As Byte
    ReDim combinedArray(workbookData.Length + sheetData.Length - 1)
    Array.Copy(workbookData, 0, combinedArray, 0, workbookData.Length)
    Array.Copy(sheetData, 0, combinedArray, workbookData.Length - 1, sheetData.Length)

    workbookData = combinedArray
Next

'Save entire workbook data into file
File.WriteAllBytes(filePath + ".out.txt", workbookData)

热推产品

  • ActiveReport... 强大的.NET报表设计、浏览、打印、转换控件,可以同时用于WindowsForms谀坔攀戀Forms平台下......
  • AnyChart AnyChart使你可以创建出绚丽的交互式的Flash和HTML5的图表和仪表控件。可以用于仪表盘的创......
首页 | 新闻中心 | 产品中心 | 技术文档 | 友情连接 | 关于磐岩 | 技术支持中心 | 联系我们 | 帮助中心 Copyright-2006 ComponentCN.com all rights reserved.重庆磐岩科技有限公司(控件中国网) 版权所有 电话:023 - 67870900 传真:023 - 67870270 产品咨询:sales@componentcn.com 渝ICP备12000264号 法律顾问:元炳律师事务所 重庆市江北区塔坪36号维丰创意绿苑A座28-5 邮编:400020
在线客服
在线客服系统
在线客服
在线客服系统