Ответ
 
Опции вопроса Поиск в этом вопросе Опции просмотра
  #1  
Старый 30.09.2011, 00:19
Аватар для Guest
Guest
Вопрос
Сообщений: n/a
По умолчанию

Сталкнулся с серьёзной пролемойне могу возпользоватся GETсначала заметил неполадки когда писал свой макрос и не мог понять в чем ошибаюсь но потом беру прям пример из хелпа и "О чюдо - тоже не работает" тут то я подумал что чтото не ладное - попробуйте запустить макрос у себяСборка у меня 2.2 infra под ВиндуВозникает такая ошибкаОшибка времени выполнения BasicОшибка устройства ввода/выводаКод:Пример:Sub ExampleRandomAccessDim iNumber As IntegerDim sText As Variant REM Должно быть VariantDim aFile As StringaFile = "c:\data.txt"iNumber = FreefileOpen aFile For Random As #iNumber Len=32Seek #iNumber,1 REM Позиция в началеPut #iNumber,, "Это первая строка текста" REM Заполнение строки текстомPut #iNumber,, "Это вторая строка текста"Put #iNumber,, "Это третья строка текста"Seek #iNumber,2Get #iNumber,,sTextPrint sTextClose #iNumberiNumber = FreefileOpen aFile For Random As #iNumber Len=32Get #iNumber,2,sTextPut #iNumber,,"Это новый текст"Get #iNumber,1,sTextGet #iNumber,2,sTextPut #iNumber,20,"Это текст в записи 20"Print Lof(#iNumber)Close #iNumberеnd sub
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
Проблеммы с WoW 2 Guest Новый архив 5 0 16.03.2012 13:33
Проблеммы с WoW Guest Новый архив 5 0 16.03.2012 12:11
проблеммы при установке! Guest Продолжение старого архива 0 17.10.2011 05:33
проблеммы с cron Guest Продолжение старого архива 0 16.10.2011 15:33
QT3 - проблеммы Guest Новый архив 2 0 29.09.2011 20:34



© www.otvetnemail.ru - Форум вопросов и ответов.