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.DocImports 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 ClassEnd 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.XlsImports 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 ClassEnd Namespace
复制代码
原 Excel 文件：
所转换的 Text 文档：
评论