Text文件只由純文本內(nèi)容組成，且沒有格式，所以其大小比Word或Excel文件更小。除此之外，Text文件還具有跨平臺性，幾乎與所有應用程序都兼容。因此，在某些時候，我們可能需要將Word或Excel文件轉(zhuǎn)換為Text。接下來，我將介紹如何使用C#和VB.NET將Word或Excel文件轉(zhuǎn)換為Text。

安裝DLL文件

在此篇文章中，我所用到的是 Spire.Office for .NET類庫，它可以通過NuGet安裝。具體步驟為：依次選擇工具>NuGet包管理器>程序包管理器控制臺，然后執(zhí)行以下命令：

PM> Install-Package Spire.Office?

使用C#和VB.NET將Word文件轉(zhuǎn)化為Text

Spire.Office提供了Document類用于處理Word文檔，該類提供了一個SaveToText()方法用于將Word文檔轉(zhuǎn)換為Text文本。

具體轉(zhuǎn)換步驟如下：

初始化一個Document類的實例。
使用Document.LoadFromFile()方法加載Word文檔。
使用 Document.SaveToTxt() 方法將文檔另存為Text文本。

C#

using?Spire.Doc;
using System.Text;
namespace ConvertWordToText
{
class Program
{
static void Main(string[]
args)
{
//創(chuàng)建一個Document實例
Document
document = new Document();
//加載Word文件
document.LoadFromFile("新型冠狀病毒肺炎.docx");
//將Word文件轉(zhuǎn)換為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())
'創(chuàng)建一個Document實例
Dim document
As Document
= New Document()
'加載Word文件
document.LoadFromFile("新型冠狀病毒肺炎.docx")
'將Word文件轉(zhuǎn)換為Text文件
document.SaveToTxt("新型冠狀病毒肺炎.txt", Encoding.UTF8)
End Sub
End Class
End Namespace

原Word文檔：

轉(zhuǎn)換而來的Text文檔：

使用C#和VB.NET將Excel文件轉(zhuǎn)化為Text

Workbook類用于處理Excel文檔，該類提供了一個Worksheets屬性，用于獲取當前Excel文檔的所有工作表的集合。你可以獲取該集合內(nèi)的指定工作表，也可以遍歷該集合內(nèi)的每一個工作表，然后調(diào)用Worksheet.SaveToFile() 方法將其轉(zhuǎn)換為Text。

具體轉(zhuǎn)換步驟如下：

初始化一個Workbook類的實例。
使用 Workbook.LoadFromFile() 方法加載Excel文件。
通過Workbook.Worksheets[sheetIndex]屬性獲取指定工作表。
使用Worksheet.SaveToFile() 方法將工作表轉(zhuǎn)換為Text。

C#

using Spire.Xls;
using System.Text;
namespace ConvertExcelToText
{
class Program
{
static void Main(string[]
args)
{

//創(chuàng)建一個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())
'創(chuàng)建一個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文件：