C#/VB.NET: 将Word或Excel文档转化为Text
原创
©著作权归作者所有:来自51CTO博客作者GloriaBB的原创作品,请联系作者获取转载授权,否则将追究法律责任
Text文件只由纯文本内容组成,且没有格式,所以其大小比Word或Excel文件更小。除此之外,Text文件还具有跨平台性,几乎与所有应用程序都兼容。因此,在某些时候,我们可能需要将Word或Excel文件转换为Text。接下来,我将介绍如何使用C#和VB.NET将Word或Excel文件转换为Text。
安装DLL文件
在此篇文章中,我所用到的是 Spire.Office for .NET类库,它可以通过NuGet安装。具体步骤为:依次选择工具>NuGet包管理器>程序包管理器控制台,然后执行以下命令:
PM> Install-Package
Spire.Office
使用C#和VB.NET将Word文件转化为Text
Spire.Office提供了Document类用于处理Word文档,该类提供了一个SaveToText()方法用于将Word文档转换为Text文本。
具体转换步骤如下:
- 初始化一个Document类的实例。
- 使用Document.LoadFromFile()方法加载Word文档。
- 使用 Document.SaveToTxt()方法将文档另存为Text文本。
C#
using Spire.Doc;
using System.Text;
namespace ConvertWordToText
{
class Program
{
static void Main(string[]
args)
{
//创建一个Document实例
Document
document = new Document();
//加载Word文件
document.LoadFromFile("新型冠状病毒肺炎.docx");
//将Word文件转换为Text文件
document.SaveToTxt("新型冠状病毒肺炎.txt", Encoding.UTF8);
}
}
}
VB.NET
Imports Spire.Doc
Imports System.Text
Namespace ConvertWordToText
Friend Class Program
Private Shared Sub Main(ByVal args
As String())
'创建一个Document实例
Dim document
As Document
= New Document()
'加载Word文件
document.LoadFromFile("新型冠状病毒肺炎.docx")
'将Word文件转换为Text文件
document.SaveToTxt("新型冠状病毒肺炎.txt", Encoding.UTF8)
End Sub
End Class
End Namespace
原Word文档:
转换而来的Text文档:
使用C#和VB.NET将Excel文件转化为Text
Workbook类用于处理Excel文档,该类提供了一个Worksheets属性,用于获取当前Excel文档的所有工作表的集合。你可以获取该集合内的指定工作表,也可以遍历该集合内的每一个工作表,然后调用Worksheet.SaveToFile() 方法将其转换为Text。
具体转换步骤如下:
- 初始化一个Workbook类的实例。
- 使用 Workbook.LoadFromFile() 方法加载Excel文件。
- 通过Workbook.Worksheets[sheetIndex]属性获取指定工作表。
- 使用Worksheet.SaveToFile() 方法将工作表转换为Text。
C#
using Spire.Xls;
using System.Text;
namespace ConvertExcelToText
{
class Program
{
static void Main(string[]
args)
{
//创建一个Workbook实例
Workbook
workbook = new Workbook();
//加载Excel文件
workbook.LoadFromFile("GDP排名.xlsx");
//获取第一个工作表
Worksheet
worksheet = workbook.Worksheets[0];
//将工作表保存为Text文件
worksheet.SaveToFile("GDP排名.txt", " ", Encoding.UTF8);
}
}
}
VB.NET
Imports Spire.Xls
Imports System.Text
Namespace ConvertExcelToText
Friend Class Program
Private Shared Sub Main(ByVal args
As String())
'创建一个Workbook实例
Dim workbook
As Workbook
= New Workbook()
'加载Excel文件
workbook.LoadFromFile("GDP排名.xlsx")
'获取第一个工作表
Dim worksheet
As Worksheet
= workbook.Worksheets(0)
'将工作表保存为Text文件
worksheet.SaveToFile("GDP排名.txt", " ", Encoding.UTF8)
End Sub
End Class
End Namespace
原Excel文件:
所转换的Text文档: