當前位置: 首頁>>代碼示例>>VB.NET>>正文


VB.NET UTF8Encoding.GetPreamble方法代碼示例

本文整理匯總了VB.NET中System.Text.UTF8Encoding.GetPreamble方法的典型用法代碼示例。如果您正苦於以下問題:VB.NET UTF8Encoding.GetPreamble方法的具體用法?VB.NET UTF8Encoding.GetPreamble怎麽用?VB.NET UTF8Encoding.GetPreamble使用的例子?那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在System.Text.UTF8Encoding的用法示例。


在下文中一共展示了UTF8Encoding.GetPreamble方法的2個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: Example

' 導入命名空間
Imports System.Text

Module Example
    Public Sub Main()
        ' The default constructor does not provide a preamble.
        Dim UTF8NoPreamble As New UTF8Encoding()
        Dim UTF8WithPreamble As New UTF8Encoding(True)
        
        Dim preamble() As Byte
        
        preamble = UTF8NoPreamble.GetPreamble()
        Console.WriteLine("UTF8NoPreamble")
        Console.WriteLine(" preamble length: {0}", preamble.Length)
        Console.Write(" preamble: ")
        ShowArray(preamble)
        Console.WriteLine()
        
        preamble = UTF8WithPreamble.GetPreamble()
        Console.WriteLine("UTF8WithPreamble")
        Console.WriteLine(" preamble length: {0}", preamble.Length)
        Console.Write(" preamble: ")
        ShowArray(preamble)
    End Sub

    Public Sub ShowArray(bytes As Byte())
        For Each b In  bytes
            Console.Write("{0:X2} ", b)
        Next
        Console.WriteLine()
    End Sub
End Module
開發者ID:VB.NET開發者,項目名稱:System.Text,代碼行數:32,代碼來源:UTF8Encoding.GetPreamble

輸出:

UTF8NoPreamble
preamble length: 0
preamble:

UTF8WithPreamble
preamble length: 3
preamble: EF BB BF

示例2: Example

' 導入命名空間
Imports System.IO
Imports System.Text

Module Example
   Public Sub Main()
      Dim s As String = "This is a string to write to a file using UTF-8 encoding."
      
      ' Write a file using the default constructor without a BOM.
      Dim enc As New UTF8Encoding()
      Dim bytes() As Byte = enc.GetBytes(s)
      WriteToFile("NoPreamble.txt", enc, bytes)

      ' Use BOM.
      enc = New UTF8Encoding(True)
      WriteToFile("Preamble.txt", enc, bytes)
   End Sub

   Private Sub WriteToFile(fn As String, enc As Encoding, bytes As Byte())
      Dim fs As New FileStream(fn, FileMode.Create)
      Dim preamble() As Byte = enc.GetPreamble()
      fs.Write(preamble, 0, preamble.Length)
      Console.WriteLine("Preamble has {0} bytes", preamble.Length)
      fs.Write(bytes, 0, bytes.Length)
      Console.WriteLine("Wrote {0} bytes to {1}.", fs.Length, fn)
      fs.Close()
      Console.WriteLine()
   End Sub
End Module
開發者ID:VB.NET開發者,項目名稱:System.Text,代碼行數:29,代碼來源:UTF8Encoding.GetPreamble

輸出:

Preamble has 0 bytes
Wrote 57 bytes to NoPreamble.txt.

Preamble has 3 bytes
Wrote 60 bytes to Preamble.txt.


注:本文中的System.Text.UTF8Encoding.GetPreamble方法示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台,相關代碼片段篩選自各路編程大神貢獻的開源項目,源碼版權歸原作者所有,傳播和使用請參考對應項目的License;未經允許,請勿轉載。