При чтении vb6 стандартными способами из файла, читается не весь файл, а его часть

@sid120 · Регистрация: 09.02.2023

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

Добрый день!
При чтении vb6 стандартными способами из файла, читается не весь файл, а его часть.
Блокнотом файл открывается полностью. Может в файле какие-то есть символы, почему он останавливает чтение?
Помогите пожалуйста с кодом
Файл прикрепил

I can · 26.02.2023, 13:05

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

написал

Всё уже ~~украдено~~ написано до нас (с)

@HackerVlad · 26.02.2023, 19:01

Сообщение от I can

Правда что ли?

Ура! Теперь сделал и для UTF8 кодировки. Единственный нюанс это в определении кодировки UTF8. Если в начале файла нет первых служебных символов BOM то определение кодировки заняло бы слишком много времени. Пришлось бы полностью перебирать каждый байт файла. А если он будет очень большой то это заняло бы много времени, поэтому я этого делать не стал. Авто-определение кодировки, в универсальной функции, у меня только по началу файла! Зато я так же написал отдельную функцию для UTF8 кодировки без BOM или с BOM если заранее известно что кодировка файла именно UTF8.

I can, специально для тебя писал))) лёгкий код, не нужно никаких громоздких классов.

Visual Basic
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
Option Explicit
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function SysAllocStringByteLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Function IsFileAPI Lib "shlwapi" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Ptr As Long, ByVal Value As Long)
 
' Универсальная функция загрузки файла в переменную, в не зависимости от кодировки
Public Function LoadFileToStringUniversal(FileName As String) As String
    Dim FileNo As Integer
    Dim fLen As Long
    Dim str() As Byte
    Dim strLE() As Byte
    Dim TheFirstTwoBytes(1) As Byte
    Dim nOutputCharLen As Long
    Dim strs As String
    Dim i As Long
    
    If IsFileAPI(FileName) = 0 Then Exit Function ' Файл не существует, с вероятностью 99%
    fLen = FileLen(FileName)
    If fLen = 0 Then Exit Function
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Открыть файл
    Open FileName For Binary As FileNo
        Get #FileNo, 1, TheFirstTwoBytes ' Для начала прочитать первые два байта файла
        
        If TheFirstTwoBytes(0) = 255 And TheFirstTwoBytes(1) = 254 Then ' Кодировка UTF16-LE
            ReDim str(fLen - 1)
            Get #FileNo, , str ' Начиная с третьего байта
            LoadFileToStringUniversal = str
        End If
        
        If TheFirstTwoBytes(0) = 254 And TheFirstTwoBytes(1) = 255 Then ' Кодировка UTF16-BE
            ReDim str(fLen - 1)
            ReDim strLE(fLen - 1)
            Get #FileNo, , str ' Начиная с третьего байта
            
            For i = 0 To UBound(str) Step 2
                If i <> UBound(str) Then strLE(i + 1) = str(i)
            Next
            For i = 1 To UBound(str) Step 2
                strLE(i - 1) = str(i)
            Next
            
            LoadFileToStringUniversal = strLE
        End If
        
        If TheFirstTwoBytes(0) = 239 And TheFirstTwoBytes(1) = 187 Then ' Кодировка UTF8-BOM
            ReDim str(fLen - 1)
            Get #FileNo, , str ' Начиная с третьего байта
            
            ' Узнать буфер
            nOutputCharLen = MultiByteToWideChar(65001, 0&, VarPtr(str(LBound(str))), fLen, 0&, 0&)
            
            ' Мгновенно выделить память для строки, не используя Space$ или String$ (это медленно)
            PutMem4 VarPtr(strs), SysAllocStringByteLen(0&, fLen * 2)
            
            ' Преобразовать кодировки (65001 это CP_UTF8)
            MultiByteToWideChar 65001, 0&, VarPtr(str(LBound(str))), fLen, StrPtr(strs), nOutputCharLen
            
            LoadFileToStringUniversal = Mid$(strs, 2)
        End If
    Close FileNo
    
    If TheFirstTwoBytes(0) <> 254 And TheFirstTwoBytes(0) <> 255 And TheFirstTwoBytes(1) <> 254 And TheFirstTwoBytes(1) <> 255 Then ' Кодировка не UTF16-LE и не UTF16-BE
        If TheFirstTwoBytes(0) <> 239 And TheFirstTwoBytes(1) <> 187 Then ' Кодировка не UTF8-BOM, значит скорее всего, простая кодировка ANSI (либо может быть кодировка UTF8 обычная, но её проверять слишком долго)
            ' Инициализировать счётчик
            FileNo = FreeFile
            
            ' Открыть файл
            Open FileName For Binary As FileNo
                PutMem4 VarPtr(LoadFileToStringUniversal), SysAllocStringByteLen(0&, fLen * 2) ' Мгновенно выделить память для строки, не используя Space$ или String$ (это медленно)
                Get #FileNo, , LoadFileToStringUniversal
            Close FileNo
        End If
    End If
End Function
 
' Загрузка файла UT8 в переменную String
Public Function LoadFileToStringUT8(FileName As String) As String
    Dim FileNo As Integer
    Dim fLen As Long
    Dim str() As Byte
    Dim nOutputCharLen As Long
    Dim strs As String
    Dim isBOM As Boolean
    
    If IsFileAPI(FileName) = 0 Then Exit Function ' Файл не существует, с вероятностью 99%
    fLen = FileLen(FileName)
    If fLen = 0 Then Exit Function
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Открыть файл
    Open FileName For Binary As FileNo
        ReDim str(LOF(FileNo) - 1)
        Get #FileNo, , str
    Close FileNo
    
    If fLen >= 3 Then
        If str(0) = 239 And str(1) = 187 And str(2) = 191 Then
            isBOM = True
        End If
    End If
    
    If isBOM = True Then ' В файле есть первых три служебных символа (BOM) определяющая кодировку
        ' Узнать буфер
        nOutputCharLen = MultiByteToWideChar(65001, 0&, VarPtr(str(LBound(str))), fLen, 0&, 0&)
        
        ' Мгновенно выделить память для строки, не используя Space$ или String$ (это медленно)
        PutMem4 VarPtr(strs), SysAllocStringByteLen(0&, nOutputCharLen * 2)
        
        ' Преобразовать кодировки (65001 это CP_UTF8)
        MultiByteToWideChar 65001, 0&, VarPtr(str(LBound(str))), fLen, StrPtr(strs), nOutputCharLen
        
        LoadFileToStringUT8 = MidB$(strs, 3) ' Начиная с третьего байта
    Else
        ' Узнать буфер
        nOutputCharLen = MultiByteToWideChar(65001, 0&, VarPtr(str(LBound(str))), fLen, 0&, 0&)
        
        ' Мгновенно выделить память для строки, не используя Space$ или String$ (это медленно)
        PutMem4 VarPtr(LoadFileToStringUT8), SysAllocStringByteLen(0&, nOutputCharLen * 2)
        
        ' Преобразовать кодировки (65001 это CP_UTF8)
        MultiByteToWideChar 65001, 0&, VarPtr(str(LBound(str))), fLen, StrPtr(LoadFileToStringUT8), nOutputCharLen
    End If
End Function

Добавлено через 5 минут
Я там ошибся назвал функцию LoadFileToStringUT8 вместо LoadFileToStringUTF8 сами исправьте пожалуйста, либо оставьте уж как есть, всё равно будет работать, это всего лишь название

I can · 26.02.2023, 19:06

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

I can, специально для тебя писал

Спасибо.

Но я не пишу на VB6. Установлен просто на компе для "побаловаться".

@Catstail · 28.02.2023, 07:28

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

При чтении vb6 стандартными способами из файла, читается не весь файл, а его часть.

-

А вот так если читать:

Visual Basic
1
2
3
4
5
6
    fi%=FreeFile()
    open "123.txt" for Binary access Read as #fi%
    fsz&=LOF(fi%)
    Buf$=Space$(fsz&)
    get #fi%,,Buf$
    close #fi%

@HackerVlad · 28.02.2023, 14:51

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

А вот так если читать

Если файл читать именно так в строку, а не в байтовый массив, то таким способом можно прочитать только файл находящийся в кодировке ANSI. В вашем примере для UTF16-LE пришлось бы ещё лишний раз делать преобразование кодировок. Добавив ещё строчку Buf$ = StrConv(Buf$, vbFromUnicode). Вот так только и будет работать (но это медленно):

Visual Basic
1
2
3
4
5
6
7
fi% = FreeFile()
    Open App.Path & "\2106202203 LE.txt" For Binary Access Read As #fi%
    fsz& = LOF(fi%)
    Buf$ = Space$(fsz&)
    Get #fi%, , Buf$
    Close #fi%
    Buf$ = StrConv(Buf$, vbFromUnicode)

Добавлено через 4 минуты
Таким образом два раза было бы преобразование кодировок. Первый раз сам VB6 в строке Get #fi%, , Buf$ преобразует, он там всегда преобразует, второй раз сам в строчке Buf$ = StrConv(Buf$, vbFromUnicode).

Добавлено через 4 минуты
Строка и байтовый массив это не одно и тоже для VB6 вот классная статья http://www.vbstreets.ru/VB/Articles/66364.aspx

@Catstail · 28.02.2023, 14:58

HackerVlad, у меня все прекрасно читается. Но в связи с юникодом символы печатаются "вразрядку". С этим легко можно справиться:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub aaa()
 
    HomeDir$ = ThisWorkbook.Path
    
    fi% = FreeFile()
    Open HomeDir$ + "\2106202203.txt" For Binary Access Read As #fi%
    fsz& = LOF(fi%)
    iBuf$ = Space$(fsz&)
    Get #fi%, , iBuf$
    Close #fi%
    
    oBuf$ = Space$(fsz& \ 2 + 2)
    jj& = 1
    
    For ii& = 3 To fsz& Step 2
        Mid$(oBuf$, jj&, 1) = Mid$(iBuf$, ii&, 1)
        jj& = jj& + 1
    Next ii&
    
    Debug.Print oBuf$
    
End Sub

Вот текст из файла:

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

<Legend type="Image.V1" PaperColor="White" BackgroundColor="DarkGray"><DeviceInfo DeviceURI="MarkpointDriver[Imaje2620168mm_2200]/"><DeviceName>2200 - 2620 168mm 8 dot</DeviceName></DeviceInfo><Description /><Mirrored>false</Mirrored><Orientation>DEG_0</Orientation><Width>7000</Width><Height>5500</Height><FieldList><Field type="AlphaNum.V1"><Name>TEXT</Name><ID>6</ID><Geometry><X>7003</X><Y>3226</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text
type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>388</CharHeight><CharWidth>176</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text> ' -;-?C 250E120E65/1$/150/1,2/50/!" 530-2012</Text></Static></Field><Field type="AlphaNum.V1"><Name>TEXT_2</Name><ID>8</ID><Geometry><X>7003</X><Y>2726</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key
>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>388</CharHeight><CharWidth>352</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text> "/ 290</Text></Static></Fie
ld><Field type="AlphaNum.V1"><Name>TEXT_13</Name><ID>24</ID><Geometry><X>3752</X><Y>2726</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>388</CharHeig
ht><CharWidth>635</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>(@0A=K9)</Text></Static></Field><Line type="Line.V1"><Name>LINE_2</Name><ID>28</ID><Geometry><X>1502</X><Y>2726</Y><Rotation>0</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>PerJobD ata</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>IsHiddenAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item></PropertyBag></AppInfo><X2>6752</X2><Y2>2726</Y2><LineWidth>30</LineWidth></Line><Field type="AlphaNum.V1"><Name>TEXT_3</Name><ID>10</ID><Geometry><X>7003</X><Y>1976</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHi
ddenAppInfo.V1"><IsHidden>false</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item
></PropertyBag></AppInfo><Text>8@?8G :5@0<8G5A:89, CB>;I5==K9, ;8F52>9, ?CAB>B5;K9,</Text></Static></Field><Field type="AlphaNum.V1"><Name>TEXT_5</Name><ID>12</ID><Geometry><X>7003</X><Y>1726</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Itali
c>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>@C??0 ?> B5?;>B5E=8G5A:>9MDD5:B82=>AB8:</Text></Static></Field><Field type="AlphaNum.V1"><Name>TEXT_4</Name><ID>11</ID><Geometry><X>7003</X><Y>1476</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><Chara
cterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>?;0AB8G5A:>3> D>@<>20=8O</Text></Static></Field><Line type="Line.V1"><Name>LINE_3</Name><ID>29</ID><Geometry><X>4752</X><Y>1226</Y><Rotation>0</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>PerJobD ata</Key><Value type="PerJobData.V1"><Pro
pertyMap /></Value></Item><Item><Key>IsHiddenAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item></PropertyBag></AppInfo><X2>6752</X2><Y2>1226</Y2><LineWidth>20</LineWidth></Line><Field type="AlphaNum.V1"><Name>TEXT_6</Name><ID>14</ID><Geometry><X>7002</X><Y>1226</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftRe adingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>>;8G5AB2>: 480 HB/?0;5BB0</Text></Static></Field><Field type="AlphaNum.V1"><Name>TEXT_7</Name><ID>15</ID><Geometry><X>7002</X><Y>976</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFiel
dInfo"><DataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>5A =5BB>:1150 :3</Text></Static></Field><Field type="AlphaNum.V1"><Name>TEXT_8</Name><ID>17</ID><Geometry><X>7003</X><Y>726</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><Pro
pertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>Data
Source.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>0B0 C?0:>2:8 :</Text></Static></Field><Field type="AlphaNum.V1"><Name>TEXT_9</Name><ID>20</ID><Geometry><X>7003</X><Y>476</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightTo
LeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>0B0 2K?CA:0 :</Text></Static></Field><Field type="AlphaNum.V1"><Name>TEXT_11</Name><ID>22</ID><Geometry><X>5252</X><Y>726</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>Markpoi ntAlphanumericFieldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>IsHiddenAppInfo</Key><Value type="IsHi
ddenAppInfo.V1"><IsHidden>false</IsHidden></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToL eftReadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>9-dot</Typeface><CharHeight>247</CharHeight><CharWidth>247</CharWidth><Filename /><CharSpacing>0</CharSpacing><CharSpacing>0</CharSpacing></Text><TimeDate type="TimeDateSrc.V1"><AppInfo><Property Bag type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MKTimeDateSrc.MarkpointT imeDateFieldInfo</Key><Value type="MarkpointTimeDateFieldInfo"><Print erFormat>Normal</PrinterFormat></Value></Item></PropertyBag></AppInfo><TDFormatString>%D/%M/%Y[0,2,2,0]</TDFormatString><LanguageValue>ENGLISH</LanguageValue><OffsetRule><OffsetDays
>0</OffsetDays><OffsetMonths>0</OffsetMonths><OffsetYears>0</OffsetYears><OffsetHours>0</OffsetHours><PromptingBehaviour>DO_NOT_P ROMPT</PromptingBehaviour></OffsetRule><IsFixed>false</IsFixed></TimeDate></Field><Field type="AlphaNum.V1"><Name>TEXT_10</Name><ID>30</ID><Geometry><X>5252</X><Y>476</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>Markpoi ntAlphanumericFieldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>IsHiddenAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>9-dot</Typeface><CharHeight>247</CharHeight><CharWidth>247</CharWidth><Filename /><CharSpacing>0</CharSpacing><CharSpacing>0</CharSpacing></Text><TimeDate type="TimeDateSrc.V1"><AppInfo><Property Bag type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MKTimeDateSrc.MarkpointT imeDateFieldInfo</Key><Value type="MarkpointTimeDateFieldInfo"><Print erFormat>Normal</PrinterFormat></Value></Item></PropertyBag></AppInfo><TDFormatString>%D/%M/%Y[0,2,2,0]</TDFormatString><LanguageValue>ENGLISH</LanguageValue><OffsetRule><OffsetDays>0</OffsetDays><OffsetMonths>0</OffsetMonths><OffsetYears>0</OffsetYears><OffsetHours>0</OffsetHours><PromptingBehaviour>DO_NOT_P ROMPT</PromptingBehaviour></OffsetRule><IsFixed>false</IsFixed></TimeDate></Field><Field type="AlphaNum.V1"><Name>EAN13</Nam
e><ID>31</ID><Geometry><X>3753</X><Y>1476</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevice>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Ean13 type="EAN13.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><MarkpointBarcodeFi eldInfo type="MarkpointBarcodeFieldInfo"><PhdDis placement>0</PhdDisplacement><ThickThinRatio>Automati c</ThickThinRatio><CompatibilityMode>COLOS_ 516</CompatibilityMode></MarkpointBarcodeFieldInfo></AppInfo><BarHeight>1077</BarHeight><QuietMargin>false</QuietMargin><NarrowBarWidth>25</NarrowBarWi
dth><AutoCheckDigit>true</AutoCheckDigit><TextDisplayOptions>DISPL AY_WITH_CHECKDIGIT</TextDisplayOptions></Ean13><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>466012828002</Text></Static></Field><Line type="Line.V1"><Name>LINE</Name><ID>32</ID><Geometry><X>4752</X><Y>2226</Y><Rotation>0</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>PerJobD ata</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>IsHiddenAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item></PropertyBag></AppInfo><X2>6752</X2><Y2>2226</Y2><LineWidth>20</LineWidth></Line><Logo type="Logo.V1"><Name>LOGO</Name><ID>33</ID><Geometry><X>7002</X><Y>4226</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>Markpoi ntLogoF
ield.FieldInfo</Key><Value type="MarkpointLogoFieldInfo"><OverlayMo de>MERGE</OverlayMode><Compression>false</Compression></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>IsHiddenAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item></PropertyBag></AppInfo><FileName>C:\ProgramData\Markem-Imaje\NGW\v6.2\ResourceRepository\Defaul t\ImageTemplate\Default\Logo\logo.png</FileName><Width>6250</Width><Height>1000</Height></Logo><Field type="AlphaNum.V1"><Name>TEXT_12</Name><ID>35</ID><Geometry><X>7003</X><Y>226</Y><Rotation>180</Rotation></Geometry><FieldColor>BLACK</FieldColor><AppInfo><PropertyBag type="PropertyBag.V1"><Item><Key>IsHidde nAppInfo</Key><Value type="IsHiddenAppInfo.V1"><IsHidden>fals e</IsHidden></Value></Item><Item><Key>PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item><Item><Key>MarkpointAlphanumericFie ldInfo.FieldInfo</Key><Value type="MarkpointAlphanumericFieldInfo"><D ataInputDevic
e>false</DataInputDevice><ProductionMode>false</ProductionMode><CharacterSet>Utf8</CharacterSet></Value></Item></PropertyBag></AppInfo><Logged>false</Logged><Text type="TextBased.V1"><Inverted>false</Inverted><OverlayMode>MERGE</OverlayMode><AppInfo><PropertyBag type="PropertyBag.V1" /></AppInfo><RightToLeftR eadingOrder>false</RightToLeftReadingOrder><Bold>false</Bold><Italic>false</Italic><Underline>false</Underline><Typeface>Univers Medium</Typeface><CharHeight>203</CharHeight><CharWidth>203</CharWidth><Filename /><CharSpacing>0</CharSpacing></Text><Static type="StaticSrc.V1"><AppInfo><PropertyBa g type="PropertyBag.V1"><Item><Key>DataSou rce.PerJobData</Key><Value type="PerJobData.V1"><PropertyMap /></Value></Item></PropertyBag></AppInfo><Text>!<5=03
</Text></Static></Field></FieldList><AppInfo><PropertyBag type="ImagePropertyBag.V1"><RemotingMap type="RemotingInfoList.V1"><RemotingLink s /></RemotingMap><Rotation type="RotationImageAppInfo.URI"><Rotatio n>180</Rotation></Rotation><MarkpointSpecificInfo type="MarkpointAppInfo"><DispensingFeed> 10</DispensingFeed><ReverseFeed>0</ReverseFeed><ImageSettings>true</ImageSettings><Compression>true</Compression><NumberOfLabels>1</NumberOfLabels><PaperOffset>1.5</PaperOffset><PrintableOffset>2.50</PrintableOffset><MpsValue>771</MpsValue></MarkpointSpecificInfo><MarkpointSpecific Info type="MarkpointShiftInfo" /><MarkpointExpressionEngineInfo type="MarkpointExpressionEngineInfo"><Ex pression /></MarkpointExpressionEngineInfo><PerJobDat a type="PerJobData.V1"><PropertyMap /></PerJobData></PropertyBag></AppInfo></Legend>

Добавлено через 1 минуту

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

Строка и байтовый массив это не одно и тоже

- знаю. С байтовым массивом было бы удобнее, пожалуй. Но и строки работают.

@HackerVlad · 28.02.2023, 15:16

Самое интересное это то, что если присвоить строке байтовый массив, то строка останется ровно в той кодировке в которой находится байтовый массив и преобразований кодировок при этом не будет.

Добавлено через 5 минут

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

Но в связи с юникодом символы печатаются "вразрядку". С этим легко можно справиться

Ваш способ будет медленнее, чем с байтовым массивом.

Добавлено через 8 минут

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

Но в связи с юникодом символы печатаются "вразрядку". С этим легко можно справиться:

И ваш способ не справился с русскими символами, я только что проверил, в отличии от StrConv(Buf$, vbFromUnicode).

@Catstail · 28.02.2023, 15:54

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

И ваш способ не справился с русскими символами

- естественно... Я же просто пропускаю нули.

Но задача стояла прочитать этот файл. Конечно, нужно выполнять преобразования стандартными средствами, а не так, как это делал я (на коленке).

@HackerVlad · 28.02.2023, 22:31

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

Но задача стояла прочитать этот файл

Моя функция будет работать быстрее

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Загрузка файла в переменную
Public Function LoadFileToStringUTF16LE(FileName As String) As String
    Dim FileNo As Integer
    Dim str() As Byte
    
    If IsFileAPI(FileName) = 0 Then Exit Function ' Файл не существует, с вероятностью 99%
    If FileLen(FileName) = 0 Then Exit Function
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Открыть файл
    Open FileName For Binary As FileNo
        ReDim str(LOF(FileNo) - 1)
        Get #FileNo, , str
    Close FileNo
    
    LoadFileToStringUTF16LE = str
End Function

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .