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

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

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

Visual Basic 6.0 - Поиск с учетом и без учета pегистpа


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

Hello Dmitry.

22 Jul 04 14:36, Dmitry Miloserdov wrote to Ruslan Demidow:

DM> А вообще, задача поиска текста многократно сложнее обычного бинарного

DM> поиска, так как включает в себя очень много факторов. Я давно искал

DM> библиотеку (и даже сам мечтал сделать) такой search engine, которая

DM> работала бы наподобие поисковых систем (т.е. с учетом морфологии

DM> языка/окончаний/падежей/порядка

DM> слов/кодировки/артиклей/преффиксов/суффиксов). Hо очень быстро

DM> понял, что в одиночку такую сложную тему не поднять.


есть freeware движок lucene с исходными текстами (на java), так что если есть
желание поразбираться...

Anton

* Origin: -== Sibkot Mail Station ==- (2:5000/130.84)

pop3/smtp

Hello Terekhin.

23 Jul 04 14:20, Terekhin Alexandr wrote to all:

TA> Добрых дней и приятных ночей, All!


TA> Подскажите, какой контрол можно приспособить для скачивания почты по

TA> сабжевым протоколам?

TA> WinSock/MSMAPI ?

TA> Можно ли приспособить MSInet?


я вот чего не понимаю, а почему бы не начать с вопроса гуглю "freeware pop3
activeX"?

Anton

* Origin: -== Sibkot Mail Station ==- (2:5000/130.84)

XML

Hello Terekhin.

24 Jul 04 20:14, Terekhin Alexandr wrote to Dmitriy Kozyrev:

TA> OK, обнаружилась, вот интересно msxml.dll есть во всех системах, или всё

TA> таки библиотеку с собой таскать?


ставится в том числе и вместе с IE. отсюда вывод - где есть IE версии 4.0 и
выше - есть и он, правда точную версию предсказать трудно :)

Anton

* Origin: -== Sibkot Mail Station ==- (2:5000/130.84)

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

RD>>> Ясно. Я понял. Хотя было бы классно, если бы можно было в тексте

RD>>> искать как я пpедположил: задаётся стpока поиска состоящая из

RD>>> набоpа символов, и эта чеpез Instr ищется вхождение в тексте

RD>>> любого символа из стpоки поиска. :(

RY>> [F1] Like ?

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

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

Вариант Регекспов специально для меня, который в регекспах ну совсем ничего не понимает. ;)

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

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

if pattern like substring (или if substring like pattern, точно не помню) ;)

Я про эту функцию узнал только полгода назад, не представляю, как я раньше жил без нее. Причем про подобную функцию я спрашивал в эхе и 3, и 2 года назад. В ответ был молчок. ;)
* Origin: 1134 (2:5045/44.13)

Win 3.*

VR> Dima Grinenko пишет:

DG>> *Grinenko* по теме "Win 3.*"

VR> Hе совсем в тему, но. В Виндах есть такая фича - Accessibility

VR> Options. Там в числе прочего - управление указателем мыши с помощью

VR> правого блока клавиш. Если такое уже было в 3.1 - может задействовать

VR> ее и не мучаться?

Hе было такого. Я как-то в 3.1 без мыши так и не смог какое-то приложение из-за этого установить. ;)


* Origin: 1134 (2:5045/44.13)

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

DG>>> Хотя как они печатают на экpан,

DK>> WriteFile(GetStdHandle(STD_HANDLE_OUTPUT), ...)

DK>> или

DK>> WriteConsole

AS> Или, как я подсказывал весной:

AS> Open "con:" For Output As 1

AS> Print #1, "Hello World!"

AS> Close 1

AS> Без апей - поэтому выйдет как раз пять строк :-)


File/Path Access Error. :( Или надо что-то патчить?


* Origin: 1134 (2:5045/44.13)

Re: Mail средствами telnet

From: Victor Kagramanyants <kagr [@] narzan.com>


On Tue, 27 Jul 2004 13:01:40 +0400, Yury Zezegov wrote:

> И все же интересно, существуют ли в винде готовые функции?

И не ищи. Hету. А вот контрлов для эхотага должно быть много.

>Спасибо тебе большое за ТОР!!! Даже ведь не слышал о таком.

Hе за что. :)
RFC1939 рулит :)

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

Пробема под Win NT 2000 XP которой не было под Win 95 98 Me

From: "Коршунов А.М." <amka [@] mh.ru>


Привет всем
Имеется старая порграмма на VB5 без исходников
под 95 98 Me Все работало нормально
под NT 2000 XP не набирается по русски текст в полях ввода
можно например набрать где нить руский текст скопировать и вставить
в поле это проходит нормально а вот набрать непосредственно в
поле ничего не получается вместо к примеру проба выходит несколько черточек
если их скопировать и вставить в другое приложение получается
ïðîáà
в чем может быть дело и как вылечить ?

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

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

Hello, Dmitriy!
You wrote to "A. Skrobov" <A. Skrobov [@] p2.f175.n5020.z2.fidonet.org>to A.

Skrobov on 28 Jul 04 11:16:43:

AS>> Кроме того, там написано: "Любопытно, что даже имея тип Character,

AS>> приложение может отображать свои окошки, например, MsgBox."

AS>> Это не совсем точно - единственное, на что влияет тип Character, - это

AS>> то, что процессу выделяются стандартные хэндлы. Он при этом _ничего_

AS>> по сравнению с типом GUI не лишается, и по-прежнему может рисовать

AS>> _любые_ окошки.

DK> То есть в моей фразе неверна только интонация. :)

Скажем так, она вводит в заблуждение :-)
Формально, конечно, всё верно, но...
* Origin: Ben's bent broom breaks. Bim's bent broom breaks. (2:5080/1003.16)

Re: Инвеpсия в RichEditBox

Hello, Martynov!
You wrote to "A. Skrobov" <A. Skrobov [@] p2.f175.n5020.z2.fidonet.org>to A.

Skrobov on 28 Jul 04 12:22:17:

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

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

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

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

MS> слово \highlightN, работает и ворде и RTB

Действительно, работает. Как-то проглядел его в спецификации...
Тогда сабж делается так:

=========Beginning of the citation==============
Option Explicit

Private Sub Form_DblClick()
With RichTextBox1
.Text = "Мама мыла раму"
.SelStart = 5: .SelLength = 4
.SelColor = vbWhite
Dim RTF As String, pos As Long, pos0 As Long, pos1 As Long
Dim cnt As Long
RTF = .SelRTF
pos0 = InStr(RTF, "colortbl")
pos1 = InStr(pos0, RTF, "}")
pos = pos0
While pos < pos1 - 1
pos = InStr(pos + 1, RTF, ";")
cnt = cnt + 1
Wend
RTF = Left(RTF, pos) + "\red0\green0\blue0;" + Mid(RTF, pos1)
RTF = Replace(RTF, "\pard", "\pard\highlight" & cnt)
.SelRTF = RTF
End With
End Sub

=========The end of the citation================
* Origin: This one is quiet as a mouse. (2:5080/1003.16)