' 'преобразование текстового файла из 'windows-1251' в 'cp866' 'требуется ссылка на библиотеку Microsoft ActiveX Data Objects v2.5 или выше Sub windows_1251_cp866() Dim inFile As String inFile = "C:\SmartIDReader\bin\output.txt" Dim outFile As String outFile = "C:\SmartIDReader\bin\1output.txt" Dim st As ADODB.Stream Set st = New ADODB.Stream st.Open st.Charset = "windows-1251" st.LoadFromFile inFile st.Position = 0 Dim st2 As ADODB.Stream Set st2 = New ADODB.Stream st2.Open st2.Charset = "cp866" st.CopyTo st2 'если файл существует, при попытке сохранить поток получим ошибку 3004 st2.SaveToFile outFile st.Close: Set st = Nothing st2.Close: Set st2 = Nothing End Sub ' 'преобразование текстового файла из 'cp866' в 'windows-1251' 'требуется ссылка на библиотеку Microsoft ActiveX Data Objects v2.5 или выше Sub cp866_windows_1251() Dim inFile As String inFile = "C:\SmartIDReader\bin\output.txt" Dim outFile As String outFile = "C:\SmartIDReader\bin\11output.txt" Dim st As ADODB.Stream Set st = New ADODB.Stream st.Open st.Charset = "cp866" st.LoadFromFile inFile st.Position = 0 Dim st2 As ADODB.Stream Set st2 = New ADODB.Stream st2.Open st2.Charset = "windows-1251" st.CopyTo st2 'если файл существует, при попытке сохранить поток получим ошибку 3004 st2.SaveToFile outFile st.Close: Set st = Nothing st2.Close: Set st2 = Nothing End Sub
|