VBS/WSH/JS - Как на JS сохранить текст с формы в файл ?

Iska · Отправлено: **15:22, 30-09-2013** | #2

dark-------13, работает. Надо только разрешить использование небезопасных элементов ActiveX (возможно, что и снять killbit для указанного ActiveX) для потребной зоны.

dark-------13 · Отправлено: **15:56, 30-09-2013** | #3

Заработало только так - когда добавил строку var fso, s, text; ИСПРАВИЛ СТРОКУ <textarea name="text" ID="TextArea1"></textarea>
Но стал вопрос а как файл txt изменить - дописав строку из формы ?

Код:

<html>
<head><script language="javascript">
function WriteToFile()
{
var fso, s, text;
var fso = new ActiveXObject('Scripting.FileSystemObject');
var s = fso.CreateTextFile("\\\\BLABLA\\site\\1test.txt", true);
var text=document.getElementById("TextArea1").innerText;
s.WriteLine(text);
s.WriteLine('***********************');
s.Close();
}
</script>
</head>
<body>


<form name="abc">
<textarea name="text" ID="TextArea1"></textarea>
<button onclick="WriteToFile()">Click to save</Button>  
</form> 

</body>
</html>

Iska · Отправлено: **16:00, 30-09-2013** | #4

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

Заработало только так - когда добавил строку var fso, s, text; »

Я не вижу причины.

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

Но стал вопрос а как файл txt изменить - дописав строку из формы ? »

Не создавать файл, а открыть его для добавления («ForAppending»): OpenTextFile Method.

dark-------13 · Отправлено: **20:33, 30-09-2013** | #5

Проблема решилась так , но возникла еще одна как сохранить документ в кодировке utf-8 без bom , т.к. возникают проблемы с русским шрифтом после обработки файла скриптом reload.7z

Код:

<html>
    
<head>

</head>
<body>

<script language="javascript">
function WriteToFile()
{
var fso, s, text;
var fso = new ActiveXObject('Scripting.FileSystemObject');
var s = fso.OpenTextFile('I:\\test\\send.txt', 8, true, 0);
var text=document.getElementById("TextArea1").innerText;
s.WriteLine(text);
s.writeline("<br>");
<!-- s.WriteLine('***********************'); -->
s.Close();
}

</script>
<form name="abc">
<textarea name="text" ID="TextArea1"></textarea>
<button onclick="WriteToFile()">Click to save</Button>  
</form> 
</body>



</html>

Iska · Отправлено: **23:00, 30-09-2013** | #6

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

как сохранить документ в кодировке utf-8 без bom »

Например, двойная обработка в «ADODB.Stream»:
vbscript - Can I export excel data with UTF-8 without BOM? - Stack Overflow