Файл в переменную.

[al addin]

Люди, как открыть файл и положить его в переменную типа Binary?

Всем Гуру заранее спасибо!

[GSerg]

Нет такого типа! Binary - этото режим открытия файла. Если нужно стырить файл целиком, то это делается либо так:

Код: Выделить всё

  Dim a() As Byte
  ReDim a(FileLen("MyFile"))
  Open "MyFile" For Binary As #1
  Get #1, , a()
  Close #1


либо так:

Код: Выделить всё

  Dim a As String
  Open "MyFile" For Input As #1
  a = Input(LOF(1), #1)
  Close #1


[al addin]

Супер! Спасибо!

А если мне этот файл надо в таблицу на SQL сервере положить?
Можно тип String использовать?
И смогу ли я потом считать это из базы и записать на диск?

[GSerg]

Можно тип Стринг использовать. А вот массив байт нельзя. И ограничение на длину строки в БД учитывай. Если файл слишком длинный, поле должно иметь тип МЕМО.
А пишется файл на диск просто (предполагается, что строка MyStr содержит взятый из базы текст файла):

Код: Выделить всё

  Open "MyFile" For Output As #1
  Print #1, MyStr;
  Close #1


[al addin]

Спасибо еще раз. Попробую.

Если получится, с меня много пива и сигарет:)

[al addin]

Наверное должно быть так:

Код: Выделить всё

Input #1,a

Так работает...

[GSerg]

Работает. Но читает только первую строку из файла. Для прочтения всего файла это годится, только если файл состоит из одной строки. А вот

Код: Выделить всё

a = Input(LOF(1), #1)


надёжно тырит весь текст. Я же весь код проверял перед постингом

[al addin]

Но не все оказалось так просто, как хотелось бы.

Существует OLE контейнер. Там создан или импортирован OLE объект (к примеру файл Excel). Надо его по нажатии кнопочки положить в базу. А затем, по нажатии другой кнопочки, вытащить в этот объект и предъявить людям.

Я решил сохранить объект в файл, затем его считать в переменную и отправить в базу. Проблема в том, что при такой ерунде теряется формат объекта.

Вот такая задача. Извините, если не с того начал:)