مشکل اینکدینگ در دانلود فایل تکست

[saeidmobashery]

سلام و عرض ادب بر اساتید عزیز

دوستان بنده لینک زیر را به دو شیوه دانلود می‌کنم و به صورت فایل تکست ذخیره می‌کنم
http://old.tsetmc.com/tsev2/data/MarketWatchPlus.aspx

یکبار با شل به صورت زیر :

Dim Command As String = $"powershell -c ""Invoke-WebRequest -Uri \""{Link}\"" -OutFile \""{Save_Address}\"""
Shell(Command, AppWinStyle.Hide, True)
یکبار توسط وی بی :

Private WithEvents HTTPCLINET As WebClient

HTTPCLINET = New WebClient
Dim Content As String = HTTPCLINET.DownloadString(New Uri(Link))
IO.File.WriteAllText(Save_Address, Content, Encoding.UTF8)
در مرتبه اول اینکدینگ UTF8 با فرمت CRLF است و کاراکترهای فارسی مشکل ندارد و تکست خوانا است
در مرتبه دوم اینکدینگ UTF8 BOM با فرمت CR و کاراکترها خراب است

به نظر دوستان مشکل از کجاست ؟

[پرستو پارسایی]

اینگونه تست کنید
Dim Command As String = $"powershell -c ""Invoke-WebRequest -Uri ""{Link}"" -OutFile ""{Save_Address}""""
Shell(Command, AppWinStyle.Hide, True)


Private WithEvents HTTPCLIENT As WebClient


HTTPCLIENT = New WebClient
Dim Content As String = HTTPCLIENT.DownloadString(New Uri(Link))
IO.File.WriteAllText(Save_Address, Content, New System.Text.UTF8Encoding(False))

[saeidmobashery]

اینگونه تست کنید
Dim Command As String = $"powershell -c ""Invoke-WebRequest -Uri ""{Link}"" -OutFile ""{Save_Address}""""
Shell(Command, AppWinStyle.Hide, True)


Private WithEvents HTTPCLIENT As WebClient


HTTPCLIENT = New WebClient
Dim Content As String = HTTPCLIENT.DownloadString(New Uri(Link))
IO.File.WriteAllText(Save_Address, Content, New System.Text.UTF8Encoding(False))


استاد عزیز سلام
نتیجه شد UTF16LE

[پرستو پارسایی]

این خط را اینگونه تست کنید .

IO.File.WriteAllText(Save_Address, Content, New System.Text.UTF8Encoding(True))

[saeidmobashery]

این خط را اینگونه تست کنید .

IO.File.WriteAllText(Save_Address, Content, New System.Text.UTF8Encoding(True))

عدم موفقیت