ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие файлов на удалённом ПК
15 сообщений из 15, страница 1 из 1
Открытие файлов на удалённом ПК
    #36633860
Gray_Wolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gray_Wolf
Гость
Нужно прочитать логи на удалённых серверах
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    For i =  1  To counts_serv
        Open "\\" + arr_serv( 1 , i) + "\" + log_r_path + "\log.log" For Input As #i
        While Not EOF(i)
        Line Input #i, buf
        grid_w(i,  2 , buf)
        Wend
        Close #i
    Next i
Но беда в том что связь с ними идёт через интернет и он может периодически падать...
Как можно сделать так чтобы в случае отсутствия связи, в buf заносилась строка "Нет связи" ?
...
Рейтинг: 0 / 0
18.05.2010, 12:49
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633862
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Про On Error слышали?
...
Рейтинг: 0 / 0
18.05.2010, 12:50
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633910
Gray_Wolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gray_Wolf
Гость
конечно слышал, но если связи нет с 2-я компами подряд то On Error почему-то не срабатывает (попробуйте открыть например в цикле несуществующие файлы)
...
Рейтинг: 0 / 0
18.05.2010, 13:11
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633917
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
У меня почему-то все работает как я хочу. Видимо это от кривизны рук зависит.
...
Рейтинг: 0 / 0
18.05.2010, 13:14
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633923
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Gray_Wolfконечно слышал, но если связи нет с 2-я компами подряд то On Error почему-то не срабатывает (попробуйте открыть например в цикле несуществующие файлы)

В вашем приведенном коде On Error нет, поэтому ничего умного сказать не можем.
...
Рейтинг: 0 / 0
18.05.2010, 13:17
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633927
Gray_Wolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gray_Wolf
Гость
Вот пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
с =  2 
   For i =  1  To с
    On Error GoTo err
    Open "ZP:\file.file" For Input As #i
    While Not EOF(i)
    Line Input #i, buf
    Wend
    Close #i
err:
    Next i
Если c=1 то On Error отрабатывает как надо, а вот если c=2 получаю ошибку. (файл ZP:\file.file само собой не существует)
...
Рейтинг: 0 / 0
18.05.2010, 13:19
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633934
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Resume где???
...
Рейтинг: 0 / 0
18.05.2010, 13:22
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633935
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AntonariyВидимо это от кривизны рук зависит.

+1
...
Рейтинг: 0 / 0
18.05.2010, 13:22
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633946
Gray_Wolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gray_Wolf
Гость
Shocker.Pro Resume где???
Вы имеете ввиду On Error Resume Next ?
Если да то в этом случае после отлова ошибки прога сначала попытается прочитать неоткрытый файл, а потом ещё и попытается его закрыть. Такими темпами и всю систему подвесить недолго...
...
Рейтинг: 0 / 0
18.05.2010, 13:26
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633958
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
    с =  2 
    On Error GoTo err
    For i =  1  To с
        Open "ZP:\file.file" For Input As #i
        While Not EOF(i)
            Line Input #i, buf
        Wend 'омг
        Close #i
skip:
    Next i
err:
Resume skip
...
Рейтинг: 0 / 0
18.05.2010, 13:32
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36633967
Gray_Wolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gray_Wolf
Гость
2 Antonariy спасибо, не знал.
...
Рейтинг: 0 / 0
18.05.2010, 13:34
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36634000
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Gray_WolfВы имеете ввиду On Error Resume Next

Нет, я имел ввиду именно Resume (Antonariy уже подсказал).
Когда вы запускаете обработчик ошибок, он должен явно завершиться командой Resume прежде, чем будет продолжена основная работа. ТщательнЕй RTFM
...
Рейтинг: 0 / 0
18.05.2010, 13:45
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36634010
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
или так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
    с =  2 
    On Error Resume Next
    For i =  1  To с
        Open "ZP:\file.file" For Input As #i
        If Err= 0  Then
            While Not EOF(i)
                Line Input #i, buf
            Wend 'омг
        Else
            buf="Нет связи"
            Err.Clear
        End If
        Close #i
    Next i
    On Error Goto  0
...
Рейтинг: 0 / 0
18.05.2010, 13:48
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36634500
Gray_Wolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gray_Wolf
Гость
Вродебы всё работает, но при попытке соединится с особо тормазнутыми сервами прога зависает и DoEvents не помогает.
Возможно ли какнить ограничить время на попытку подключения? (или может ещё что-нить может помочь?)
...
Рейтинг: 0 / 0
18.05.2010, 16:54
| Ответить | Цитировать | Написать  
Открытие файлов на удалённом ПК
    #36634525
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Gray_Wolf
> Вродебы всё работает, но при попытке соединится с особо тормазнутыми сервами прога зависает и DoEvents не
> помогает.

И ничего не будет помогать. Ты отдал управление ОС. Она теперь занимается опросом доступности удаленного сервера,
обменивается с ним логином/паролем, делает запрос на нужный файл и только после успешных ответов на все моменты система
возвращает тебе хендл открытого файла.

> Возможно ли какнить ограничить время на попытку подключения? (или может ещё что-нить может помочь?)

В принципе можно попробовать, но я не стал-бы этого делать. Потому что это сеть и все эти таймауты забиты в недрах самой
ОС.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.05.2010, 17:04
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие файлов на удалённом ПК
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=128&tid=2159775]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 38ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 215ms
total:  343ms
созд. / загр.: 343ms
x
x
Закрыть


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