Сталкнулся с серьёзной пролемойне могу возпользоватся 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
|