Как преобразовать байтовый массив (без старших байтов) в строку?

Dragokas · ASC b(0) b(1)

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

Здравствуйте !

Подскажите, пожалуйста,
допустим я создаю файл .txt (кодировка Win-1251)
с текстом "Test" и добавляю его к проекту в виде ресурса.

Затем я извлекаю данные из ресурса в виде байтового массива.
Но такой массив будет без старшего байта.

А значит простой byte() = string не вернет исходный текст:

Visual Basic
1
2
3
4
5
    Dim src As String
    Dim b() As Byte
 
    src = LoadResData(101, "CUSTOM")
    b() = src

Записывать в 2х раза больший объем инфы в файл ресурса не хочется.
Перебирать каждый байт циклом с конкатенацией в строку тоже как-то не ахти выглядит.

Может, я неверно себе представляю сам процесс.
Где можно почитать, как вообще формируется старший байт и что это такое ?

Вот такие данные я получил перебором байтов от 0 до 255.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Excel()
    Dim b() As Byte, t As String
    For i = 0 To 255
        b = Chr(i)
        Cells(i + 1, 1) = i
        Cells(i + 1, 2) = b(0)
        Cells(i + 1, 3) = b(1)
        t = t & i & "|" & b(0) & "|" & b(1) & vbCrLf
        [A257] = t
    Next
End Sub

ASC	b(0)	b(1)
0	0	0
1	1	0
2	2	0
3	3	0
4	4	0
5	5	0
6	6	0
7	7	0
8	8	0
9	9	0
10	10	0
11	11	0
12	12	0
13	13	0
14	14	0
15	15	0
16	16	0
17	17	0
18	18	0
19	19	0
20	20	0
21	21	0
22	22	0
23	23	0
24	24	0
25	25	0
26	26	0
27	27	0
28	28	0
29	29	0
30	30	0
31	31	0
32	32	0
33	33	0
34	34	0
35	35	0
36	36	0
37	37	0
38	38	0
39	39	0
40	40	0
41	41	0
42	42	0
43	43	0
44	44	0
45	45	0
46	46	0
47	47	0
48	48	0
49	49	0
50	50	0
51	51	0
52	52	0
53	53	0
54	54	0
55	55	0
56	56	0
57	57	0
58	58	0
59	59	0
60	60	0
61	61	0
62	62	0
63	63	0
64	64	0
65	65	0
66	66	0
67	67	0
68	68	0
69	69	0
70	70	0
71	71	0
72	72	0
73	73	0
74	74	0
75	75	0
76	76	0
77	77	0
78	78	0
79	79	0
80	80	0
81	81	0
82	82	0
83	83	0
84	84	0
85	85	0
86	86	0
87	87	0
88	88	0
89	89	0

ASC	b(0)	b(1)
90	90	0
91	91	0
92	92	0
93	93	0
94	94	0
95	95	0
96	96	0
97	97	0
98	98	0
99	99	0
100	100	0
101	101	0
102	102	0
103	103	0
104	104	0
105	105	0
106	106	0
107	107	0
108	108	0
109	109	0
110	110	0
111	111	0
112	112	0
113	113	0
114	114	0
115	115	0
116	116	0
117	117	0
118	118	0
119	119	0
120	120	0
121	121	0
122	122	0
123	123	0
124	124	0
125	125	0
126	126	0
127	127	0
128	2	4
129	3	4
130	26	32
131	83	4
132	30	32
133	38	32
134	32	32
135	33	32
136	172	32
137	48	32
138	9	4
139	57	32
140	10	4
141	12	4
142	11	4
143	15	4
144	82	4
145	24	32
146	25	32
147	28	32
148	29	32
149	34	32
150	19	32
151	20	32
152	152	0
153	34	33
154	89	4
155	58	32
156	90	4
157	92	4
158	91	4
159	95	4
160	160	0
161	14	4
162	94	4
163	8	4
164	164	0
165	144	4
166	166	0
167	167	0
168	1	4
169	169	0
170	4	4
171	171	0
172	172	0
173	173	0
174	174	0
175	7	4
176	176	0
177	177	0
178	6	4
179	86	4
180	145	4

ASC	b(0)	b(1)
181	181	0
182	182	0
183	183	0
184	81	4
185	22	33
186	84	4
187	187	0
188	88	4
189	5	4
190	85	4
191	87	4
192	16	4
193	17	4
194	18	4
195	19	4
196	20	4
197	21	4
198	22	4
199	23	4
200	24	4
201	25	4
202	26	4
203	27	4
204	28	4
205	29	4
206	30	4
207	31	4
208	32	4
209	33	4
210	34	4
211	35	4
212	36	4
213	37	4
214	38	4
215	39	4
216	40	4
217	41	4
218	42	4
219	43	4
220	44	4
221	45	4
222	46	4
223	47	4
224	48	4
225	49	4
226	50	4
227	51	4
228	52	4
229	53	4
230	54	4
231	55	4
232	56	4
233	57	4
234	58	4
235	59	4
236	60	4
237	61	4
238	62	4
239	63	4
240	64	4
241	65	4
242	66	4
243	67	4
244	68	4
245	69	4
246	70	4
247	71	4
248	72	4
249	73	4
250	74	4
251	75	4
252	76	4
253	77	4
254	78	4
255	79	4

@The trick · 07.09.2014, 01:58

Сообщение от Dragokas

Подскажите, пожалуйста,
допустим я создаю файл .txt (кодировка Win-1251)
с текстом "Test" и добавляю его к проекту в виде ресурса.

Ты сохраняешь текст в однобайтовой-кодировке (ACP), в vb6 строки хранятся в юникоде (UCS-2) поэтому ничего не выходит.

Сообщение от Dragokas

А значит простой byte() = string не вернет исходный текст:

Для преобразования нужно знать идентификатор локали из которого получается кодовая страница, для Русского языка - &H419. Для выбора по-умолчанию:

Visual Basic
1
2
3
4
5
Dim dat()   As Byte
Dim result  As String
 
dat = LoadResData(101, "CUSTOM")
result = StrConv(dat, vbUnicode)

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

Как преобразовать байтовый массив (без старших байтов) в строку?

Решение