C#/VB.NET 将Word与Excel文档转化为Text

这篇文章主要介绍了C#/VB.NET 将Word与Excel文档转化为Text，文章围绕主题展开详细的内容介绍，具有一定的参考价值，需要的朋友可以参考一下

前言

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文本。

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。

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文件：