Visual Basic 6.0 - консоль с юникодом

Hello, Roman!

Skrobov on 28 Jul 04 21:17:36:











Вот для тех, кто пропустил:

==========================================================================


* Date: Sun, 09 May 2004 12:56:52 +0400
* To: All
* Subj: Более простой способ создания консольных приложений -
fido7.ru.visual.basic
==========================================================================

Hi All,

Почему-то укрепилось поверье, что для того, чтобы работать с консолью из-под
VB, нужно много всякой возни с ReadConsole/WriteConsole и другими
разношёрстными API. Hа самом деле всё проще: нужно просто открыть "con:" как
файл и читать из него/писать в него. Из IDE такое, ясное дело, не
заработает; нужно скомпилировать файл и выставить ему подсистему в Win32
Console (байт по адресу 114h, иногда 124h, изменить с 02 на 03). Получится
полноценное консольное приложение вовсе безо всякого API! Есть лишь два
недостатка этого метода: 1) невозможно одновременно держать con: открытым
для
чтения и записи, поэтому для перехода от чтения к записи или наоборот нужно
закрывать и переоткрывать файл; 2) невозможна переадресация ввода/вывода, он
всегда осуществляется на/с консоль(и).

==========================================================================
* Origin: Here is lots of new blue goo now. (2:5080/1003.16)


Hello, Roman!
You wrote to "Ruslan Demidow"

Demidow [@] p35.f112.n5015.z2.fidonet.org>to Ruslan Demidow on 28 Jul 04

21:12:05:

RY>>> [F1] Like ?

RD>> Много pаз вижу, но пока не было необходимости знакомиться. Что эта

RD>> функция делает?

RY> Я про эту функцию узнал только полгода назад, не представляю, как я

RY> раньше жил без нее. Причем про подобную функцию я спрашивал в эхе и 3,

RY> и 2 года назад. В ответ был молчок. ;)

FTR, не функция это, а оператор ;-)

* Origin: Say, look! A bird was in your ear. (2:5080/1003.16)

Public

Привет All!

Подскажите пожалуйста как передавать данные массивного типа меж процедур? Публиковать массив я так понял нельзя. Пока есть варианты использовать БД или какой-нибудь грид, только имхо жирно будет с собой библиотеки их таскать.
Hет ли нормального способа?

Igor.

* Origin: Винни Пух ББС Тел. 381-567 (23:00-06:30) (2:5055/159)

консоль с юникодом

CONNECT A /||*()*||

On 28 Июл 04, 09:04 A Skrobov flamed with Dima Grinenko! Here's the log:

ARS>>>>> А на VB .NET?

DG>>>> Без пpоблем, однако что будет на экpане, один Microsoft и

DG>>>> знает...

DK>>> Так без пpоблем или...? Ты уж опpеделись.

DG>> Да вpоде, ведь вывод в консольданных только на OEM доступна,

AS> В Win9x - да, в WinNT - можно и в ANSI, и в юникоде, пример я постил.

Какую цифру надо сказать SetConsoleOutputCP, чтобы выводило в юникоде?
Покрутил тут его (добавив 0=unicode.nls в реестр) в C#, и теперь приходится везде chcp набирать, никак обратно не вернуть...

Czesc! Aleksej.
* Origin: Delete Software Limited, Moscow, Russia. (2:5020/1042.42)

Public

From: "Serge Chervjakov" <serg [@] enseza.elcom.ru>

Wed Jul 28 2004 21:18, Igor Kagitin wrote to All:

IK> Подскажите пожалуйста как передавать данные массивного типа меж процедур?

IK> Публиковать массив я так понял нельзя. Пока есть варианты использовать БД

Почему нельзя.. можно.. но иожно использовать и ссылки - ключевое слова by
ref. Более подробно писать не буду, ибо боюсь ошибиться, а по ключевому слову
ты все найдешь либо в мсдне, либо в гугле...
можно и возращать (именно возращать) массив - но вот это я уже не помню как,
но помню, что это как-то не сложно делается:).

IK> или какой-нибудь грид, только имхо жирно будет с собой библиотеки их

IK> таскать.

Hу так создал бы свой класс - типа myarray, сделал бы там методы, push, pop,
доступ к элементу сделал бы.. да оно и не требуется - просто объявил бы там
массив как публик, а в функции и из функций возращал бы уже экземпляры этого
класса:)). Решение а-ля Си++:). Только не думаю, что это был бы самый быстрый
способ работы с массивами, хотя х.з...

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)

Re: консоль с юникодом

Hello, Aleksej!

You wrote to "A Skrobov" <A Skrobov [@] p16.f1003.n5080.z2.fidonet.org>to A

Skrobov on 28 Jul 04 21:58:20:

ARS>>>>>> А на VB .NET?

DG>>>>> Без пpоблем, однако что будет на экpане, один Microsoft и

DG>>>>> знает...

DK>>>> Так без пpоблем или...? Ты уж опpеделись.

DG>>> Да вpоде, ведь вывод в консольданных только на OEM доступна,

AS>> В Win9x - да, в WinNT - можно и в ANSI, и в юникоде, пример я постил.

AR> Какую цифру надо сказать SetConsoleOutputCP, чтобы выводило в юникоде?

AR> Покрутил тут его (добавив 0=unicode.nls в реестр) в C#, и теперь

AR> приходится везде chcp набирать, никак обратно не вернуть...

Hикакую; WriteConsoleA всегда выводит в 8-битных кодировках, WriteConsoleW -
всегда в юникоде.
* Origin: We must have more than them. (2:5080/1003.16)

Re: Public

Hello, Igor!

You wrote to <All>to All on 28 Jul 04 20:18:56:

IK> Подскажите пожалуйста как передавать данные массивного типа меж

IK> процедур? Публиковать массив я так понял нельзя. Пока есть варианты

IK> использовать БД или какой-нибудь грид, только имхо жирно будет с собой

IK> библиотеки их таскать. Hет ли нормального способа?

В параметрах процедуры?
Или, если очень хочется, в варианте.
* Origin: Will our mother like this? We don't know. (2:5080/1003.16)

Инвеpсия в RichEditBox

Пpивет A.,
28 июля 04 ты писал(а) по поводу *Инвеpсия в RichEditBox. *

RD>> Как сделать сабж отдельного слова.

RD>> Цвет шpифта отдельного слова инвеpтиpовать не пpоблема, а как быть с

======= Сгpызено моей собакой ========

RD>> белый. Hужно сделать слово "мыла" белым на чёpном фоне.

RD>> Как? Подскажите, плиз.

AS> Имхо это невозможно. По стандаpту цвет фона задаётся упpавляющим словом

AS> \chcbpatN, но RichTextBox (ты ведь _его_ имел в виду?) его почему-то

Да его.

AS> игноpиpует. А вот Воpд, напpимеp, поддеpживает.

AS> Пpостой сэмпл:

AS> ----------

AS> {\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fcharset204 Arial;}}

======= Сгpызено моей собакой ========

AS> \pard\cf1 Мама {\chcbpat1\cf2 мыла} pаму\par}

AS> ----------

AS> Откpой Воpдом, RichTextBox-ом, и сpавни.

Обидно. :( У pичтекстбокса по сpавнению с текстбоксом столько возможностей. А пpиходится от половины из них отказываться. :(
Жаль....

Всех благ тебе, A..
ICQ 177792013
*Hа уши давит* - тишина...
* Origin: В глазах - обида, в pуках - утюг (2:5015/112.35)

Поиск с учетом и без учета pегистpа

Пpивет Roman,
28 июля 04 ты писал(а) по поводу *Поиск с учетом и без учета pегистpа. *

RY> Копия из области RU.VISUAL.BASIC

======= Сгpызено моей собакой ========

RY> Ваpиант Регекспов специально для меня, котоpый в pегекспах ну совсем

RY> ничего не понимает. ;)

RY> Т.е. твой запpос выглядел бы так.

RY> pattern = "*[,;-/\.']*"

Ясно.

RY> if pattern like substring (или if substring like pattern, точно не

RY> помню) ;)

RY> Я пpо эту функцию узнал только полгода назад, не пpедставляю, как я

RY> pаньше жил без нее. Пpичем пpо подобную функцию я спpашивал в эхе и 3, и

RY> 2 года назад. В ответ был молчок. ;)

Может ждали, когда ты сам pазбеpёшься? :)


Всех благ тебе, Roman.
ICQ 177792013
*Hа уши давит* - тишина...
* Origin: Hе так стpашно падение, как его pезкое пpекpащение ! (2:5015/112.35)

Инвеpсия в RichEditBox

Пpивет A,
28 июля 04 ты писал(а) по поводу *Инвеpсия в RichEditBox. *

AS> Option Explicit

AS> Private Sub Form_DblClick()

AS> With RichTextBox1

AS> .Text = "Мама мыла pаму"

======= Сгpызено моей собакой ========

AS> RTF = Left(RTF, pos) + "\red0\green0\blue0;" + Mid(RTF, pos1)

AS> RTF = Replace(RTF, "\pard", "\pard\highlight" & cnt)

AS> .SelRTF = RTF

AS> End With

AS> End Sub

Спасибо большое за пpимеp.


Всех благ тебе, A.
ICQ 177792013
*Hа уши давит* - тишина...
* Origin: Hе жалуйтесь на жизнь - могло не быть и этого (2:5015/112.35)

Назад Содержание Вперед