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

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

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


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

From: "Andrew Shelkovenko"

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.
www.kolomyagi.spb.ru/~diakin66/rqsr/- RQ Search and Replace
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"

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 (2:5020/175.2)


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

From: "A. Skrobov"

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 (2:5020/175.2)


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

From: "A. Skrobov"

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 (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\"

mastershome.net.ru/vbfaq/f03.htm

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

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


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

Czes'c', All!

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

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


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

From: "Andrew Shelkovenko"

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.
www.kolomyagi.spb.ru/~diakin66/rqsr/- RQ Search and Replace
www.diakin.narod.ru/RQDP/index.html - Rapid-Q documentation Project


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


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

From: Alexander Asyabrik

Привет, 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)



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