Inhalt aus Treeview in *.docx exportieren

  • .NET (FX) 4.5–4.8
  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Paulus.

    Inhalt aus Treeview in *.docx exportieren

    Hallo liebe Forum Nutzer,

    ich habe mit ein Tool erstellt womit ich mir ein beliebiges Verzeichnis mit unterverzeichnissen und Inhalt in einen Treeview anzeigen lassen kann.
    Der Treewiev export geht einen Umweg, da ich es nicht anders hinbekomme. Ich exportiere erst den Treewiev in HTML und dann lese ich die HTML aus und
    speicher es in *docx. Soweit funktioniert es, aber ich bekomme es nicht hin, das die Umlaute richtig dargestellt werden, und die schrift in *docx Arial ist sowie die Ordner alle FETT geschrieben sind.
    Hatte einiges Probiert in UFT8 zu schreiben, aber egal was ich mache nix funzt.

    Hat jemand von euch villeicht ein Lösungsvorschlag?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit On
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Text
    5. Imports System.Web
    7. Public Class Form1
    8. Dim Speichername As String
    9. Dim Pfad As String
    10. Dim Test As String
    11. Dim x As Integer
    12. Dim DerPfad As String
    13. Dim subOrdner As Integer
    14. Dim encoding As Encoding = Encoding.UTF8
    15. Dim writer As New StreamWriter("D:\Export.html", False, encoding)
    17. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    18. Try
    20. Cursor = Cursors.Hand
    21. AllesExpandierenToolStripMenuItem.Enabled = False
    22. AlleOrdnerSchließenToolStripMenuItem.Enabled = False
    23. ExportZuWordToolStripMenuItem.Enabled = False
    24. x = 0
    25. subOrdner = 0
    27. Catch ex As Exception
    28. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    29. End Try
    30. End Sub
    32. Private Sub FillTreeNode(ByVal dNode As TreeNode)
    34. Try
    35. Dim d As New DirectoryInfo(dNode.FullPath)
    36. For Each di As DirectoryInfo In d.GetDirectories
    37. Dim nNode As New TreeNode(di.Name)
    38. dNode.Nodes.Add(nNode)
    39. FillTreeNode(nNode)
    41. Next
    42. For Each fi As FileInfo In d.GetFiles
    43. Dim fNode As New TreeNode(fi.Name)
    44. dNode.Nodes.Add(fNode)
    45. Test = Test & dNode.ToString
    46. Next
    48. Catch ex As Exception
    49. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    50. End Try
    52. End Sub
    54. Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
    55. Try
    57. If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
    58. Cursor = Cursors.WaitCursor
    59. Dim nNode As New TreeNode(System.IO.Path.GetFullPath(FolderBrowserDialog1.SelectedPath))
    60. Pfad = FolderBrowserDialog1.SelectedPath.ToString
    61. TreeView1.Nodes.Add(nNode)
    62. Me.FillTreeNode(nNode)
    63. AllesExpandierenToolStripMenuItem.Enabled = True
    64. ExportZuWordToolStripMenuItem.Enabled = True
    65. Cursor = Cursors.Hand
    66. Else
    67. Exit Sub
    68. End If
    70. Catch ex As Exception
    71. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    72. End Try
    74. End Sub
    76. Private Sub BlattLeerenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BlattLeerenToolStripMenuItem.Click
    77. TreeView1.Nodes.Clear()
    78. End Sub
    80. Private Sub AllesExpandierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllesExpandierenToolStripMenuItem.Click
    82. Try
    84. Cursor = Cursors.WaitCursor
    85. TreeView1.ExpandAll()
    87. AllesExpandierenToolStripMenuItem.Enabled = False
    88. AlleOrdnerSchließenToolStripMenuItem.Enabled = True
    89. Cursor = Cursors.Hand
    91. Catch ex As Exception
    92. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    93. End Try
    95. End Sub
    97. Private Sub AlleOrdnerSchließenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleOrdnerSchließenToolStripMenuItem.Click
    98. Try
    100. Cursor = Cursors.WaitCursor
    101. TreeView1.CollapseAll()
    102. AllesExpandierenToolStripMenuItem.Enabled = True
    103. AlleOrdnerSchließenToolStripMenuItem.Enabled = False
    104. Cursor = Cursors.Hand
    106. Catch ex As Exception
    107. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    108. End Try
    109. End Sub
    111. Private Sub ExportZuWordToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportZuWordToolStripMenuItem.Click
    112. Try
    114. Cursor = Cursors.WaitCursor
    116. 'Request a file name to save to
    117. Dim sfd As New SaveFileDialog()
    118. Dim saveFileName As String = String.Empty
    120. With sfd
    121. .FileName = "Export"
    122. .Title = "Export to *.docx File"
    123. .Filter = "Word document (*.docx)|*.html"
    125. .OverwritePrompt = True
    126. If .ShowDialog = Windows.Forms.DialogResult.OK Then
    127. saveFileName = .FileName
    128. Else
    129. Cursor = Cursors.Hand
    130. Exit Sub
    131. End If
    133. Speichername = saveFileName.ToString
    134. End With
    136. sfd.Dispose()
    138. If saveFileName.Length > 0 Then
    140. 'Used to store the nodes contents
    141. Dim treeContents As New System.Text.StringBuilder
    143. 'Start the HTML file
    144. treeContents.AppendLine("<html>")
    145. treeContents.AppendLine("<html>")
    146. treeContents.AppendLine("<head><title>Tree View Export</title></head>")
    147. treeContents.AppendLine("<body>")
    149. 'Enumerate through each root node.
    150. Dim treeEnumerator As IEnumerator = TreeView1.Nodes.GetEnumerator
    152. 'Export the tree view to the treeContents string builder
    153. Do Until treeEnumerator.MoveNext = False
    154. 'Pass the current root node to the OutputTreeNodesToString routine.
    155. OutputTreeNodesToHTMLString(DirectCast(treeEnumerator.Current, TreeNode), 0, treeContents)
    156. Loop
    158. 'Finish the HTML file
    159. treeContents.AppendLine("</body>")
    160. treeContents.AppendLine("</html>")
    162. 'Write the contents of the treeContents string builder to a new file
    163. Dim sw As New System.IO.StreamWriter(saveFileName)
    164. sw.Write(treeContents.ToString)
    165. sw.Dispose()
    167. End If
    169. Me.WebBrowser1.Navigate(Speichername)
    170. Application.DoEvents()
    172. Dim wc As New WebClient()
    173. Dim appWord As Object
    174. Dim doc As Object
    175. appWord = CreateObject("Word.Application")
    176. appWord.Visible = True
    178. doc = appWord.Documents.Add
    180. With doc
    181. .Range.Text = WebBrowser1.Document.Body.InnerText
    182. End With
    184. 'speichern
    185. Dim Speichername2 As String
    186. Speichername2 = (Speichername.Substring(0, Speichername.Length - 5))
    187. Speichername2 = Speichername2 & ".docx"
    188. doc.SaveAs(Speichername2)
    189. doc = Nothing
    191. 'html löschen, Word beenden
    192. My.Computer.FileSystem.DeleteFile(Speichername)
    193. appWord.Quit()
    195. Cursor = Cursors.Hand
    197. MessageBox.Show("Export nach " & Speichername2 & " abgeschlossen.", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
    199. Catch ex As Exception
    200. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    201. End Try
    202. End Sub
    204. Private Sub OutputTreeNodesToHTMLString(ByVal currentNode As TreeNode, ByVal nodeDepth As Int32, ByRef treeContentsStringBuilder As System.Text.StringBuilder)
    205. Try
    206. If currentNode IsNot Nothing Then
    208. 'Retrieve an enumerator for the current node.
    209. Dim nodeEnumerator As IEnumerator = currentNode.Nodes.GetEnumerator
    211. 'Write the current node to the string builder using no breaking spaces (&nbsp;) based on the nodeDepth value.
    212. For i As Int32 = 0 To nodeDepth
    213. treeContentsStringBuilder.Append("&nbsp;&nbsp;&nbsp;&nbsp;")
    214. Next
    216. treeContentsStringBuilder.Append(New String(ControlChars.VerticalTab, nodeDepth) & currentNode.Text & "<br />")
    218. 'If the currentNode has child nodes, increment the nodeDepth before recalling this routine.
    219. If currentNode.Nodes.Count > 0 Then nodeDepth += 1
    221. Do Until nodeEnumerator.MoveNext = False
    222. OutputTreeNodesToHTMLString(DirectCast(nodeEnumerator.Current, TreeNode), nodeDepth, treeContentsStringBuilder)
    223. Loop
    225. End If
    227. Catch ex As Exception
    228. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    229. End Try
    230. End Sub
    232. End Class


    CodeTags korrigiert
    Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [* Neues Thema] klickt.     ~VaporiZed
    :thumbsup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Hier der Weg ohne Umweg über HTML. (Automatisieren von Microsoft Word zum Erstellen eines neuen Dokuments mithilfe von Visual Basic)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ExportZuWordToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportZuWordToolStripMenuItem.Click
    2. Try
    3. Cursor = Cursors.WaitCursor
    4. 'Request a file name to save to
    5. Dim sfd As New SaveFileDialog()
    7. With sfd
    8. .FileName = "Export"
    9. .Title = "Export to *.docx File"
    10. .Filter = "Word document (*.docx)|*.docx"
    11. .OverwritePrompt = True
    12. If .ShowDialog = Windows.Forms.DialogResult.OK Then
    13. Speichername = .FileName
    14. Else
    15. Cursor = Cursors.Hand
    16. Exit Sub
    17. End If
    18. End With
    20. Dim oWord As Word.Application
    21. Dim oDoc As Word.Document
    22. Dim oPara1 As Word.Paragraph
    23. Dim oPara2 As Word.Paragraph
    25. Dim treeContents As New System.Text.StringBuilder
    27. Dim treeEnumerator As IEnumerator = TreeView1.Nodes.GetEnumerator
    28. 'Export the tree view to the treeContents string builder
    29. Do Until treeEnumerator.MoveNext = False
    30. 'Pass the current root node to the OutputTreeNodesToString routine.
    31. OutputTreeNodesToString(DirectCast(treeEnumerator.Current, TreeNode), 0, treeContents)
    32. Loop
    34. oWord = New Word.Application
    35. oWord.Visible = True
    36. oDoc = oWord.Documents.Add
    37. With oDoc
    39. 'Absatz am Anfang des Dokuments einfügen.
    40. oPara1 = oDoc.Content.Paragraphs.Add
    41. oPara1.Range.Text = "Tree View Export"
    42. oPara1.Range.Font.Name = "Arial"
    43. oPara1.Range.Font.Size = 24
    44. oPara1.Range.Font.Bold = 1 'MsoTriState.msoTrue
    45. oPara1.Range.InsertParagraphAfter()
    47. 'Absatz am Ende des Dokuments einfügen.
    48. oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
    49. oPara1.Range.Font.Name = "Arial"
    50. oPara2.Range.Font.Size = 10
    51. oPara2.Range.Font.Bold = 1
    52. oPara2.Range.Text = treeContents.ToString
    53. oPara2.Range.InsertParagraphAfter()
    55. End With
    56. 'speichern
    57. oDoc.SaveAs(Speichername.ToString)
    58. oDoc = Nothing
    59. oWord.Quit()
    60. Cursor = Cursors.Hand
    61. MessageBox.Show("Export nach " & Speichername & " abgeschlossen.", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
    62. Catch ex As Exception
    63. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    64. End Try
    65. End Sub
    66. Private Sub OutputTreeNodesToString(ByVal currentNode As TreeNode, ByVal nodeDepth As Int32, ByRef treeContentsStringBuilder As System.Text.StringBuilder)
    67. Try
    68. If currentNode IsNot Nothing Then
    69. 'Retrieve an enumerator for the current node.
    70. Dim nodeEnumerator As IEnumerator = currentNode.Nodes.GetEnumerator
    71. 'Write the current node to the string builder using no breaking spaces (&nbsp;) based on the nodeDepth value.
    72. For i As Int32 = 0 To nodeDepth
    73. treeContentsStringBuilder.Append(" ")
    74. Next
    75. treeContentsStringBuilder.AppendLine(New String(Tab, nodeDepth) & currentNode.Text)
    76. 'If the currentNode has child nodes, increment the nodeDepth before recalling this routine.
    77. If currentNode.Nodes.Count > 0 Then nodeDepth += 1
    78. Do Until nodeEnumerator.MoveNext = False
    79. OutputTreeNodesToString(DirectCast(nodeEnumerator.Current, TreeNode), nodeDepth, treeContentsStringBuilder)
    80. Loop
    81. End If
    82. Catch ex As Exception
    83. MessageBox.Show("Fehler: " & ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    84. End Try
    85. End Sub

Facebook
Telefonspende