Monarch-LFV
|
Posted: Tue Sep 20, 2022 03:20 Post subject: |
|
|
antabu wrote: | А за диагностику по поводу кавычек благодарю.
|
Там даже не в кавычках дело, а в дефисе: UTF-8. Вернее в его отсутствии изначально.
Если его добавить, то у меня все нормально открывается и копируется. Написал VBS скрипт, добавляющий этот дефис во все выделенные файлы:
Code: | ' Меняет в выделенных файлах "utf8" на "utf-8"
' параметры: %WL
Option Explicit
on error resume next
Dim FSO, FileList, List, F, filename, TextStream, Str
Set FSO = CreateObject("Scripting.FileSystemObject")
FileList = WScript.Arguments(0)
List = Split(FSO.OpenTextFile(FileList,,,-1).ReadAll, vbNewLine)
For Each F In List
If F <> "" Then
set filename = FSO.Getfile(F) ' Имя файла
Set TextStream = FSO.OpenTextFile(filename, 1, False, -2)
Str = TextStream.ReadAll
TextStream.Close
Set TextStream = FSO.OpenTextFile(filename, 2, False, -2)
Str = replace(Str, "charset=utf8", "charset=utf-8")
TextStream.Write Str
TextStream.Close
End If
Next |
|
|