chokka
asked on
How to convert a string variable to System.IO.FileStream object in Vb.Net ?
I am working on VS 2012 Environment using Vb.Net Code.
I am reading a .csv file and loading the data to a string variable. Below syntax works fine.
I have to Pass System.IO.FileStream object to this function. How to convert string variable to FileStream object ?
I am reading a .csv file and loading the data to a string variable. Below syntax works fine.
[code] Dim reader As StreamReader = New System.IO.StreamReader(File.OpenRead("D:\CSV\Test.csv"))
Dim listA As New List(Of String)()
Dim listB As New List(Of String)()
Dim s As String = ""
While Not reader.EndOfStream
Dim line As String = reader.ReadLine()
Dim values As String() = line.Split(";"c)
listA.Add(values(0))
s = s + line + Chr(10)
End While
I have to Pass System.IO.FileStream object to this function. How to convert string variable to FileStream object ?
Private Function getEncodeType(ByVal theFile As System.IO.FileStream) As System.Text.Encoding
Dim _enc As System.Text.Encoding = System.Text.Encoding.UTF8
If (theFile.CanSeek) Then
Dim bom(4) As Byte
theFile.Read(bom, 0, 4)
' utf-8
' ucs-2le, ucs-4le, and ucs-16le
' utf-16 and ucs-2
If (bom(0) = &HEF AndAlso bom(1) = &HBB AndAlso bom(2) = &HBF) OrElse _
(bom(0) = &HFF AndAlso bom(1) = &HFE) OrElse _
(bom(0) = &HFE AndAlso bom(1) = &HFF) OrElse _
(bom(0) = 0 AndAlso bom(1) = 0 AndAlso bom(2) = &HFE AndAlso bom(3) = &HFF) Then
' ucs-4
_enc = System.Text.Encoding.Unicode
Else
_enc = System.Text.Encoding.UTF8
End If
End If
theFile.Seek(0, IO.SeekOrigin.Begin)
Return _enc
End Function
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank you
ASKER