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)