0
Gamover
04.02.15
✎
19:44
|
CSV файл в кодировке UTF-8.
Когда начинаешь его обрабатывать построчно, то в место букв крокодилы.
Текст.Открыть(ИмяФайла);
Для к=1 по Текст.КоличествоСтрок() Цикл
Стр=Текст.ПолучитьСтроку(к);
Стр = "я¬¬я¬¬product_sku@product_name"
Предварительно открыть файл и поменять в нем кодировку не получится.
Как можно обработать такой?
|
|
2
mehfk
04.02.15
✎
19:50
|
MsgBox StrConv("бНОПНЯ","KOI8-R","Windows-1251")
Function StrConv(Text,SourceCharset,DestCharset)
Set Stream = CreateObject("ADODB.Stream")
Stream.Type = 2
Stream.Mode = 3
Stream.Open
Stream.Charset = SourceCharset
Stream.WriteText Text
Stream.Position = 0
Stream.Charset = DestCharset
StrConv = Stream.ReadText
End Function
|
|