Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Вывод содержимого файла  [new]
Nikolay Gerasimov
Member

Откуда:
Сообщений: 493
имеется файл в который сливается информация.
Необходимо создать в форме элемент управления, который выводил содержимое этого файла всякий раз как оно меняется. Размер файла может достигать порядка до 10kb.
Подскажите оптимальное решение данной задачи?
17 окт 06, 13:12    [3270432]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
автор
в который сливается
что сливается? (текстовая, двоичная и тд)
17 окт 06, 13:22    [3270497]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
пока вы там думаете что сливаете ...
контрол соответствующий формату "слива" обновлять после каждого "слива"
если он (контрол) позволит вам сливать ;)
17 окт 06, 13:28    [3270541]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Nikolay Gerasimov
Member

Откуда:
Сообщений: 493
сливается текстовая информация.
Я сначала рассматривал контрол "поле", однако оно не может отобразить столь большой объем информации.
17 окт 06, 13:36    [3270606]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
рассмотрите RICHTEXT ACTIVEX CONTROL
17 окт 06, 13:41    [3270651]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
Nikolay Gerasimov
сливается текстовая информация.
Я сначала рассматривал контрол "поле", однако оно не может отобразить столь большой объем информации.
10кб не может ???
17 окт 06, 13:42    [3270663]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27549
Nikolay Gerasimov
сливается текстовая информация.
Я сначала рассматривал контрол "поле", однако оно не может отобразить столь большой объем информации.
Просматривать большие тексты удобнее всего через спецальные вьюеры, для примера Notepad, Word. Примеров такого рода (по клику открывать документ) в форуме навалом.
Но если стоит задача просмотра именно в форме, то можно загнать текст в таблицу и просматривать через табличную субформу.
17 окт 06, 13:48    [3270708]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Allll
Member

Откуда:
Сообщений: 1435
Nikolay Gerasimov
сливается текстовая информация.
Я сначала рассматривал контрол "поле", однако оно не может отобразить столь большой объем информации.

Может!
Вы видимо пробовали показывать информацию в поле так: Поле="длинная строка 10кб"?

Текст "сливать" не в файл, а в таблицу, в поле MEMO - примерно 64000 символов. Показать данные в поле можно, например, через =DLookUp("имя MEMO-поля";"Имя Таблицы")
17 окт 06, 13:51    [3270725]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Гаишник
Guest
Nikolay Gerasimov
сливается текстовая информация.
Я сначала рассматривал контрол "поле", однако оно не может отобразить столь большой объем информации.

Да можно хоть сотни килобайт отобразить ...
17 окт 06, 14:12    [3270886]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Nikolay Gerasimov
Member

Откуда:
Сообщений: 493
Может!
Вы видимо пробовали показывать информацию в поле так: Поле="длинная строка 10кб"?
Ваша правда. Я использовал:
Поле_STP_2.Text = Поле_STP_2.Text & Chr(&HD) & Chr(&HA) & Chr(&HD) & Chr(&HA) & strD
Вот тут и выдавало ошибку. Может подскажете лекарство?
17 окт 06, 14:13    [3270903]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Allll
Member

Откуда:
Сообщений: 1435
А этот вариант не подходит?
Allll
Текст "сливать" не в файл, а в таблицу, в поле MEMO - примерно 64000 символов. Показать данные в поле можно, например, через =DLookUp("имя MEMO-поля";"Имя Таблицы")
17 окт 06, 14:54    [3271218]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Nikolay Gerasimov
Member

Откуда:
Сообщений: 493
нет не подходит, все намного сложнее и более усложнять не хочется.
17 окт 06, 15:42    [3271616]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Бенедикт
Member

Откуда:
Сообщений: 2099
Nikolay Gerasimov,
[qout Help]To set or return a control's Text property, the control must have the focus, or an error occurs.[/quot]
Есть свойство по умолчанию Value.
17 окт 06, 15:44    [3271626]     Ответить | Цитировать Сообщить модератору
 Re: Вывод содержимого файла  [new]
Allll
Member

Откуда:
Сообщений: 1435
Как я понял задачу:
- есть текстовый файл, в который вы добавляете информацию. По каким-то причинам это обязательно должен быть файл и это не может быть полем в таблице.
- информация из этого файла должна отображаться в поле
- после добавления информации в этот файл нужно обновить информацию в поле.

Что мы имеем:
- непосредственно записать в стандартное поле строку более 2к мы не сможем, Access ругается
- но можно отобразить в стандартном поле формы MEMO-поле таблицы до 64000 символов. Или придётся использовать сторонние программы (Блокнот) или ActiveX (RichText, Word)

Мне кажется что привязаться к MEMO-полю - самый простой вариант:
- создать в базе таблицу T1 из одного поля M (тип MEMO). Таблиц у вас и так много, одной больше, одной меньше - не принципиально.
- использовать код для обновления:
Sub ОбновитьИнформацию()
Dim strFileContent As String

' прочитать содержимое файла
    strFileContent = File_Contents_Get("D:\Каталог\проба.txt")
' обновить информацию в таблице
    CurrentDb.Execute "UPDATE T1 SET M = '" & strFileContent & "';"
' обновить информацию в поле формы
     Поле.Requery
End Sub

Public Function File_Contents_Get(PathAndFileName As String) As String
' прочитать содержимое файла PathAndFileName
Dim FileNum As Integer
    FileNum = FreeFile
    Open PathAndFileName For Binary Access Read As FileNum
    File_Contents_Get = Input(LOF(FileNum), FileNum)
    Close FileNum
End Function
Код проверенный - работает.
17 окт 06, 16:23    [3271923]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить