VBS/WSH/JS - Как с помощью JS изменить кодировку документа на utf-8 без bom ?

Iska · Отправлено: **12:39, 01-10-2013** | #2

dark-------13, зачем повтор?! Что непонятного было здесь?

dark-------13 · Отправлено: **12:59, 01-10-2013** | #3

Цитата Iska:

dark-------13, зачем повтор?! Что непонятного было здесь? »

Как на JS сохранить текст с формы в файл - с этим я разобрался.
Решил создать отдельную тему по перекодировке, т.к. предложенный вами вариант не работает.

Iska · Отправлено: **13:36, 01-10-2013** | #4

Цитата dark-------13:

т.к. предложенный вами вариант не работает. »

Покажите код, который у Вас получился в итоге, и поясните, как именно «не работает».

dark-------13 · Отправлено: **14:34, 01-10-2013** | #5

Исправил - добавив Dim UTFStream ошибки пропали , но кодировку не меняет в файле test.txt
После выполнения скрипта русский текст все равно не виден.

Код:

<html>
	
	<head>
		<script src="file://///server/site/reload.js"></script>
		<script>
			var auto_refresh = setInterval(
			function(){
				$('#load_div').load('file://///server/site/test.txt');
			}, 1);
			
			
		</script>
	
	</head>
	<body>
		Статичная инфа	
		<div id="load_div"></div>
		Статичная инфа	
	</body>
</html>

Делал так

Код:

Sub WriteUTF8WithoutBOM()
DIM fileLua
Set fileLua = CreateObject("adodb.stream")
fileLua.Type = 2
fileLua.Mode = 3
fileLua.Charset = "UTF-8"
fileLua.Open
fileLua.WriteText("\\server\site\test.txt")
fileLua.SaveToFile("\\server\site\test.txt")
fileLua.flush
fileLua.Close
End Sub

и так

Код:

Sub WriteUTF8WithoutBOM()
    Dim UTFStream 
    Set UTFStream = CreateObject("adodb.stream")
    UTFStream.Type = adTypeText
    UTFStream.Mode = adModeReadWrite
    UTFStream.Charset = "UTF-8"
    UTFStream.LineSeparator = adLF
    UTFStream.Open
    UTFStream.WriteText "This is an unicode/UTF-8 test.", adWriteLine
    UTFStream.WriteText "First set of special characters: oaanuuu€", adWriteLine
    UTFStream.WriteText "Second set of special characters: qwertzuiopouasdfghjkleauyxcvbnm\|A€I??a??[]i??;?¤>#&@{}<;>*~?^?°?`y????0", adWriteLine

    UTFStream.Position = 3 '3 skip BOM

    Dim BinaryStream 
    Set BinaryStream = CreateObject("adodb.stream")
    BinaryStream.Type = adTypeBinary
    BinaryStream.Mode = adModeReadWrite
    BinaryStream.Open

    'Strips BOM (first 3 bytes)
    UTFStream.CopyTo BinaryStream

    'UTFStream.SaveToFile "d:\adodb-stream1.txt", adSaveCreateOverWrite
    UTFStream.Flush
    UTFStream.Close

    BinaryStream.SaveToFile "\\server\site\test.txt", adSaveCreateOverWrite
    BinaryStream.Flush
    BinaryStream.Close
End Sub

Iska · Отправлено: **18:04, 01-10-2013** | #6

Цитата dark-------13:

Делал так »

И что Вы пишете в поток:

Код:

fileLua.WriteText("\\server\site\test.txt")

?! Текст «\\server\site\test.txt». Не содержимое указанного файла, а банальную строку, буквально — «\\server\site\test.txt».

Цитата dark-------13:

и так »

Аналогично:

Код:

    UTFStream.WriteText "This is an unicode/UTF-8 test.", adWriteLine
    UTFStream.WriteText "First set of special characters: oaanuuu€", adWriteLine
    UTFStream.WriteText "Second set of special characters: qwertzuiopouasdfghjkleauyxcvbnm\|A€I??a??[]i??;?¤>#&@{}<;>*~?^?°?`y????0", adWriteLine

Вам надо писать своё содержимое, то, что у Вас в:

Код:

var text=document.getElementById("TextArea1").innerText;
s.WriteLine(text);
s.writeline("<br>");

Не используйте слепо копипаст с кода по приведённой ссылке. Подите в MSDN, почитайте документацию по ADODB.Stream. Поэкспериментируйте. Многое станет понятнее.

dark-------13 · Отправлено: **10:15, 13-10-2013** | #7

Вот скрипт который должен удалить bom из файла, но он почему-то не работает

Код:

<script language="VBScript">
' Removes the Byte Order Mark - BOM from a text file with UTF-8 encoding
' The BOM defines that the file was stored with an UTF-8 encoding.
Call RemoveBOM(filePath)
Public function RemoveBOM(filePath)
       
        ' Create a reader and a writer
                Dim writer,reader, fileSize
                Set writer = CreateObject('Adodb.Stream')
                Set reader = CreateObject('Adodb.Stream')
                'from the text file we just wrote
                reader.Open
                reader.LoadFromFile ('c:\test\1.txt')
       
        ' Copy all data from reader to writer, except the BOM
                writer.Mode=3
                writer.Type=1
                writer.Open
                reader.position=5
                reader.copyto writer,-1

        ' Overwrite file
                writer.SaveToFile ('c:\test\1.txt',8)
       
        ' Return file name
                RemoveBOM = ('c:\test\1.txt')
        ' Kill objects
                Set writer = Nothing
                Set reader = Nothing

end Function
</script>

dark-------13 · Отправлено: **07:59, 16-10-2013** | #8

Вот еще один скрипт и он тоже не решил проблему перекодировки

Код:

Public function RemoveBOM(filePath)
  Dim writer,reader, fileSize
  Set writer = CreateObject("Adodb.Stream")
  Set reader = CreateObject("Adodb.Stream")
  reader.Open
  reader.LoadFromFile filePath
  writer.Mode=3
  writer.Type=1
  writer.Open
  reader.position=3
  reader.copyto writer,-1
  writer.SaveToFile filePath,2
  RemoveBOM = filePath
  Set writer = Nothing
  Set reader = Nothing
end Function
Set objArgs = WScript.Arguments
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(objArgs(0))
Set colFiles = objFolder.Files
For Each objFile in colFiles
  RemoveBOM(objArgs(0) + "\" + objFile.Name)
Next
WScript.Echo "Ok"