Современные решения

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - Прочитать UTF-8 текст


Прочитать UTF-8 текст

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


Есть текстовой UTF-8 файл.
Я открываю его и читаю построчно.
Как прочитать/перекодировать UTF-8 текст?

Сергей


* Origin: Demos online service (2:5020/400)

Re: Прочитать UTF-8 текст

Мы где-то виделись, Sergei?

06 Oct 04 11:35:15 в RU.VISUAL.BASIC Sergei Ho -> All:


SH> Есть текстовой UTF-8 файл.

SH> Я открываю его и читаю построчно.

SH> Как прочитать/перекодировать UTF-8 текст?


Кажися, WideCharToMultiByte(... CP_UTF8 ...).

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: динамический массив классов

Мы где-то виделись, Vladimir?

05 Oct 04 20:56:28 в RU.VISUAL.BASIC Vladimir Kochnev -> All:


VK> в общем столкнулся с такой задачей: надо создать опр. количество

VK> сокетов(которое меняется) и со всех коннектиться. как такое реализовать?

VK> сложность в том, что контролз WinSock надо помещать именно на форме, dim

VK> Sockz() as WinSock сделать нельзя. помогите, как быть.


Для начала в дизайн-тайме выставь контролу sckClient свойство Index в 0. Если
потребуется создать новый контрол:
Load sckClient(i)
Выгрузка контрола:
Unload sckClient(i)

Советую просмотреть статейку http://mastershome.net.ru/vbfaq/b05.htm. Хотя ее
основная идея уже изложена выше. ;)

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Cвой диалог выбоpа шpифтов

Мы где-то виделись, Pavlov?

06 Oct 04 09:27:56 в RU.VISUAL.BASIC Pavlov Andrey -> мне:


PA> Hе вижу в Screen.Fonts информацию pастpовый шрифт или OpenType. А потом

PA> есть еще Printer.Fonts.


Да, я знаю. Поэтому и молчал. :-/

Могу разве что дать совет - посмотреть в MSDN, нет ли среди данных,
передаваемых колбеку апишной функции EnumFonts, искомого параметра - может
быть, он введен в поздних версиях windows. Hапример, там используется
константа TRUETYPE_FONTTYPE = 4; возможно, появилась и соответствующая
константа для OpenType.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: VBAdvance 3.1.1.5

Пpиснилось мне 04 октябpя 04, что Albert Einstein пpиходил к Albert Einstein и
говоpил ему о VBAdvance 3.1.1.5
Пpодолжая пеpеписку с самим собой, скажу:
Сегодня нашел, где гpабли в сабже. Разpаботчики так хитpо пеpемудpили с
защитой, что пpога сама себя выpубает после тpетьего запуска. В pезультате
настpяпал небольшую чистилку pеестpа, ели использовать как лоадеp, то тpиальных
30 дней не истекут никогда, и пpога всегда будет pаботать пpавильно (тулбаp
будет активным). Кому нужен мой лоадеp - шумите. Могу ююкнуть (27 КБ), залить на
http, или отдать скpипт s0m, если кому интеpестно.

С наилучшими пожеланиями, Albert Einstein.
MailTo: enstainATyandexDOTru,
URL: http://www.enstain.da.ru.
* Origin: Imagination is more important than knowledge! (2:4624/8.204)

Re: VB5 vs VB6 vs VB.NET

From: "Gribkov M.N." <gribkov [@] ramon.vsi.ru>



А самое главное в VB6 это WithEvents без которого, часто, как без рук.

Макс


* Origin: Demos online service (2:5020/400)

VBA+MSword

From: "Vladimir. V. Tsel`m" <greenh [@] upp.org.ua>


Заранее извиняюсь за возможный оффтопик, но тут
возникла проблема
Hеобходимо обработать целую кучу Вордовских документов, соответственно на
VBA
Я когда-то писал под Excel, с Word не сталкивался
Подскажите, где что почитать толковое?
Очень желательно на русском.....

--
Люди местные, сами мы не добрые, помогите, кто чем может...


* Origin: Taide Network AS (2:5020/400)

Re: VB5 vs VB6 vs VB.NET

From: Alexander Asyabrik <belmis [@] mail.belpak.by>


Привет, Gribkov.

Вы, было дело, писали, 8:31 21.09.2004:


GMN> А самое главное в VB6 это WithEvents без которого, часто, как без рук.


Это выходит, что в справке по VB5 есть очень грубая ошибка? :)

Dim [WithEvents] varname[([subscripts])] [As [New] type] ...

WithEvents Optional. Keyword that specifies that varname is an object
variable used to respond to events triggered by an ActiveX object.
WithEvents is valid only in class modules. You can declare as many
individual variables as you like using WithEvents, but you can't
create arrays with WithEvents. You can't use New with WithEvents.
--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)

Re: VBA+MSword

From: "Terekhin Alexandr" <didinst [@] rol.ru>


Доброго времени суток, Vladimir.!
Tue, 21 Sep 2004 08:47:00 +0000 (UTC) Вы писали to All :

VVT> Заранее извиняюсь за возможный оффтопик, но тут возникла проблема

VVT> Hеобходимо обработать целую кучу Вордовских документов,

VVT> соответственно на

VVT> VBA

VVT> Я когда-то писал под Excel, с Word не сталкивался

VVT> Подскажите, где что почитать толковое?

VVT> Очень желательно на русском.....

Почитать - *vba*.hlp
Hа русском? Вряд-ли...
А в чём собственно сложность?

Set appWD = CreateObject("Word.Application.8")
appWD.Visible = True
appWD.Documents.Add
'или так:
'appWD.Documents.Open "c:\Твой_файл.doc"

appWD.Application.Keyboard (1049)
appWD.Selection.TypeText Text:="Привет!!!"
appWD.Selection.TypeParagraph
appWD.Application.Keyboard (1033)
appWD.Selection.TypeText Text:="ALL!!!"

И так далее в том-же духе...
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: АлтГТУ - самый еба#утый институт в мире (2:5020/400)

Передача массива в форму

From: "Андрущенко \(Hордлинк\)" <naa [@] arh.ru>


Здравствуйте, All!

Мне нужно в форме пользоваться данными из приватного массива, который
определен в модуле класса, обращающемся к этой форме. Конкретно - на форме
лежит список, и в зависимости от того, на какую строку встали, нужно на
форме отобразить данные из указанного массива. Как это правильно сделать?

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)