Тестирование полезных кодов и примеров

Если Ваш код из темы Готовые решения и полезные коды на Visual Basic 6.0

неправильно собран или неработоспособен, он будет перенесен сюда.

Для доведения кода в рабочее состояние в порядке обсуждения создайте новую тему

2

Сообщение от HackerVlad Dragokas, у тебя в твоих примерах так вообще нет никаких объявлений, не модуль а фуфло

Если ты умеешь пользоваться GitHub, то увидишь что это программа, а не пример. Все объявления находятся в модуле Globals.

Сообщение от HackerVlad Однако хочу заметить, что переписывать структуру на As Long на самом деле совсем не обязательно, вопреки всеобщему мнению можно оставлять As String так как это гораздо проще будет тебе же самому потом работать - не нужно будет всякий раз писать указатели и объявлять ещё дополнительные переменные, не нужно всякий раз писать StrPtr. Это очень удобно, мой вариант удобнее гораздо по количеству кода будет меньше лучше и удобнее. Только объявление API надо As Long в моём варианте и скармливать VarPtr и всё. У меня моя реализация мне больше нравится по юникодности. А так на самом деле работает одинаково конечно. Не знаю зачем надсмехались над моим кодом вообще.

Что за бред сивой кобылы, ты вообще читал код, на который дал ссылку? Там вообще нет и не нужно никаких преобразований. И никакой доп. код по работе с указателями писать под это не нужно. И ты конечно молодец, что нашел ошибку в коде 8-летней давности. Но нахрена этот некропост, если в актуальном коде этой ошибки больше нет.

0

Сообщение от Dragokas Что за бред сивой кобылы

Никакой не бред, мой код гораздо лучше, тем более я привёл доказательства своей правоты. Бред это считать что я видишь ли использую "ансишную" версию структуры, хотя на самом деле эти структуры абсолютно одинаковы, что для юникодной версии, что для ансишной

Добавлено через 2 минуты

Сообщение от Dragokas используется ансишная

Ещё и надсмехался надо мной. Нет такого понятия как ансишная структура или не ансишная, они абсолютно одинаковые на самом деле, сам посмотри вот https://learn.microsoft.com/en... nfilenamea и вот https://learn.microsoft.com/en... nfilenamew ничем не отличаются, разр байтов будет тоже одинаковым, что As Long 4 байта, что As String тоже 4 байта, так какая разница? Никакая. Мой код лучше и проще всё равно.

Добавлено через 3 минуты
Dragokas, ты даже просто не знал, что в юникодных структурах можно As String оставлять и не переделывать на As Long вот и бесишься, что я умнее тебя оказался

0

Сообщение от HackerVlad вот и бесишься, что я умнее тебя оказался

надо последить

0

Как вообще можно было критиковать мой код, если он полностью работает на 100%. Я доказал это реальными примерами. Мне мой код гораздо больше нравится он проще и легче. Зачем переписывать структуру на As Long, меняя все As String я вообще этого не понимаю. Плюс потом ещё объявлять много лишних переменных As String и присваивать их значения в структуре, вообще этого не понимаю, честно. Я доказал что мой код лучше тем что:

1. Не приходится объявлять лишние переменные String и присваивать значения потом через StrPtr
2. Когда в самой структуре находится String а не Long для программиста так удобнее и понятнее
3. Кода становится намного меньше
4. По моей технологии когда я передаю в API структуру через VarPtr не происходит скрытого преобразования структуры всех строк из Юникода в АНСИ, и даже не происходит такой попытки, передача структуры через VarPtr экономит время

Добавлено через 3 минуты
Драгокас этого не знал, такой технологии (я сам её придумал), вот и начал критиковать меня как буд-то я написал что-то плохое и неправильное. Драгокас потому что думал что структуры обязательно надо переписывать на As Long но это бред полный.

0

HackerVlad, 1) зачем ByVal ? 2) это же просто обертка встроенной функции InStr?

0

Сообщение от Catstail 1) зачем ByVal ? 2) это же просто обертка встроенной функции InStr?

1) потому что строка не меняется во время выполнения функции
2) эта функция которая подсчитывает количество подстрок в строке, да конечно, с помощью цикла в котором происходит поиск InStr ровно столько раз сколько будет найдено повторение строк. Например с помощью этой функции можно подсчитать количество строк если искать vbCrLf либо можно подсчитать сколько пробелов например в строке чтобы примерно узнать сколько слов в строке и так далее

0

HackerVlad, строка не меняется. А как это достигается для строковых параметров? Посмотрите на этот код:

Вывод в случае ByVal:

127799820
127800060 - строка пересоздана!

Вывод без ByVal:

127799820
127799820 - передается ссылка

Пересоздание строки - это лишнее время и память.

2

Catstail, вы правы, тогда удалите ByVal из моей функции, спасибо за полезное замечание. Так как вы модератор исправьте мой код.

0

Сообщение от HackerVlad Visual Basic 1 2 3 4 5 6 7 8       ' Очень быстрый поиск подстрок в строке        Do             FirstSearch = InStr(SearchFromTheSymbol, str, SearchSymbol) ' Искать нужную нам подстроку            If FirstSearch > 0 Then                 cnt = cnt + 1                 SearchFromTheSymbol = FirstSearch + LenSearchSymbol             End If         Loop While FirstSearch > 0 ' Выполнять цикл до тех пор, пока будет найдена искомая подстрока

Хочется очень-очень?
А зачем тогда дважды одно и тоже спрашивать в цикле?

1

SergioJek, так это же одно и тоже получится или по твоему скорость как-то изменится?

0

Дважды в цикле вычислять
FirstSearch > 0
или одиножды - сами то как думаете?

0

SergioJek, возможно вы правы, надо будет протестировать скорость, спасибо за полезное замечание

0

Еще вариантик накину )

1

На счет этого

Еще один момент, HackerVlad, ты путаешь справедливую критику и указание на ошибки с переходом на личности.
Я ничего не имею лично против тебя.
Наоборот, спасибо что занимаешься такими сложными вещами и прочим просвещением и поднятием специфических тем.
Однако, если модераторы этого не делают и не говорят, то скажу я один раз:

Когда мы с anny05 задумывали раздел полезных примеров, это была показательная тема. По мере возможностей и сил, каждый пример внимательно проверялся. Если в нем были грубые ошибки или он был частично нерабочий, он целиком переносился в тему тестирования и подробным описанием, где и почему косяк. И возвращался обратно, только после исправления автором всех оплошностей.
В твоем же случае, ну нельзя, категорически нельзя писать на сколь угодно сложные темы, не понимая базиса хотя бы на среднем уровне и выкладывать их на всеобщее обозрение в той теме при наличии грубых ошибок (их еще много, если посмотреть другие твои примеры). Это абсолютно противоположно изначально заложенным принципам для темы закрепа.
Мне больно смотреть, как то что мы создавали, превращается вот ... в "это".

Понимаю, что модераторы сейчас в основном занимаются наведением порядка, и нет того, кто продолжает работать над развитием раздела по VB. Сам я например, вообще не занимаюсь VB последние несколько лет. Но нельзя оставлять это вот так на самотек. Уверен, что если бы я не написал критику, все были бы уверены в корректной работе. И это подается как образцово-показательный пример.

HackerVlad, если занимаешься этими вещами, то напутствие: развивайся не только в одном направлении, работай над критическими ошибками, и не игнорируй критику. Умеешь работать со сложными вещами, сумей преодолеть барьер чтобы сделать и более простые адекватно, без костылей. А если берешь у кого-то примеры сложного, сумей разобраться в них полностью, а не просто скопировать. В полезных примерах, вещи которые работают некорректно, не нужны.

На этом мой лимит времени на этот раздел исчерпан. Не буду говорить, до скорого.

2

Сообщение от Dragokas Мне больно смотреть, как то что мы создавали, превращается вот ... в "это".

Не волнуйся, я больше не буду выкладывать ничего в твой раздел готовых решений, чтобы у тебя больше душа не болела от этого.

0

testuser2, ты зачем начал портить раздел драгокаса с готовыми решениями? у него душа будет болеть)))))

Добавлено через 4 минуты

Сообщение от Dragokas и нет того, кто продолжает работать над развитием раздела по VB. Сам я например, вообще не занимаюсь VB последние несколько лет.

Да тут только один я и развивал раздел VB, последние годы, но больше не хочу, вместо благодарности оплевуху дерьма по рожи получил только.

Добавлено через 3 минуты

Сообщение от Dragokas выкладывать их на всеобщее обозрение в той теме при наличии грубых ошибок (их еще много, если посмотреть другие твои примеры).

Короче старался, развивал раздел, а все мои примеры оказались - это говнокод с кучей грубых ошибок, так что мой код не качайте вообще))))))))))) я 100% больше развивать не буду VB раздел. А кроме меня тут никому это не нужно вообще.

0

HackerVlad, нужно адекватнее относится к критике и не нужно эту тему превращать во флуд.

Сообщение от HackerVlad Да тут только один я и развивал раздел VB, последние годы, но больше не хочу, вместо благодарности оплевуху дерьма по рожи получил только.

Спасибо тебе, но зачем так категорично? Тут и другие пользователи развивают.

Сообщение от HackerVlad Короче старался, развивал раздел, а все мои примеры оказались - это говнокод с кучей грубых ошибок, так что мой код не качайте вообще))))))))))) я 100% больше развивать не буду VB раздел. А кроме меня тут никому это не нужно вообще.

Насчет качества кода не могу ничего сказать, я его не тестирую как раньше - никакого времени и сил не хватит на это. А так можешь почитать даже эту ветку, как я раньше также дотошно (в хорошем смысле) как Dragokas проверял все коды которые попадали в тот раздел. Был тут раньше такой Жора (Антихакер) вот ты мне чем-то его напоминаешь, тоже развивал VB6, но с критикой тоже не очень у него было.

2

0

Сообщение от The trick нужно адекватнее относится к критике

Ты умей различать критику и клевету, одно дело когда просто критикуют код, я это пойму, и исправлю свои ошибки, и совсем другое дело когда тебя обвиняют в преступлении, которого не совершал. Он меня обвинил в нарушении авторских прав, что я слизал полностью весь код и так далее. А меня даже никто не поддержал. Тут все заступаются только за Драгокаса, как я понял. В чём он прав? В том что обклеветал меня? В этом он прав? Это не критика, это клевета уже. Он заявил, что я присваиваю себе чужие труды. Но чужие труды я себе не присваиваю. Меня тут никто не защищает я только сам защищаюсь от таких нападок.

0

Я особо не вдавался в детали истории, кто прав, кто не прав, но такая ситуация впринципе не уникальна, когда возникает срач по поводу критики и плагиата. Но я уже сказал Владу в личке, что он может воспринять эту ситуацию как карму, поскольку неделю назад, на VB-форуме, он как бы выразил свое "разочарование" функциональностью Твин-бейсика, по поводу одной кнопки.. Но я бы просто сказал, что не стоило бы использовать таких терминов как "разочарование", когда речь идет о бетта-релизе сложнейшего проекта, в котором реализовано уже столько, что просто впечатляет.

0