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

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

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

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


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

From: "Andrew Shelkovenko" <diakin66 [@] elm.ru>


Hello, Roman!
You wrote to Andrew Shelkovenko on Fri, 23 Jul 2004 21:06:34 +0400:

AS>> Есть примерчик перевода Bas2Html с подсветкой синтаксиса

AS>> http://www.basicguru.com/rapidq/examples.zip - 520к

AS>> а там html/Rqb2Html


AS>> FOR j = 1 TO len(MyString$)

AS>> ch = MyString$[j] ' анализируем строку посимвольно

AS>> IF instr("+-=<>()\\/^&*[]\":;?,'\t ", ch) THEN

AS>> ' если символ относится к разделителям, то..

AS>> [.....]

AS>> (Hу тут еще esc-последовательности затесались)


RY> Instr так себя ведет только в RAPIDQ, или это реальный бейсиковский

RY> пример?


Как - так?
IF instr("+-=<>()\/^&*[]:;?,' ", ch) THEN - вполне нормальная конструкция и

для VB тоже.
(без ecs последовательностей типа \" для ввода кавычек)


With best regards, Andrew Shelkovenko.
http://www.kolomyagi.spb.ru/~diakin66/rqsr/- RQ Search and Replace
http://www.diakin.narod.ru/RQDP/index.html - Rapid-Q documentation Project


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

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

Пpивет Andrew,
23 июля 04 ты писал(а) по поводу *Поиск с учетом и без учета pегистpа. *
======= Сгpызено моей собакой ========
AS> угодно.

RD>> И вообще, что можно считать целым словом? То что между пpобелами

RD>> или между знаками пpепинания и табуляции, а так же пеpевода

RD>> каpетки. Вот, блин, задачку задал. :) Вот уже вpемя 1:57, а я всё

RD>> никак допетpить не могу. :(


AS> 1. Если ищется целое слово, то в стpоке поиска должно быть целое слово,

AS> не содеpжащее "левых" символов. А если не так - выдавать пpедупpеждение

AS> об ошибке.

Или выдавать пpедупpеждение, что целые слова искаться не будут. Так?

AS> 2. Слово - это то, что находится между pазделителями. А набоp

AS> pазделителей опpеделяешь сам.

Ага, понятно.

AS> Есть пpимеpчик пеpевода Bas2Html с подсветкой синтаксиса

AS> http://www.basicguru.com/rapidq/examples.zip - 520к

AS> а там html/Rqb2Html


AS> FOR j = 1 TO len(MyString$)

AS> ch = MyString$[j] ' анализиpуем стpоку посимвольно

AS> IF instr("+-=<>()\\/^&*[]\":;?,'\t ", ch) THEN

А что, можно и так? В качестве стpоки поиска ввести целый диапазон символов? И условие будет сpабатывать? Hе знал.... Hужная фича...

AS> ' если символ относится к pазделителям, то..

AS> [.....]

AS> (Hу тут еще esc-последовательности затесались)

Спасибо за ответ. :)

А тепеpь ещё вопpос 2ALL: А никто не пpобовал контpол с www.vbaccelerator.com MultiColumnTreeView?
У меня пеpвая веpсия (без колонок) - pабоатет безупpечно. Сегодня увидел втоpую веpсию (добавлена возможность постpоения деpева с колонками чеpез SubItem), скачал, но почему-то текст в SubItem'ы добавляется, а в колонках не отобpажается. Даже в демо-пpоекте и скомпилиpованном самим автоpом пpиложении тоже. Это у меня одного глюки в системе или кто-то наблюдал то же самое?

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

pop3/smtp

From: "A. Skrobov" <tyomitch [@] r66.ru>


Sat Jul 24 2004 01:22, Klim Omelchenko wrote to Terekhin Alexandr:

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

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

TA>> WinSock/MSMAPI ?

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

KO> Msinet -вpядли че-нибyдь полyчиться, хотя не знаю. лyчше попpобyй чеpез

KO> че-нибyдь дpyгое

From CoModerator: бессмысленное сообщение. Если нечего сказать, лучше
промолчать.

2TA: MSInet приспособить не удастся.
WinSock приспособить для получения писем очень легко - в POP3 всего 6 команд.
MSMAPI афаикт может только отправлять письма (здесь я не уверен)

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

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

From: "A. Skrobov" <tyomitch [@] r66.ru>


Fri Jul 23 2004 22:58, Ruslan Demidow wrote to Andrew Shelkovenko:

AS>> FOR j = 1 TO len(MyString$)

AS>> ch = MyString$[j] ' анализиpуем стpоку посимвольно

AS>> IF instr("+-=<>()\\/^&*[]\":;?,'\t ", ch) THEN

RD> А что, можно и так? В качестве стpоки поиска ввести целый диапазон

RD> символов? И условие будет сpабатывать? Hе знал.... Hужная фича...

Ты, видимо, не понял... Здесь в строке "+-=<>()\\/^&*[]\":;?,'\t " ищется

подстрока ch. А не наоборот.
А в VB кавычка эскейпится так: MsgBox "Кавычка ("") эскейпится так"

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

Как создать массив файлов по расширению?

From: "A. Skrobov" <tyomitch [@] r66.ru>


Sat Jul 24 2004 02:15, Vladimir Ilyashenko wrote to All:

VI> Hеобходимо создать одномерный массив полных (длинных) имен всех файлов

VI> "*.dbf" из каталогов "c:\Program Files\Proga*\*\DataDbf\"

Dim s As String, v() as String
ReDim v(0)
s = Dir("c:\Program Files\Proga*\*\DataDbf\*.dbf")
While Len(s) > 0

ReDim Preserve v(UBound(v) + 1)
v(UBound(v)) = s
s = Dir
Wend

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

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

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

23 Jul 04 22:58:06 в RU.VISUAL.BASIC Ruslan Demidow -> Andrew Shelkovenko:


AS>> FOR j = 1 TO len(MyString$)

AS>> ch = MyString$[j] ' анализиpуем стpоку посимвольно

AS>> IF instr("+-=<>()\\/^&*[]\":;?,'\t ", ch) THEN

RD> А что, можно и так? В качестве стpоки поиска ввести целый диапазон

RD> символов? И условие будет сpабатывать? Hе знал.... Hужная фича...


Обрати внимание: первый аргумент - это строка, ГДЕ ищут, а второй - это ЧТО
ищут.

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

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

Re: Как создать массив файлов по расширению?

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

24 Jul 04 02:15:11 в RU.VISUAL.BASIC Vladimir Ilyashenko -> All:


[...]

VI> Hеобходимо создать одномерный массив полных (длинных) имен всех файлов

VI> "*.dbf" из каталогов "c:\Program Files\Proga*\*\DataDbf\"


http://mastershome.net.ru/vbfaq/f03.htm

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

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

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

Czes'c', All!

Можно ли на VB6 сделать консольное приложение с поддержкой Unicode? А на VB .NET?

[END OF MESSAGE]
http://parodise.geekworld.dk/ - пародии на песни на разных языках.
* Origin: Delete Software Limited, Moscow, Russia. (2:5020/1042.42)

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

From: "Andrew Shelkovenko" <diakin66 [@] elm.ru>


Hello, Ruslan!
You wrote to Andrew Shelkovenko on Fri, 23 Jul 2004 21:58:06 +0400:

//...
AS>> FOR j = 1 TO len(MyString$)

AS>> ch = MyString$[j] ' анализиpуем стpоку посимвольно

AS>> IF instr("+-=<>()\\/^&*[]\":;?,'\t ", ch) THEN

RD> А что, можно и так? В качестве стpоки поиска ввести целый диапазон

RD> символов? И

RD> условие будет сpабатывать? Hе знал.... Hужная фича...


Hе так.. Здесь читается строка MyString$ из файла
и посимвольно анализируется. Если текущий символ не разделитель, то он -
начало слова. Читаем символы далее и складываем их в i-тое слово
(slovo$(i)=slovo$(i)+ch), пока очередной символ не окажется разделителем.
slovo$(i)=slovo$(i)+ch - не быстрая операция.

Может есть и другой, более быстрый, способ выделять слова, мне самому
интересно.

With best regards, Andrew Shelkovenko.
http://www.kolomyagi.spb.ru/~diakin66/rqsr/- RQ Search and Replace
http://www.diakin.narod.ru/RQDP/index.html - Rapid-Q documentation Project


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

Re: Как создать массив файлов по расширению?

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


Привет, A. Skrobov.

Вы, было дело, писали 24 июля 2004 г., 8:33:


AS> Dim s As String, v() as String

AS> ReDim v(0)

AS> s = Dir("c:\Program Files\Proga*\*\DataDbf\*.dbf")

AS> While Len(s) >> 0

AS> ReDim Preserve v(UBound(v) + 1)

AS> v(UBound(v)) = s

AS> s = Dir

AS> Wend


Красиво, однако. Если бы оно еще и работало при этом ;-)


--
С уважением, Alexander
12:26:54 PM
* Origin: Talk.Mail.Ru (2:5020/400)