Архив форумов ЦИТФорума

[Snap]

Здравствуйте !

Пишу я Вам вот по какому поводу : у меня есть важный вопрос по Java Script или VBScript !
Как можно импортировать данные из отдельного файла, а точнее конкретную строку(строки) из отдельного файла и присвоить её(их) содержимое переменной ??? И так же наоборот, значение переменной сохранить на определённую строку в фаил (к примеру на 3 строку), но чтобы при этом значения остальных строк остались неизменными ?!
Вот ситуация:

есть фаил
1.txt с содержимым (к примеру):

1: Текст1
2: Текст2
3: Текст3
4: Текст4
5: Текст5

далее создаём переменную, в которую будет присваиваться содержимое одной из строк (к примеру "3" - это будет зависить от значения другой переменной), но желательно, чтобы переменной присваивалось не "3: Текст3", а "Текст3". А хотя это в дальнейшем можно получить из самой переменной (команда substring(... , ...) ).
И кроме того, нужно изменить значение 3-ей строки("3: Текст3") на "3: кпкутжпптаьм" ! Но важно, чтобы другие строки этого файла не изменились при этом !

Если же этого нельзя сделать на JScript, то может быть это можно сделать на VBScript, но тогда необходимо сделать так, чтобы эту переменную можно было использовать в JS ?


Помогите мне, пожалуйста, решить эту проблему ! Я уже что только не пробовал, перебрал кучу документаций, изучив её, но ничего не нашёл... ! Мне это черезвычайно важно ! Ведь сервер, на котором размещён мой сайт не поддерживает CGI и возможности установки прав доступа на FTP(для сохранения данных в *.txt файлы я нашёл другой сервер, который "даёт" 5 Mb, но можно ставить права доступа в папке) ! А другие серверы вешают рекламу, которая не вписывается в дизайн(т.е. баннер 468x60 просто некуда поставить) !


С уважением, Антон [ Admin@SnapWorld.net ] !

[Dae]

На JScript это можно попытаться сделать через объект FileObj, но при этом он очень сильно ругается.
На VBscript примерно так:

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close