আমি এসপ নেটনে লিখিত এনকোডিং ফাইলগুলি পরিবর্তন করতে একটি ফাংশন তৈরি করেছি। আমি অনেক খোঁজাখুঁজি করেছি। এবং আমি এই পৃষ্ঠা থেকে কিছু ধারণা এবং কোড ব্যবহার করেছি। ধন্যবাদ.
এবং এখানে ফাংশন।
Function ChangeFileEncoding(pPathFolder As String, pExtension As String, pDirOption As IO.SearchOption) As Integer
Dim Counter As Integer
Dim s As String
Dim reader As IO.StreamReader
Dim gEnc As Text.Encoding
Dim direc As IO.DirectoryInfo = New IO.DirectoryInfo(pPathFolder)
For Each fi As IO.FileInfo In direc.GetFiles(pExtension, pDirOption)
s = ""
reader = New IO.StreamReader(fi.FullName, Text.Encoding.Default, True)
s = reader.ReadToEnd
gEnc = reader.CurrentEncoding
reader.Close()
If (gEnc.EncodingName <> Text.Encoding.UTF8.EncodingName) Then
s = IO.File.ReadAllText(fi.FullName, gEnc)
IO.File.WriteAllText(fi.FullName, s, System.Text.Encoding.UTF8)
Counter += 1
Response.Write("<br>Saved #" & Counter & ": " & fi.FullName & " - <i>Encoding was: " & gEnc.EncodingName & "</i>")
End If
Next
Return Counter
End Function
এটি .aspx ফাইলের মধ্যে স্থাপন করা যেতে পারে এবং তারপরে এটিকে বলা যেতে পারে:
ChangeFileEncoding("C:\temp\test", "*.ascx", IO.SearchOption.TopDirectoryOnly)