Text文件只由纯文本内容组成，且没有格式，所以其大小比Word或Excel文件更小。除此之外，Text文件还具有跨平台性，几乎与所有应用程序都兼容。因此，在某些时候，我们可能需要将Word或Excel文件转换为Text。接下来，我将介绍如何使用C#和VB.NET将Word或Excel文件转换为Text。

在此篇文章中，我所用到的是 Spire.Office for .NET类库，它可以通过NuGet安装。具体步骤为：依次选择工具>NuGet包管理器>程序包管理器控制台，然后执行以下命令：

PM> Install-Package Spire.Office

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

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