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

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

09.11.2025, 20:10. Показов 1417. Ответов 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
768 / 285 / 17
Регистрация: 21.01.2023
Сообщений: 448
09.11.2025, 21:30
Цитата Сообщение от Argus19 Посмотреть сообщение
так и не получилось правильно возвращать строку в формате BSTR из dll
А оно нужно?
1 - должно вернуть указатель.
2 - должно вернуть число.
3 - не очень понял, что это и что должно вернуть, но фраза "поиск вхождений" опять же подразумевает int указатель и\или bool флаг.
0
1386 / 842 / 91
Регистрация: 08.02.2017
Сообщений: 3,585
Записей в блоге: 1
10.11.2025, 03:53
+1 библиотечная тема.) Надо будет посмотреть как будет возможность. Строки это неисчерпаемая тема )
0
 Аватар для Argus19
1427 / 444 / 78
Регистрация: 24.09.2017
Сообщений: 2,525
Записей в блоге: 22
10.11.2025, 06:41  [ТС]
Цитата Сообщение от Mikle Quits Посмотреть сообщение
А оно нужно?
1 - должно вернуть указатель.
2 - должно вернуть число.
3 - не очень понял, что это и что должно вернуть, но фраза "поиск вхождений" опять же подразумевает int указатель и\или bool флаг.
Если строка модифицирована, то её надо вернуть.
1. Вернуть указатель не проблема, но , почему-то строка выглядит не так. Теряется русский алфавит. Пока не придумал, как сохранить форматирование строки. Срабатывает, если передавать из VB указатель на строку, но принимать её как LPWSТR.
2. Число возвращается без проблем.
3. "Поиск вхождений возвращает позицию вхождения, или количество вхождений. Integer
0
1386 / 842 / 91
Регистрация: 08.02.2017
Сообщений: 3,585
Записей в блоге: 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
1427 / 444 / 78
Регистрация: 24.09.2017
Сообщений: 2,525
Записей в блоге: 22
10.11.2025, 08:32  [ТС]
Цитата Сообщение от testuser2 Посмотреть сообщение
Все перечисленные функции не подразумевают модификацию строки, Mikle Quits, уже сказал.
Я знаю. Речь о функциях изменяющих строку, например, .erase(pos, N). Тут пока проблема.
Цитата Сообщение от testuser2 Посмотреть сообщение
Но если надо модифицировать строку, то возвращать надо в BSTR* или тип функции BSTR (без звездочки).
И проблема как раз с этим.
Я многое попробовал, но пока получается что-то не то.
0
 Аватар для Argus19
1427 / 444 / 78
Регистрация: 24.09.2017
Сообщений: 2,525
Записей в блоге: 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
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 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
1427 / 444 / 78
Регистрация: 24.09.2017
Сообщений: 2,525
Записей в блоге: 22
12.11.2025, 10:47  [ТС]
Цитата Сообщение от The trick Посмотреть сообщение
либо если функция объявлена через Declare чтобы избежать конвертации ANSI->UNICODE через PutMem4/GetMem4 по типу:
Попробовал. Действительно оказалось намного проще предыдущей "портянки" кода.
The trick, если предать в функцию строку, в функции преобразовать её в std::wstring str, произвести необходимые манипуляции со строкой и вернуть return SysAllocString(str.c_str()); не будет ли проблем, если размер возвращённой строки окажется больше размера исходной строки?
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
12.11.2025, 12:17
Argus19, каким образом? Возвращенная строка - это уже совсем другая строка.
0
 Аватар для Argus19
1427 / 444 / 78
Регистрация: 24.09.2017
Сообщений: 2,525
Записей в блоге: 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
1386 / 842 / 91
Регистрация: 08.02.2017
Сообщений: 3,585
Записей в блоге: 1
12.11.2025, 13:24
Цитата Сообщение от Argus19 Посмотреть сообщение
Если новая вставка окажется длиннее исходной строки, или я по переданному в функцию адресу запишу новую строку большей длины, VB с этим справится, или рухнет?
По сути дела, в этой функции должна быть защита от "переполнения" строки, иначе нафиг она нужна, эта функция.
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
12.11.2025, 13:39
Argus19, если у тебя строка может изменить длину (в меньшую сторону), то правильнее возвращать другую строку, т.к. Len и LenB будут возвращать прежнюю длину. В большую сторону это вообще не работает.
Если тебе нужно сделать аналог ByRef vbString As String то и передавай BSTR *ppvbString. Я вообще пока не понимаю для чего такая функция нужна. Скажи что функция должна делать в итоге без всяких упрощений. Я скажу как правильнее сделать.
0
 Аватар для Argus19
1427 / 444 / 78
Регистрация: 24.09.2017
Сообщений: 2,525
Записей в блоге: 22
12.11.2025, 13:54  [ТС]
Цитата Сообщение от The trick Посмотреть сообщение
Скажи что функция должна делать в итоге без всяких упрощений. Я скажу как правильнее сделать.
Это так, на всякий случай. В VB есть много строковых функций. Заменять их на библиотечный аналог смысла нет.
Пока не смог придумать ничего интересного. Т.с. мысли на перспективу.
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
12.11.2025, 13:56
Argus19, ну если что-то делаешь конкретно под VB6 то лучше делать с совместимыми типами (BSTR/SAFEARRAY как пример), чтобы удобно с ними работать.
1
12.11.2025, 13:56

Не по теме:

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

0
1386 / 842 / 91
Регистрация: 08.02.2017
Сообщений: 3,585
Записей в блоге: 1
13.11.2025, 01:38
Цитата Сообщение от Argus19 Посмотреть сообщение
Пока не смог придумать ничего интересного.
Ну, допустим функция StartsWith, которая проверяет включает ли строка1 строку2 в своем начале. Это конечно большне к слову не об интересном, а о самом простм. Аналогично функция EndsWith. Эти функции можно легко написать и дополнить функционал строковых функцй. Я вообще вижу строки как хороший тренажер для освоения какого-нибудь нового языка. Естесственно, должна быть какая-то практическая обоснованность и в случае VB она есть - не хватает там строковых функций, поэтому, почему бы не сделать пару-тройку-десятку лишними не будут )
0
 Аватар для Mikle Quits
768 / 285 / 17
Регистрация: 21.01.2023
Сообщений: 448
13.11.2025, 07:49
Цитата Сообщение от testuser2 Посмотреть сообщение
допустим функция StartsWith, которая проверяет включает ли строка1 строку2 в своем начале
Visual Basic
1
StartsWith = left(str1, 1, len(str2)) = str2
0
1386 / 842 / 91
Регистрация: 08.02.2017
Сообщений: 3,585
Записей в блоге: 1
13.11.2025, 07:53
Mikle Quits, у вас получаются издержки на выделение и освобождение временной строки
0
 Аватар для Mikle Quits
768 / 285 / 17
Регистрация: 21.01.2023
Сообщений: 448
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
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru