Совмещение переменных разного типа

@dima-pol · Регистрация: 02.11.2020

Студворк — интернет-сервис помощи студентам

Бинарный файл board.tjb содержит данные (блоки) разного типа (int long sring …)
Всё содержимое бинарного файла я считываю в массив типа Byte
Для поиска строк в блоке текста я использую ф-ю InStr, но для этого приходится сначала «перегнать» блок в строковую переменную.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Integer, l As Long, str As String * 100
 
l = FileLen(«board.tjb»)
ReDim b(l) As Byte
 
get #1,,b
 
str = ""
For i = 101 To 200
     str = str & Chr(b(i))
Next i
 
i= InStr(str, "Component")

А нельзя ли как-то совместить некую строковую переменную с элементами с 101 по 200 массива b , чтобы избежать копирования блока в переменную (некий аналог ссылок из С++) ?

@Pro_grammer · 05.11.2020, 18:23

Сообщение от dima-pol

Sub или Function нe oпpeдeлeны

а как же 33 строка

Сообщение от The trick

Private Function FindSignature( _
ByRef bData() As Byte, _
ByVal lStart As Long, _
ByVal lCount As Long, _
ByRef bSearch() As Byte) As Long

@The trick · 05.11.2020, 18:55

dima-pol, скрин с ошибкой.

@dima-pol · 05.11.2020, 21:04 **[ТС]**

Сообщение от The trick

Проще написать такую

Да, все правильно работает. Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@The trick Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	05.11.2020, 18:55
	dima-pol, скрин с ошибкой. 0