Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Windows [игнор отключен] [закрыт для гостей] / Скрипт / 6 сообщений из 6, страница 1 из 1
20.07.2006, 06:08
    #33865597
vtm
vtm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Помогите есть скрипт
var WshShell = WScript.CreateObject("WScript.Shell");
var objEnv = WshShell.Environment("Process");
var file1 = objEnv("SYSTEMROOT") + "\\system32\\drivers\\etc\\services";
var ForAppending = 8;
var Text = "sapmsPN0 3600/tcp";
var fso = WScript.CreateObject("Scripting.FileSystemObject");
if (fso.FileExists(file1))
{
var txtStream = fso.OpenTextFile(file1,ForAppending, true);
txtStream.WriteLine(Text);
// WScript.Echo( "Text file" + file1 + "extended." );
}
else
WScript.Echo("File" + file1 + "not found.");
Он добавляет стоку sapmsPN0 3600/tcp в файл services
Подскажите как сделать проверку т.е. если в файле уже есть строка то не добавлять новую?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2006, 08:16
    #33865669
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Если прочитать файл и проверить наличие строки, можно сделать выводы.

--



Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2006, 08:44
    #33865731
vtm
vtm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
а пример можно, если не трудно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2006, 09:23
    #33865816
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
function TextStreamTest( )
{
var fso, f, ts, s;
var ForReading = 1, ForWriting = 2, ForAppending = 8;
var TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CreateTextFile( "test1.txt" ); // Create a file.
f = fso.GetFile("test1.txt");
ts = f.OpenAsTextStream(ForWriting, TristateUseDefault);
ts.Write( "Hello World" );
ts.Close( );
ts = f.OpenAsTextStream(ForReading, TristateUseDefault);
s = ts.ReadLine( );
ts.Close( );
return(s);
}

--



Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2006, 12:56
    #33866757
vtm
vtm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Спасиб попробую разобраться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2006, 15:08
    #33867365
maXmo
maXmo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
if(ts.ReadAll().indexOf("sapmsPN0 3600/tcp")>=0)return "строка уже есть";
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Windows [игнор отключен] [закрыт для гостей] / Скрипт / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 428ms
Закрыть
start [/forum/topic.php?fid=26&tablet=1&tid=1509953]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 163ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 203ms
total:  428ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]