Створення файлів за допомогою JavaScript та VBScript – створення автономних файлів на клієнтських машинах

1. Створення порожнього файлу.

На перший погляд ця функція може здатися марною, але, як ви занесете дані до файлу, не маючи самого файлу, не будемо ж ми потерти фали відвідувача нашої сторінки. Для того, щоб створити порожній файл за допомогою VBSctipt, треба написати в HTML-файлі наступний код:

Тієї ж функції виконує і наступний код, написаний вже на JavaScirpt:

Ось тепер, створивши чистий файл, можна розпочати його заповнення.

2. Запис даних у файл.

а) Відкриття файлу. Для того, щоб відкрити файл треба застосувати наступний скрипт:

Dim fso, ts Const ForWriting = 2 Set fso = CreateObject("Scripting. FileSystemObject") Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)

var fso, ts; 2 var ForWriting = 2; fso = new ActiveXObject("Scripting.FileSystemObject"); ts = fso.OpenTextFile("c:\\test.txt", ForWriting, true);

Слід зазначити, що з цим файли будуть автоматично створюватися.

б) Безпосередній запис у файл. Для занесення рядків тексту у файл використовуються такі методи:

Завдання	Метод
Втавка нового рядка, з наступною можливістю додавання до цього рядка даних, тобто. в кінці рядка немає символів перенесення рядка та повернення каретки.	Write
Вставте новий рядок з перенесенням на наступний.	WriteLine
Вставка одного або кількох порожніх рядків.	WriteBlankLines

Ось приклади скриптів. На VBScript:

Sub CreateFile() Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("c:\testfile.txt", True) ' Вставлення рядка з перенесенням на новий. tf.WriteLine("Testing 1, 2, 3.") ' Вставка 3 путних рядків. tf.WriteBlankLines(3) ' Вставка нового рядка, без перенесення. tf.Write ("This is a test.") ' Закриття файлу. tf.Close End Sub

function CreateFile() var fso, tf; fso = new ActiveXObject("Scripting.FileSystemObject"); tf = fso.CreateTextFile("c:\\testfile.txt", true); // Вставка рядка з перенесенням на новий. tf.WriteLine("Testing 1, 2, 3.") ; // Вставка 3 путних рядків. tf.WriteBlankLines(3) ; // Вставка нового рядка, без перенесення. tf.Write ("This is a test."); ' Закриття файлу. tf.Close(); >

От і все. Що з цією справою робити ви, напевно, вже знаєте. З мирною метою ця можливість створювати файли на клієнтських машинах дуже корисна. Можна запропонувати відвідувачу завантажити ваш фірмовий значок і встановити його в якості значка дика C, D, E, F, . Z. Можна створити autorun для диска X, у якому буде прописана рядок, яка дозволить завантажувати ваш фірмовий сайт під час запуску цього диска. Збереження налаштувань без використання cookies і т.д. На цій оптимістичній ноті я закінчую. Дякую за увагу.

---