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

[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))

عدم موفقیت