Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
 Аватар для Argus19
1424 / 441 / 78
Регистрация: 24.09.2017
Сообщений: 2,522
Записей в блоге: 22

Библиотека дополнительных строковых функций

09.11.2025, 20:10. Показов 1256. Ответов 25

Студворк — интернет-сервис помощи студентам
К написанию dll на С++ побудила фраза:
Цитата Сообщение от testuser2 Посмотреть сообщение
1) InStr для массивов. Итак, начнем с функции InStr. Не хватает реализации этой функции для массивов, говоря по иному, чтобы функция могла искать блок памяти в другом блоке памяти, реализовать хочу, как поиск любого массива внутри любого массива (не ссылочного ест-но)
На странице:
https://metanit.com/cpp/tutorial/12.6.php
Почитал о возможностях типа С++ std::string. К сожалению, ожидал чего-то фантастического, но так и не увидел. Реализовал:
1). функции поиска вхождения подстроки в строку с начала и конца строки для массивов строк;
2). поиск количества вхождений подстроки в строку;
3). странную функцию поиска вхождений любого набора символов подстроки в строку с начала и конца.
Больше ничего придумать не смог.
В пример кода всё, вроде бы понятно. Если что, отвечу на вопросы.
К сожалению, так и не получилось правильно возвращать строку в формате BSTR из dll.
Вложения
Тип файла: zip Проверка функций.zip (11.8 Кб, 4 просмотров)
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
09.11.2025, 20:10
Ответы с готовыми решениями:

Использование строковых функций
Нужно из введённого текста вывести слова заданной длинны.

Из символов одного текста строковых функций о операций конкатенация получить другой текст
Из символов одного текста с помощью строковых функций о операций конкатенация получить другой...

Сравнение строковых переменных. Где ошибка ?
Задача: Вводятся названия 3-х отелей. Напечатать сообщение о наличии или отсутствии одинаковых...

25
 Аватар для Mikle Quits
759 / 278 / 14
Регистрация: 21.01.2023
Сообщений: 390
09.11.2025, 21:30
Цитата Сообщение от Argus19 Посмотреть сообщение
так и не получилось правильно возвращать строку в формате BSTR из dll
А оно нужно?
1 - должно вернуть указатель.
2 - должно вернуть число.
3 - не очень понял, что это и что должно вернуть, но фраза "поиск вхождений" опять же подразумевает int указатель и\или bool флаг.
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,494
Записей в блоге: 1
10.11.2025, 03:53
+1 библиотечная тема.) Надо будет посмотреть как будет возможность. Строки это неисчерпаемая тема )
0
 Аватар для Argus19
1424 / 441 / 78
Регистрация: 24.09.2017
Сообщений: 2,522
Записей в блоге: 22
10.11.2025, 06:41  [ТС]
Цитата Сообщение от Mikle Quits Посмотреть сообщение
А оно нужно?
1 - должно вернуть указатель.
2 - должно вернуть число.
3 - не очень понял, что это и что должно вернуть, но фраза "поиск вхождений" опять же подразумевает int указатель и\или bool флаг.
Если строка модифицирована, то её надо вернуть.
1. Вернуть указатель не проблема, но , почему-то строка выглядит не так. Теряется русский алфавит. Пока не придумал, как сохранить форматирование строки. Срабатывает, если передавать из VB указатель на строку, но принимать её как LPWSТR.
2. Число возвращается без проблем.
3. "Поиск вхождений возвращает позицию вхождения, или количество вхождений. Integer
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,494
Записей в блоге: 1
10.11.2025, 07:14
Цитата Сообщение от Argus19 Посмотреть сообщение
Если строка модифицирована, то её надо вернуть.
Все перечисленные функции не подразумевают модификацию строки, Mikle Quits, уже сказал.
Но если надо модифицировать строку, то возвращать надо в BSTR* или тип функции BSTR (без звездочки).
Цитата Сообщение от Argus19 Посмотреть сообщение
но принимать её как LPWSТR.
Лучше BSTR*. В коде тоже лучше для создания и освобождения строк использовать апишные функции SysAllocStringByteLen, SysFreeString и т.д. https://learn.microsoft.com/en... ingbytelen
0
 Аватар для Argus19
1424 / 441 / 78
Регистрация: 24.09.2017
Сообщений: 2,522
Записей в блоге: 22
10.11.2025, 08:32  [ТС]
Цитата Сообщение от testuser2 Посмотреть сообщение
Все перечисленные функции не подразумевают модификацию строки, Mikle Quits, уже сказал.
Я знаю. Речь о функциях изменяющих строку, например, .erase(pos, N). Тут пока проблема.
Цитата Сообщение от testuser2 Посмотреть сообщение
Но если надо модифицировать строку, то возвращать надо в BSTR* или тип функции BSTR (без звездочки).
И проблема как раз с этим.
Я многое попробовал, но пока получается что-то не то.
0
 Аватар для Argus19
1424 / 441 / 78
Регистрация: 24.09.2017
Сообщений: 2,522
Записей в блоге: 22
12.11.2025, 08:26  [ТС]
Передать строку в функцию на С++ не проблема. Вернуть строку никак не получается. Переданную строку легко преобразовать в формат, удобный для С++, но, если преобразовать обработанную строку в BSTR, то на стороне VB с ней придётся повозиться. Что очень неудобно.
Вот наброски:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#include <Windows.h>
#include <string>
#include<cstring>
 
using namespace std;
 
extern "C" __declspec(dllexport)
 
const char* __stdcall RetStr()
{
    const char* str = "Иже херувимы";        //"httpы://www.cyberforum.ru/";
//  char* tmp = new char[50]; // инициализируем дополнительный массив
//  CharToOemA(str, tmp); // преобразовываем
//  можно попробовать вернуть указатель на char[50]
    return str;
}
 
unsigned short __stdcall RetStr1(LPWSTR vbString)
{
    if (!vbString) return 1;
 
    // Получаем максимальную длину буфера (предполагаем разумный предел)
    const size_t max_buffer_size = 255;
 
    // Создаем новую строку
    wstring replacement = L"Линия";
 
    // Безопасно копируем в буфер VB
    if (7 + replacement.length() < max_buffer_size) {
        errno_t err = wcsncpy_s(vbString + 7,
            max_buffer_size - 7,
            replacement.c_str(),
            replacement.length());
 
        if (err != 0) {
            return 1;
        }
    }
    return 0;
}
 
BSTR __stdcall CreateString()
{
    return SysAllocString(L"Simple English Text + Русский текст");
}
Вложения
Тип файла: zip Проверка Return Str.zip (7.7 Кб, 2 просмотров)
0
Модератор
10046 / 3892 / 883
Регистрация: 22.02.2013
Сообщений: 5,846
Записей в блоге: 79
12.11.2025, 09:16
Argus19, возвращение BSTR строк делается либо в библиотеке типов тогда просто можно вызвать s = CreateString(), либо если функция объявлена через Declare чтобы избежать конвертации ANSI->UNICODE через PutMem4/GetMem4 по типу:
Visual Basic
1
2
3
Private Declare Sub PutMemBstr Lib "msvbvm60" Alias "PutMem4" (ByVal pDstStr As Long, ByVal pSrcBstr As Long)
...
PutMemBstr VarPtr(Mystr), CreateString()
Проще конечно задекларировать в библиотеке типов и просто вызывать:
Visual Basic
1
Mystr = CreateString()
1
 Аватар для Argus19
1424 / 441 / 78
Регистрация: 24.09.2017
Сообщений: 2,522
Записей в блоге: 22
12.11.2025, 10:47  [ТС]
Цитата Сообщение от The trick Посмотреть сообщение
либо если функция объявлена через Declare чтобы избежать конвертации ANSI->UNICODE через PutMem4/GetMem4 по типу:
Попробовал. Действительно оказалось намного проще предыдущей "портянки" кода.
The trick, если предать в функцию строку, в функции преобразовать её в std::wstring str, произвести необходимые манипуляции со строкой и вернуть return SysAllocString(str.c_str()); не будет ли проблем, если размер возвращённой строки окажется больше размера исходной строки?
0
Модератор
10046 / 3892 / 883
Регистрация: 22.02.2013
Сообщений: 5,846
Записей в блоге: 79
12.11.2025, 12:17
Argus19, каким образом? Возвращенная строка - это уже совсем другая строка.
0
 Аватар для Argus19
1424 / 441 / 78
Регистрация: 24.09.2017
Сообщений: 2,522
Записей в блоге: 22
12.11.2025, 13:13  [ТС]
Цитата Сообщение от The trick Посмотреть сообщение
Возвращенная строка - это уже совсем другая строка.
Тут:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
unsigned short __stdcall RetStr1(LPWSTR vbString)
{
    if (!vbString) return 1;
 
    // Получаем максимальную длину буфера (предполагаем разумный предел)
    const size_t max_buffer_size = 255;
 
    // Создаем новую строку
    wstring replacement = L"Линия";
 
    // Безопасно копируем в буфер VB
    if (7 + replacement.length() < max_buffer_size) {
        errno_t err = wcsncpy_s(vbString + 7,
            max_buffer_size - 7,
            replacement.c_str(),
            replacement.length());
 
        if (err != 0) {
            return 1;
        }
    }
    return 0;
}
Я передаю в функцию указатель на строку из VB и модифицирую её, проверяю длину и копирую в неё новую часть. Если новая вставка окажется длиннее исходной строки, или я по переданному в функцию адресу запишу новую строку большей длины, VB с этим справится, или рухнет?
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,494
Записей в блоге: 1
12.11.2025, 13:24
Цитата Сообщение от Argus19 Посмотреть сообщение
Если новая вставка окажется длиннее исходной строки, или я по переданному в функцию адресу запишу новую строку большей длины, VB с этим справится, или рухнет?
По сути дела, в этой функции должна быть защита от "переполнения" строки, иначе нафиг она нужна, эта функция.
0
Модератор
10046 / 3892 / 883
Регистрация: 22.02.2013
Сообщений: 5,846
Записей в блоге: 79
12.11.2025, 13:39
Argus19, если у тебя строка может изменить длину (в меньшую сторону), то правильнее возвращать другую строку, т.к. Len и LenB будут возвращать прежнюю длину. В большую сторону это вообще не работает.
Если тебе нужно сделать аналог ByRef vbString As String то и передавай BSTR *ppvbString. Я вообще пока не понимаю для чего такая функция нужна. Скажи что функция должна делать в итоге без всяких упрощений. Я скажу как правильнее сделать.
0
 Аватар для Argus19
1424 / 441 / 78
Регистрация: 24.09.2017
Сообщений: 2,522
Записей в блоге: 22
12.11.2025, 13:54  [ТС]
Цитата Сообщение от The trick Посмотреть сообщение
Скажи что функция должна делать в итоге без всяких упрощений. Я скажу как правильнее сделать.
Это так, на всякий случай. В VB есть много строковых функций. Заменять их на библиотечный аналог смысла нет.
Пока не смог придумать ничего интересного. Т.с. мысли на перспективу.
0
Модератор
10046 / 3892 / 883
Регистрация: 22.02.2013
Сообщений: 5,846
Записей в блоге: 79
12.11.2025, 13:56
Argus19, ну если что-то делаешь конкретно под VB6 то лучше делать с совместимыми типами (BSTR/SAFEARRAY как пример), чтобы удобно с ними работать.
1
12.11.2025, 13:56

Не по теме:

Цитата Сообщение от Argus19 Посмотреть сообщение
Пока не смог придумать ничего интересного. Т.с. мысли на перспективу.
Это может быть пустой тратой времени и сил.
Думаю стоит заняться тем что действительно нужно.

0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,494
Записей в блоге: 1
13.11.2025, 01:38
Цитата Сообщение от Argus19 Посмотреть сообщение
Пока не смог придумать ничего интересного.
Ну, допустим функция StartsWith, которая проверяет включает ли строка1 строку2 в своем начале. Это конечно большне к слову не об интересном, а о самом простм. Аналогично функция EndsWith. Эти функции можно легко написать и дополнить функционал строковых функцй. Я вообще вижу строки как хороший тренажер для освоения какого-нибудь нового языка. Естесственно, должна быть какая-то практическая обоснованность и в случае VB она есть - не хватает там строковых функций, поэтому, почему бы не сделать пару-тройку-десятку лишними не будут )
0
 Аватар для Mikle Quits
759 / 278 / 14
Регистрация: 21.01.2023
Сообщений: 390
13.11.2025, 07:49
Цитата Сообщение от testuser2 Посмотреть сообщение
допустим функция StartsWith, которая проверяет включает ли строка1 строку2 в своем начале
Visual Basic
1
StartsWith = left(str1, 1, len(str2)) = str2
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,494
Записей в блоге: 1
13.11.2025, 07:53
Mikle Quits, у вас получаются издержки на выделение и освобождение временной строки
0
 Аватар для Mikle Quits
759 / 278 / 14
Регистрация: 21.01.2023
Сообщений: 390
13.11.2025, 07:56
Медленнее, но без издержек:
Visual Basic
1
2
3
4
StartsWith = true
for i = 1 to len(str2)
  if mid(str1, i, 1) <> mid(str2, i, 1) then StartsWith = false: exit for
next i
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.11.2025, 07:56
Помогаю со студенческими работами здесь

Нужен программный код.«Обработка строковых данных».
Дан текст из цифр и строчных латинских букв, за которым следует точка. Определите, каких букв —...

Обработка строковых данных
Здравствуйте. Помогите вот с этими двумя заданиями : 1. Ввести предложение и слово. Определить...

Быстрое копирование динамических строковых массивов с помощью API
Известен ли способ, скажем с помощью копирования областей памяти API Быстрого копирования...

Передача объёмистых строковых данных между приложениями
Нужно из одного приложения (VB6 Standard EXE) передать в другое приложение (тоже VB6 Standard EXE)...

Портятся значения строковых переменных
Коллеги, есть серьезная проблема: в программе на VB6 самопроизвольно портятся значения строковых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru