MyTetra Share
Делитесь знаниями!
Изменение кодировки текстового файла - VBA4
16.03.2019
23:43
Раздел: !Закладки - VBA - Разобрать
вот этим кодировщиком пользуюсь весьма давно, замечательно работает, может и вам пригодится.
PureBasicВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29



Sub coding()

Const codepageWin1251 = "windows-1251"

Const codepageDOS866 = "cp866"

Const codepageKOI8R = "koi8-r"

Const codepageUTF7 = "utf-7"

Const codepageUTF8 = "utf-8"

Const codepageASCII = "ascii"

 

Const adWriteChar = 0

Const adTypeText = 2

Const adSaveCreateOverWrite = 2

 

Dim pStream As Object, sTxt As String

 

Set pStream = CreateObject("ADODB.Stream")

pStream.Type = adTypeText

 

pStream.Charset = codepageWin1251

pStream.Open

pStream.LoadFromFile ActiveWorkbook.Path & "" & global_save_date & "\NAM.csv"

sTxt = pStream.ReadText

pStream.Close

 

pStream.Charset = codepageDOS866

pStream.Open

pStream.WriteText sTxt, adWriteChar

pStream.SaveToFile ActiveWorkbook.Path & "" & global_save_date & "\NAM.csv", adSaveCreateOverWrite

pStream.Close

End Sub


Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования