How can I create a text file that is not in a UTF format and is just plain text?
This is the code I have but it creates the text in UTF8
Private Sub PlacefileUpdate_Tick(sender As Object, e As EventArgs) Handles PlacefileUpdate.Tick Dim FILE_NAME As String = "X:\Data\polygon_placefile.txt" My.Computer.FileSystem.WriteAllText(FILE_NAME, "", False) If Verticies.Items.Count = 8 Then Dim i As Integer Dim aryText(14) As String aryText(0) = "Title: Polygon" aryText(1) = "Threshold: 999" aryText(2) = "RefreshSeconds: 1" aryText(3) = "" aryText(4) = "Color: 255 255 255" aryText(5) = "Line: 3, 0, Polygon" aryText(6) = Verticies.Items(0) aryText(7) = Verticies.Items(1) aryText(8) = Verticies.Items(2) aryText(9) = Verticies.Items(3) aryText(10) = Verticies.Items(4) aryText(11) = Verticies.Items(5) aryText(12) = Verticies.Items(6) aryText(13) = Verticies.Items(7) aryText(14) = "End:" Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) For i = 0 To 14 objWriter.WriteLine(aryText(i)) Next objWriter.Close() End If End Sub
Regards, Carter Humphreys