HTML & Table Erstellung

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

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von woeh.

    HTML & Table Erstellung

    hallo :)

    ich laße eine tabelle erstellen und kopiere diese aneinander.
    das funktioniert auch ganz gut, bis irgendwann nur noch chaos rauskommt.

    wenn ich mir der quellcode in firefox ansehe, wird der quellcode ganz normal angezeigt.

    hier mein code:

    VB.NET-Quellcode

    1. Public Sub CreateHtmlPlaylist(ByVal saveFile As String,
    2. ByVal fileList() As String,
    3. ByVal sourcePath As String,
    4. ByVal tmpFile As String)
    5. Dim tag As TagLib.Tag
    6. Dim mp3 As TagLib.File
    7. Dim htmlDir As String, dir As String, file As String
    8. Dim artistLink As String, albumLink As String, youTubeLink As String
    9. Dim allPlayTime As Double, playTime As Double
    10. Dim allBytes As Double, fileBytes As Double
    11. Dim p As UInteger
    13. On Error GoTo Quit
    15. If mainform.chkPlayListOnlyOnePlaylist.Checked = True Then
    16. saveFile = IO.Path.GetTempFileName
    17. End If
    19. Dim enc As Text.Encoding = Text.Encoding.UTF8
    20. Dim fPL As IO.StreamWriter = New IO.StreamWriter(saveFile, False, enc)
    22. dir = sourcePath
    23. htmlDir = Replace(dir, "\", "/")
    25. fPL.WriteLine("<!DOCTYPE HTML>")
    26. fPL.WriteLine("<head>")
    27. fPL.WriteLine("<meta charset = ""utf-8"">")
    28. fPL.WriteLine("<title>File Overview</title>")
    30. fPL.WriteLine("<style type = ""text/css"" > <!--")
    32. fPL.WriteLine(".s0 {")
    33. fPL.WriteLine("Font - family: tahoma;")
    34. fPL.WriteLine("Font-Size: 12px;")
    35. fPL.WriteLine("color: #000000; font-style: normal;")
    36. fPL.WriteLine("background-Color: transparent;")
    37. fPL.WriteLine("Text-align: Left();")
    38. fPL.WriteLine("}")
    40. fPL.WriteLine(".s1 {")
    41. fPL.WriteLine("Font - family: tahoma;")
    42. fPL.WriteLine("Font-Size: 12px;")
    43. fPL.WriteLine("color: #FFFFFF; font-style: normal;")
    44. fPL.WriteLine("background-Color: transparent;")
    45. fPL.WriteLine("Text-align: Left();")
    46. fPL.WriteLine("}")
    48. fPL.WriteLine("--></style>")
    49. fPL.WriteLine("</head><body leftmargin=50 bgcolor=""black"" link=""red"" alink=""red"" vlink=""red"">")
    50. fPL.WriteLine("<hr><font face=""tahoma"" size=4><Center><a href=""file://" & htmlDir & """>" & GetLastFolder(dir, False) & "</a></Center></font><hr>")
    51. fPL.WriteLine("<font color=""yellow"">")
    52. fPL.WriteLine("<table style = ""width:100%"">")
    53. fPL.WriteLine("<tr><td style=""font-weight: bold"">Dateiname</td><td style=""font-weight: bold"">Größe</td><td style=""font-weight: bold"">Länge</td><td style=""font-weight:bold"">Track</td><td style=""font-weight:bold"">Title</td><td style=""font-weight:bold"">Artist</td><td style=""font-weight:bold"">Album</td><td style=""font-weight:bold"">Genre</td></tr>")
    55. Dim sourceFile As String
    57. For p = 0 To fileList.Length - 1
    58. file = fileList(p)
    60. If mainform.chkPlayListFileOptionFullFilePath.Checked = False Then
    61. sourceFile = clsClass.GetPath(dir) & file
    62. Else
    63. sourceFile = file
    64. End If
    66. If mainform.rbPlayListReadID3v1.Checked = True Then
    67. ID3v1GetTag(sourceFile, mp3, tag)
    68. End If
    70. If mainform.rbPlayListReadID3v2.Checked = True Then
    71. ID3v2GetTag(sourceFile, mp3, tag)
    72. End If
    74. playTime = mp3.Properties.Duration.Minutes & "," & mp3.Properties.Duration.Seconds
    75. allPlayTime = allPlayTime + playTime
    77. fileBytes = FileLen(sourceFile)
    78. allBytes = allBytes + fileBytes
    80. artistLink = Link_GetArtistLink(tag.FirstArtist)
    82. albumLink = tag.FirstArtist & " - " & tag.Album
    83. albumLink = Net.WebUtility.UrlEncode(albumLink)
    84. albumLink = "https://www.last.fm/search/albums?q=" & albumLink
    86. youTubeLink = Link_GetYouTubeLink(tag.FirstArtist, tag.Title)
    88. fPL.WriteLine("<td class=""s0""><a href = ""file://" & sourceFile.Replace("\", "/") & """ target=""_blank"">" & IO.Path.GetFileNameWithoutExtension(sourceFile) & "</a></td>")
    89. fPL.WriteLine("<td class=""s1"">" & FormatBytes(fileBytes) & "</td>")
    90. fPL.WriteLine("<td class=""s1"">" & playTime.ToString & "</td>")
    91. fPL.WriteLine("<td class=""s1"">" & tag.Track.ToString & "</td>")
    92. fPL.WriteLine("<td class=""s0"">" & "<a href = """ & youTubeLink & """ target=""_blank"">" & tag.Title & "</td>")
    93. fPL.WriteLine("<td class=""s0""><a href = """ & artistLink & """ target=""_blank"">" & tag.FirstArtist & "</td>")
    94. fPL.WriteLine("<td class=""s0""><a href = """ & albumLink & """ target=""_blank"">" & tag.Album & "</td>")
    95. fPL.WriteLine("<td class=""s1"">" & tag.FirstGenre & "</td></tr>")
    96. Next p
    98. Quit:
    99. allPlayTime = Math.Round(allPlayTime / 60, 2)
    101. fPL.WriteLine("</table><hr><hr>")
    102. fPL.WriteLine("<p>" & fileList.Length.ToString & " Dateien " &
    103. "(" & FormatBytes(allBytes) & ") " &
    104. "(" & allPlayTime.ToString & "h Spielzeit)</p>")
    106. fPL.WriteLine("</body>")
    107. fPL.WriteLine("</html>")
    109. fPL.Close()
    111. If tmpFile IsNot Nothing Then
    112. Dim r As String = Text_ReadFile(saveFile)
    114. clsClass.Text_WriteTotFile(tmpFile, r)
    115. End If
    117. If mainform.chkPlayListOnlyOnePlaylist.Checked = True Then
    118. KillFile(saveFile, False)
    119. End If
    121. End Sub


    hat jmd ne idee ?

    Option Strict Off + VisualBasic-Namespace + zahlreiche Aufrufe, die auf Funktionen verweisen, die wohl keiner von uns außer Dir hat. Na herzlichen Dank.
    Nachdem ich vieles davon eingedampft hatte und den Code mit leeren Testdateien gefüttert hatte, kam ich auf u.g. Screenshot. Scheint zu passen.
    Bilder

    • Screenshot.png

      11,9 kB, 1.440×218, 93 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    naja....die funktionen holen sich nur die taginfos, dateinamen, größe und links und schreiben das als links in die tabelle. das komische ist eben, dass iwann nur noch blödsinn rauskommt.

    wie gesagt...schau ich mir den quellcode dann in firefox an, ist alles ganz normal

    ich kann mir keinen reim darauf machen....habe auch mal in nen HTML-forum gefragt
    Bilder

    • OK.jpg

      222,94 kB, 1.007×560, 94 mal angesehen

    • Hier wirds dann nix mehr.jpg

      280,38 kB, 1.024×588, 96 mal angesehen

    • so wirds dann.jpg

      504,1 kB, 1.007×560, 98 mal angesehen

Facebook
Telefonspende