本文將以C#程式代碼為例介紹如何來讀取txt檔案中的內容,生成Word檔案,在編輯代碼前,可參考如下代碼環境進行配置:
- Visual Studio 2017
- .Net Framework 4.6.1
- Free Spire.Doc for .NET
- .txt檔案
dll檔案安裝(3種方法)
1.通過 NuGet 安裝dll(2種方法)
1.1 可以在Visual Studio中打開“解決方案資源管理器”,滑鼠右鍵點擊“參考”,“管理NuGet包”,然后搜索“Free Spire.Doc”,點擊“安裝”,等待程式安裝完成,
1.2 將以下內容復制到PM控制臺安裝,
Install-Package FreeSpire.Doc -Version 9.9.7
2.手動添加dll參考
可通過手動 下載包,然后解壓,找到BIN檔案夾下的Spire.Doc.dll,然后在Visual Studio中打開“解決方案資源管理器”,滑鼠右鍵點擊“參考”,“添加參考”,將本地路徑BIN檔案夾下的dll檔案添加參考至程式,
讀取txt生成Word
- 通過StreamReader(Stream stream, Encoding encoding)構造方法讀取指定路徑下的txt檔案,
- 通過Free Spire.Doc 提供的Paragraph.AppendText(string text)方法將讀取到的txt內容添加到Word段落,
- 最后,通過Document.SaveToFile(string fileName, FileFormat fileFormat)方法保存為Word,并指定保存路徑,
C#
using Spire.Doc; using Spire.Doc.Documents; using System.Drawing; using System.IO; using System.Text; namespace CreateWordDocument_Doc { class Program { static void Main(string[] args) { //實體化Document類的物件,并添加section和paragraph Document doc = new Document(); Section section = doc.AddSection(); Paragraph paragraph = section.AddParagraph(); //讀取txt檔案 StreamReader sr = new StreamReader("test.txt", Encoding.Default); string line; while ((line = sr.ReadLine()) != null) { paragraph.AppendText(line);//在段落中寫入txt //設定段落樣式,并應用到段落 ParagraphStyle style1 = new ParagraphStyle(doc); style1.Name = "titleStyle"; style1.CharacterFormat.Bold = true; style1.CharacterFormat.TextColor = Color.Purple; style1.CharacterFormat.FontName = "宋體"; style1.CharacterFormat.FontSize = 12; doc.Styles.Add(style1); paragraph.ApplyStyle("titleStyle"); } //保存為docx格式的Word doc.SaveToFile("addTxttoWord.docx", FileFormat.Docx2013); System.Diagnostics.Process.Start("addTxttoWord.docx"); } } }
VB.NET
Imports Spire.Doc Imports Spire.Doc.Documents Imports System.Drawing Imports System.IO Imports System.Text Namespace CreateWordDocument_Doc Class Program Private Shared Sub Main(args As String()) '實體化Document類的物件,并添加section和paragraph Dim doc As New Document() Dim section As Section = doc.AddSection() Dim paragraph As Paragraph = section.AddParagraph() '讀取txt檔案 Dim sr As New StreamReader("test.txt", Encoding.[Default]) Dim line As String While (InlineAssignHelper(line, sr.ReadLine())) IsNot Nothing paragraph.AppendText(line) '在段落中寫入txt '設定段落樣式,并應用到段落 Dim style1 As New ParagraphStyle(doc) style1.Name = "titleStyle" style1.CharacterFormat.Bold = True style1.CharacterFormat.TextColor = Color.Purple style1.CharacterFormat.FontName = "宋體" style1.CharacterFormat.FontSize = 12 doc.Styles.Add(style1) paragraph.ApplyStyle("titleStyle") End While '保存為docx格式的Word doc.SaveToFile("addTxttoWord.docx", FileFormat.Docx2013) System.Diagnostics.Process.Start("addTxttoWord.docx") End Sub Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T target = value Return value End Function End Class End Namespace
效果圖:

注意事項
代碼中的txt檔案和生成的Word檔案路徑為F:\VS2017Project\CreateWordDocument_Doc\CreateWordDocument_Doc\bin\Debug下,檔案路徑也可以自定義,
—End—
轉載請註明出處,本文鏈接:https://www.uj5u.com/net/422965.html
標籤:.NET技术
