Mega Code Archive

 

Categories / VB.Net / Data Types

 

Create StreamWriter for Unicode encoding

Imports System.IO Imports System.Text Module Example    Public Sub Main()       Dim rnd As New Random()       Dim str As String = String.Empty       Dim sw As New StreamWriter(".\StringFile.txt", False, Encoding.Unicode)       For ctr As Integer = 0 To 1000          str += ChrW(rnd.Next(1, &h0530))           If str.Length Mod 60 = 0 Then str += vbCrLf                 Next                           sw.Write(str)       sw.Close()    End Sub End Module