VPF::скрипт не работает!!!!!!!!!!!!!!!!!! - Форум программистов

Angelinka

Дата 15.11.2007, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.11.2007

Репутация: нет
Всего: нет

здравствуйте! Помогите, пожалуйста. я начинаю только писать скрипты. написала одан, а он не идет
Нужно скриптом вытягивать из файлов нужные столбцы и записыввать в другой файл и нужном виде.
Вот что у меня получилось. Но он не работает.

Код


LogDirPath = "C:\Program Files\TrafInsp\Log\"
Set Args = WScript.Arguments.Unnamed
If Args.Count <> 1 Then
       WScript.Echo "??? usage: cscript.exe billing.vbs DaysAmount, ObjectType /sn:ServerName"        
       WScript.Quit        
End If
DayAm = CInt(Args(0))
Set fso = CreateObject("Scripting.FileSystemObject")
Set LogDir = fso.GetFolder(LogDirPath)
Set LogFolders = LogDir.SubFolders
For Each LFolder In LogFolders
       WScript.Echo LFolder.Name
       Set LogFiles = LFolder.Files
       For Each LFile In LogFiles
               If (LFile.DateLastModified < DateAdd("d",-DayAm,Date)) And (Right(LFile.Name,3) = "log") Then
                       FileRO = LFile.attributes And 1
                       If FileRO = 0 Then
                               WScript.Echo "  Обрабатывается " & LFile.Name & "  " & DateValue(LFile.DateLastModified) & "..."
                       LFile.APILogon(APIPass)
BillData = LFile.ApiGetBilling(ObjType, ObjID)
If Not IsArray(BillData) Then
      WScript.Echo "Нет данных"        
      WScript.Quit        
End If
If IsArray(BillData(0)) Then
       For I = 0 To UBound(BillData, 1)
               Data = BillData(I)
               WScript.Echo Data(0) & Chr(9) & Data(1) & Chr(9) & Data(2) & Chr(9) & Data(3) & Chr(9) & Data(4) & Chr(9) & Data(5)
       Next
Else
       WScript.Echo "login" & Chr(9) & BillData(0)
       WScript.Echo "recv" & Chr(9) & BillData(1)
       WScript.Echo "sent" & Chr(9) & BillData(2)
       WScript.Echo "starttime" & Chr(9) & BillData(3)
       WScript.Echo "stoptime" & Chr(9) & BillData(4)
       WScript.Echo "ipdest" & Chr(9) & BillData(5)
       WScript.Echo "ipsour" & Chr(9) & BillData(6)
       WScript.Echo "portsour" & Chr(9) & BillData(7)
       WScript.Echo "protocol" & Chr(9) & BillData(8)
       WScript.Echo "attributes" & Chr(9) & BillData(9)
End If
                       Else
                               WScript.Echo "  Невозможно обработать файл " & LFile.Name & "  " & DateValue(LFile.DateLastModified) & " - предназначен только для чтения."
                       End If
               End If
       Next
Next
WScript.Echo "Обработаны все логи до " & DateAdd("d",-DayAm,Date) & "."

помоите!!!!!!!!

Это сообщение отредактировал(а) Akella - 15.11.2007, 16:17

Akina

Дата 15.11.2007, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 42
Всего: 454

Цитата(Angelinka @ 15.11.2007, 15:30

)

Вот что у меня получилось. Но он не работает.

Неправда. Он работает. Просто не так, как тебе хочется.

Подели код на процедуры и отлаживай их по одной.

И ПОЛЬЗУЙСЯ ТЕГОМ КОД!!! ни хрена прочитать невозможно.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Angelinka

Дата 15.11.2007, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.11.2007

Репутация: нет
Всего: нет

Серьезно! он указывает на ошибку в 4-ой строке. я только закончила универ. скрипт пишу впервые вжизни! и на форуме впервые зарегистрировалась, поэтому как-то получилось три раза одно и то же!!!

Akina

Дата 15.11.2007, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 42
Всего: 454

Цитата(Angelinka @ 15.11.2007, 16:05

)

он указывает на ошибку в 4-ой строке

Если ты еще скажешь, какая именно строка четвертая (в файле скрипта!!!), и в каком символе - будет совсем хорошо.

А сообщения об ошибках принято воспроизводить 1) полностью 2) абсолютно точно.

--------------------

Angelinka

Дата 15.11.2007, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.11.2007

Репутация: нет
Всего: нет

не ругайтесь, пожалуйста. я его запускаю и вылазит сообщение от сервера сценариев windows:

??? usage: cscript.exe billing.vbs DaysAmount, ObjectType /sn:ServerName

Добавлено через 9 минут и 47 секунд
я сделала файл bat. запускаю скрипт через него, а он выдает:
[E:\scripts>echo on
E:\scripts>cd C:\Program Files\TrafInsp\scripts
E:\scripts>cscript.exe billing.vbs 30000 3
Сервер сценариев Windows (Microsoft R) версия 5.6
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.
??? usage: cscript.exe billing.vbs DaysAmount, ObjectType /sn:ServerName
E:\scripts>pause
Для продолжения нажмите любую клавишу . . .]
[/quote]

Akella

Дата 15.11.2007, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 73
Всего: 329

Цитата(Angelinka @ 15.11.2007, 15:05

)

хорошо, хорошо, только не нужно кричать, я имею ввиду все Ваши восклицательные знаки. Ведите себя достойно.

Angelinka

Дата 15.11.2007, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.11.2007

Репутация: нет
Всего: нет

хорошо

а как можно пошагово проследить выполнение скрипта?
почему он может не выполняться?

Akella

Дата 15.11.2007, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 73
Всего: 329

И ещё: на форумах есть понятие тэгов, т.е. твой код нужно было оформить в тегах. Посмотри кнопочки на окном ввода информации.

Angelinka

Дата 15.11.2007, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.11.2007

Репутация: нет
Всего: нет

хорошо. сейчас оформлю(попробую)

Добавлено через 57 секунд
спасибо! поможете?не понимаю, в чем дело.

Добавлено через 4 минуты и 23 секунды
пусть он хоть как-нибудь работает. хоть что-небудь извлекает из файла. а там уже разберусь.

Imple

Дата 16.11.2007, 07:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1546
Регистрация: 14.9.2007
Где: Алма-Ата

Репутация: 5
Всего: 87

Скрипт не выполняется изза аргументов коммандной строки. Это же ясно видно, и к тому-же скрипт вам выводит сообщение, как его правильно надо запускать! Повнимательнее посмотрите сюда:

Код


If Args.Count <> 1 Then
       WScript.Echo "??? usage: cscript.exe billing.vbs DaysAmount, ObjectType /sn:ServerName"        
       WScript.Quit        
End If

Если чесно, я серьезно сомневаюсь что скрипт написали вы, так как вы не знаете что скрипт не будет работать если кол-во аргументов не равно одному.

--------------------

Не шалю, никого не трогаю, починяю сервер.

Angeldnja

Дата 16.11.2007, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.11.2007

Репутация: нет
Всего: нет

Спасибо. я его написала, синтезируя несколько других скриптов. теперь он выдает:

Цитата

с:\Program Files\TrafInsp\scripts\billing.vbs(7, 1) Ошибка выполнения
Microsoft VBScript: Индекс выходит за пределы диапазона

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »