Конференция VBStreets

**Sice** » 15.02.2007 (Чт) 15:34

Здравствуйте. У меня вопрос, какими способами можно сохранить содержимое TextBox'a в кодировке ANSI !? Подскажите пожалуйста.

**alibek** » 15.02.2007 (Чт) 15:44

Судя по всему, автор в принципе не понимает, о чем он спросил.

**GSerg** » 15.02.2007 (Чт) 15:44

Из содержимого вопроса понятно, что автор вопроса вообще не пытался сохранить это содержимое какими бы то ни было способами.

Автору предлагается привести используемый им в настоящее время код.

**Sice** » 15.02.2007 (Чт) 16:29

Я наслышался на винграде.ру, что сохраняет текст vb в юникоде, поэтому и последовал вопрос, там я не добился ответа, решил спросить тут.

Код: Выделить всё: fileHandle = FreeFile() If cdMain.fileName = "" Then cmdSave.Enabled = False mnuFileSave.Enabled = False MsgNotFindFile = MsgBox("Файл не был найден, сохранение не возможно!", 64, "App") Else Open fileName For Output As #fileHandle MousePointer = vbHourglass strText = txtMain.Text Print #fileHandle, strText MousePointer = vbDefault Close #fileHandle End If

**Sice** » 15.02.2007 (Чт) 16:34

Проблема в том, что Блокнот (Windows) сохраняет файлы например 109 кб, а мой 'редактор' 100 или менее, меня не интересует размер, а интересует именно 'алгоритм' сохранения файла, чтобы размеры файлов совпадались и были одной кодировки.

**GSerg** » 15.02.2007 (Чт) 16:49

Sice писал(а):Я наслышался на винграде.ру, что сохраняет текст vb в юникоде

Хранит, а не сохраняет.

Sice писал(а):Print #fileHandle, strText

Это и есть искомый ответ.

Sice писал(а):Проблема в том, что Блокнот (Windows) сохраняет файлы например 109 кб, а мой 'редактор' 100 или менее

Удивительный редактор, в VB в текстбокс больше 32K не влезет.

**Sice** » 15.02.2007 (Чт) 16:59

Спасибо, а что может послужить заменой TextBox'a в данной ситуации?

**GSerg** » 15.02.2007 (Чт) 17:00

RichTextBox, очевидно.

BV » 15.02.2007 (Чт) 17:05

GSerg писал(а):Удивительный редактор, в VB в текстбокс больше 32K не влезет.

Влезет. Если это Win2k и выше. А если 9x - вроде, 64 КБ влезает.

**Andrey Fedorov** » 15.02.2007 (Чт) 17:09

BV писал(а):Влезет. Если это Win2k и выше.

А там вроде 64, что не сильно больше.

А редактировать можно хоть в PictureBox - какие проблемы...

**Sice** » 15.02.2007 (Чт) 17:12

А какой компонент подключить для использования RichTextBox?

**GSerg** » 15.02.2007 (Чт) 17:14

BV, это ограничение ставит VB. И оно 32K.

**Andrey Fedorov** » 15.02.2007 (Чт) 17:24

GSerg писал(а):BV, это ограничение ставит VB. И оно 32K.

Нет - это общее ограничение для TextBox для Win95/98.

Ты-ж не под ними - попробуй:

Код: Выделить всё: Me.Text1.Text = String(1000000, "Y") & " 346" Debug.Print Len(Me.Text1.Text)

**Amed** » 15.02.2007 (Чт) 17:28

Andrey Fedorov, что понимается под "TextBox для Win95/98"?
Речь идет о ThunderRT6TextBox, как я понимаю.

В Win95/98 есть и другие текстовые поля.

**Sice** » 15.02.2007 (Чт) 17:29

Нашел. Тогда скажите пожалуйста, как можно сохранить Содержимое RichTextBox в юникоде?

спасибо.

**Andrey Fedorov** » 15.02.2007 (Чт) 17:50

Sice писал(а):Нашел. Тогда скажите пожалуйста, как можно сохранить Содержимое RichTextBox в юникоде?

Опять-сохранить где?

Если в переменной, то:

Код: Выделить всё: Dim s As String s = Text1.Text

И в переменной мы имеем unicode.

**GSerg** » 15.02.2007 (Чт) 18:01

Andrey Fedorov
Весь топик про сохранение в файл.
А что касается лимита, VB точно обрезал меньше, чем было разрешено в системе. Где-то есть топик об этом, пока не нашёл.

BV » 15.02.2007 (Чт) 19:07

GSerg писал(а):BV, это ограничение ставит VB. И оно 32K.

То, что ограничение больше 50 КБ - совершенно точно, так как одна из моих программ работала с файлами именно таких размеров, и именно в Win98. В Win2k+ ограничений нет.

GSerg писал(а):Где-то есть топик об этом, пока не нашёл.

Очень хочется взглянуть.

**Andrey Fedorov** » 15.02.2007 (Чт) 20:01

BV писал(а):То, что ограничение больше 50 КБ - совершенно точно, так как одна из моих программ работала с файлами именно таких размеров, и именно в Win98. В Win2k+ ограничений нет.

Ограничение есть - 64K.

BV писал(а):
GSerg писал(а):Где-то есть топик об этом, пока не нашёл.
Очень хочется взглянуть.

А попробовать? Я же пару строчек на эту тему давал - там все видно...

**Andrey Fedorov** » 15.02.2007 (Чт) 20:03

GSerg писал(а):Andrey Fedorov
Весь топик про сохранение в файл.

Сохранение переменной/текста в файл с кодировкой Unicode:

Код: Выделить всё: Public Sub Main() Dim fso As New Scripting.FileSystemObject With fso.CreateTextFile(App.Path & "\Test.txt", True, True) .WriteLine "Проверка" .Close End With End Sub

**GSerg** » 15.02.2007 (Чт) 20:06

Из пушек по воробьям.
http://bbs.vbstreets.ru/viewtopic.php?p=6652014#6652014

**Andrey Fedorov** » 15.02.2007 (Чт) 20:28

GSerg писал(а):Из пушек по воробьям.
http://bbs.vbstreets.ru/viewtopic.php?p=6652014#6652014

Да просто вариантов куча...

Кстати, в моем случае FFFE в начале добавляется на автомате, да и где здесь пушка-то - все проще некуда. Scripting имеется везде - кроме древних 95-ок. За собой можно не таскать.

**_ae_** » 15.02.2007 (Чт) 22:26

Amed писал(а):Andrey Fedorov, что понимается под "TextBox для Win95/98"?
Речь идет о ThunderRT6TextBox, как я понимаю.

В Win95/98 есть и другие текстовые поля.

Между ними не так много отличий, как кажеться

BV, это ограничение ставит VB. И оно 32K.

Легко убедится, что это не так. Впрочем, Andrey Fedorov это показал

BV » 15.02.2007 (Чт) 22:41

Andrey Fedorov писал(а):А попробовать?

Был неправ

Конференция VBStreets

TextBox в ANSI

TextBox в ANSI

Кто сейчас на конференции