Вопрос:

VBS открыть TXT - сохранить его с кодировкой UTF-8

utf-8 vbscript

15 просмотра

1 ответ

1 Репутация автора

Привет мне жаль, я не могу понять это. Я попытался открыть txt, изменив его кодировку на UTF8 и сохранив его под тем же именем, но это не работает.

Dim Dateisystem, Textdatei, text
Set Dateisystem = CreateObject("Scripting.FileSystemObject")
Set Textdatei = Dateisystem.OpenTextFile("titel.txt")
text = Textdatei.ReadAll


Const adModeReadWrite = 3
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

Sub SaveToFile(text, filename)
  With CreateObject("ADODB.Stream")
    .Mode = adModeReadWrite
    .Type = adTypeText
    .Charset = "UTF-8"
    .Open
    .SaveToFile filename, adSaveCreateOverWrite
    .Close
  End With
End Sub

SaveToFile text, "titel.txt"
Автор: S learning JS Источник Размещён: 08.08.2019 01:51

Ответы (1)


0 плюса

61 Репутация автора

Попробуй это :

Set stream = CreateObject("ADODB.Stream")
Set fso = CreateObject("Scripting.FileSystemObject")
stream.Open
stream.Type = 2 'text
stream.Charset = "utf-8"
stream.LoadFromFile "C:\Your-File-Here(Input).txt"
text = stream.ReadText
stream.Close
Set f = fso.OpenTextFile("C:\Your-File-Here(Output).txt", 2, True, True)
f.Write text
f.Close
Автор: scientist_7 Размещён: 11.08.2019 08:43
Вопросы из категории :
32x32