Question

您好，下午好，我正在开发我的项目长话短说我需要用UTF8或Unicode保存我的html基页

 Dim y As String
    Dim UTF8encoding() As Byte, MyEncoder As New System.Text.UTF8Encoding(TRUE)
    y = (html code should be here will be under)
    Dim utf8 As New UTF8Encoding()
    Dim utf8EmitBOM As New UTF8Encoding(True)
    Dim code As String = y
    Path = "C:\Users\OWNER\Desktop\invoice.html"

    Try
        Dim my_write As System.IO.StreamWriter
        my_write = IO.File.CreateText(path)
        my_write.write(utf8EmitBOM.GetPreamble())
        UTF8encoding = System.Text.Encoding.Convert(System.Text.Encoding.UTF8, System.Text.Encoding.Unicode, MyEncoder.GetBytes(y))
        my_write.WriteLine(code)
        my_write.Close()
    Catch ex As Exception

    End Try

HTML

 <html>
  <style>
   table, th, td 
   { border: 1px solid black; }
  </style>
  </head>
  <body><center><b>
   <font size=20>Family Butcher</font></br></br></br><center><b>
   <font size =4>164 Battersea Bridge Road London SW11 3AW</center></font><center><b>
   <font size =4>Tel:  Mob:</center></font><center><b>
   <font size =4>VAT No: 835522334</center></br></font></br>
   <table Border = 3 WIDTH=610 align=left></br><tr>
   <th colspan=3 align = left>To: " & txto & " <br/>
   <br/>Date:  <br/><br/>Invoice nº    <br/></th></tr>
   <td WIDTH = 100 HEIGHT=40><center><b>Quantity </b></td>
   <td WIDTH = 400><center><b>Description</b></td><td><center>
   <b>Value</b>   </br></p>
   </body></html>

目前我不知道如何以unicode或utf8保存文件然后我无法打开没有符号“Â”的html文件感谢您的支持

Answer 1

我建议您使用 File.WriteAllText - this overload允许您指定编码，因此您只需一行代码就可以实现目标，例如：

File.WriteAllText(path, code, Encoding.UTF8)

以UTF8或Unicode保存vb.net HTML

1 个答案: