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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .
сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .	10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .

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