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

前言

安装DLL文件

使用C#和VB.NET将Word文件转化为Text

使用C#和VB.NET将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文件：