Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Textbox больше 65535 символов


Автор: swetik1981 20.10.2010, 09:56
В моей проге имеется текстбокс, в которую пользователь в процессе работы после копирования из своего текста вставляет для дальнейшей обработки строки огромной длины. Какой бы не была строка длины, она мануально нормально вставляется и прокручивается в текстбоксе. Но вот "забрать" из этого текстбокса можно только первые 65535 символов. 
Это меня не устраивает. Можно как-то забрать всю строку (может быть что-то из АПИ)? 
Сразу оговорюсь, что ричтекстбокс тоже не подходит - строки могут быть больше, чем позволяет даже этот контрол. 

Автор: Akina 20.10.2010, 12:55
Цитата(swetik1981 @  20.10.2010,  10:56 Найти цитируемый пост)
 "забрать" из этого текстбокса можно только первые 65535 символов. 

А чем и зачем забирать?
Какой вообще глубинный смысл сего действа?

Автор: swetik1981 20.10.2010, 16:41
Цитата

А чем и зачем забирать?
Какой вообще глубинный смысл сего действа?


Смысл сего действа в том, чтобы дальше с введённым текстом работать.

Код

Dim allString as string
allString=TextBox1.Text


и дальше идут программы обработки текста.

Всё работает, если ведённый (скопированный и вставленный) текст меньше обозначенной длины, но в моей программе он может достигать нескольких десятков мегабайт. Можно было бы отцепиться и искать другое решение, если бы многомегабайтный текст вообще не вставлялся в текстбокс. Но он вполне нормально туда вставляется (не обрезается), прокручивается, редактируется. Но в вышеуказанном примере allString будет содержать только 65535 символов. Ну неужели нельзя каким-то обходным путём поместить в allString весь текст, содержащийся в текстбоксе?

Автор: Akina 20.10.2010, 17:43
а зачем его туда вставлять? почему нельзя по нажатию кнопки прямо взять его из клипборда? зачем промежуточный текстбокс?

Добавлено через 7 минут и 29 секунд
Если надо - можно реагировать на взятие текста из клипборда - например, выводить на форму кол-во байтов принятого текста...

Автор: ~FoX~ 21.10.2010, 11:34
Цитата(swetik1981 @  20.10.2010,  17:41 Найти цитируемый пост)
Но в вышеуказанном примере allString будет содержать только 65535 символов. 


Цитата

String Data Type
There are two kinds of strings: variable-length and fixed-length strings. 
A variable-length string can contain up to approximately 2 billion (2^31) characters.
A fixed-length string can contain 1 to approximately 64K (2^16) characters. 

Автор: swetik1981 21.10.2010, 13:31
Цитата(~FoX~ @ 21.10.2010,  11:34)
Цитата(swetik1981 @  20.10.2010,  17:41 Найти цитируемый пост)
Но в вышеуказанном примере allString будет содержать только 65535 символов. 


Цитата

String Data Type
There are two kinds of strings: variable-length and fixed-length strings. 
A variable-length string can contain up to approximately 2 billion (2^31) characters.
A fixed-length string can contain 1 to approximately 64K (2^16) characters. 

К чему приведена эта цитата? Для allString не задавалось фиксированной длины. Причём если я забиру из текстбокса обрубок текста длиной 65535 символов:
Код

allString=textbox1.text
потом программно добавлю к нему ещё пять символов:
Код

allString=allString+"ля-ля"
длина текста увеличится на 5 символов, т.е. станет 65540.
Лело не в переменной, а в свойстве тексбокса...

Автор: Akina 21.10.2010, 14:47
swetik1981
Долго думал.
Не выдержал. 
Создал новый проект - один текстбокс, одна кнопка.
Код

Private Sub Command1_Click()
Dim s As String
s = Text1.Text
Debug.Print Len(s)
End Sub

Запустил. Сунул в текстбокс через клипборд ба-а-а-льшой текст. Жмакнул кнопку. В окне отладки - цифирь в три с хвостом миллиона.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)