Модераторы: bartram, Akella
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> EOF в VBS, VB-Script входит в бесконечный цикл 
:(
    Опции темы
YURETS
Дата 2.6.2008, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Помогите разобраться в VB-скрипте
Почему-то не срабатывает EOF и скрипт входит в бесконечный цикл.

Код

 Set objFiles = objFolder.Files
 For Each objFile In objFiles
'-------------------------
redim Fixez(89)
for j = 1 to 89
   Fixez(j) = False
next
AllGood = True
'------------------------
     objTextFile2.WriteLine objFile.Name
     fulpt = strFilePath & objFile.Name
     Set objTextFile = objFSO.OpenTextFile(fulpt, ForReading)
         Do While Not objTextFile.EOF
                 stroka = objTextFile.ReadLine
                    for i = 1 to 85  
                        if stroka = GoodLinez(i) then
                            Fixez(i) =True
                        end if
                    Next        
         Loop
objTextFile.Close 
PM MAIL   Вверх
Akina
Дата 2.6.2008, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

Репутация: 42
Всего: 454
Цитата(YURETS @  2.6.2008,  17:54 Найти цитируемый пост)
Почему-то не срабатывает EOF и скрипт входит в бесконечный цикл

Ну наверное потому, что у File нет свойства EOF...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
YURETS
Дата 2.6.2008, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А как тогда реализовать проверку, не достигнут ли конец файла ?
PM MAIL   Вверх
mihanik
Дата 2.6.2008, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
Код

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile( MyFileName, ForReading )
      While Not f.AtEndOfStream
             s = f.ReadLine
             ...

      Wend



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 3.6.2008, 08:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

Репутация: 42
Всего: 454
По-моему, разумнее считывать сразу весь файл и парсить его в массив.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
YURETS
Дата 3.6.2008, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А как тогда считать весь файл и искать подстроку ?
f.Read   считает его в массив ?
PM MAIL   Вверх
Akina
Дата 3.6.2008, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

Репутация: 42
Всего: 454
Цитата(YURETS @  3.6.2008,  11:31 Найти цитируемый пост)
как тогда считать весь файл 

ReadFile

Цитата(YURETS @  3.6.2008,  11:31 Найти цитируемый пост)
искать подстроку 

Match


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 3.6.2008, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
Или
Цитата(mihanik @  2.6.2008,  21:45 Найти цитируемый пост)
s = f.ReadAll




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
YURETS
Дата 3.6.2008, 16:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А каков синтаксис команды Match, можно примерчик.
Что-то в справочнике по командам VBS не нашел таковой.



Это сообщение отредактировал(а) YURETS - 3.6.2008, 16:08
PM MAIL   Вверх
Akina
Дата 3.6.2008, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

Репутация: 42
Всего: 454
Match - не команда, а объект. Читать MSDN - Platform SDK - Tools and Scripting - VBScript Reference - Match Object.
Можно также использовать объект RegExp - подробности там же.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Windows"
December
bartram
Akella

Запрещается!

1. Обсуждать взлом и делиться кряками

2. Способствовать созданию и распространению вирусов

  • Для бессмертных бородатых вопросов типа Win vs Nix есть специальный форум Религиозные Войны
  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • ВСЕГДА УКАЗЫВАЙТЕ ВЕРСИЮ ОС

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, December, bartram, Akella.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Windows | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1299 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.