Возвращаясь к баранам, сегодня на Сайбесовских группах было предложено следующее:
One alternative approach for parsing the series of null-separated (00 00)
pairs is instead of blob to use BYTE and BYTE ARRAY variables in either of
the following 3 ways:
1) by modifying the parameter of the external function like this:
1.
Function long GetPrivateProfileSection(String sectionName, REF Byte returnedString[], long bufferSize, String fileName) Library "kernel32.dll" alias for "GetPrivateProfileSectionW"
And then call it and customize the replacement:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Byte b[]
b[ 20000 ] = 0 // reserve memory
long i, len
len = GetPrivateProfileSection(asSection, b, 10000 /* # of chars, not bytes */, is_ini_filename)
len *= 2 // adjust for 16 -bit encoding
// Convert null bytes to newlines (otherwise string conversion stops after first null byte!)
for i = 1 to len - 1 Step 2
if b[i] = 0 and b[i+ 1 ] = 0 then b[i] = 10 // asc("~n") = 10
next
return String(Blob(b))
2) after the external call convert your blob to a byte array for processing convenience:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Blob{ 20000 } b /* Will hold 10K Unicode chars, my guess at max section size */
long i, len
len = GetPrivateProfileSection(asSection, b, 10000 /* # of chars, not bytes */, is_ini_filename)
len *= 2 // adjust for 16 -bit encoding
// Convert null bytes to newlines (otherwise string conversion stops after first null byte!)
Byte bt[]
bt = GetByteArray(b)
for i = 1 to len - 1 Step 2
if bt[i] = 0 and bt[i+ 1 ] = 0 then bt[i] = 10 // asc("~n") = 10
next
return String(Blob(bt))
3) at last, you have the functions GetByte and SetByte which manipulate blobs at a byte-level, thus eliminating the need to use such String(BlobMid... or BlobEdit(..., EncodingAnsi!) constructs:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Blob{ 20000 } b /* Will hold 10K Unicode chars, my guess at max section size */
long i, len
len = GetPrivateProfileSection(asSection, b, 10000 /* # of chars, not bytes */, is_ini_filename)
len *= 2 // adjust for 16 -bit encoding
// Convert null bytes to newlines (otherwise string conversion stops after first null byte!)
Byte bt1, bt2
for i = 1 to len - 1 Step 2
GetByte(b, i, bt1)
GetByte(b, i+ 1 , bt2)
if bt1 = 0 and bt2 = 0 then SetByte(b, i, 10 ) // asc("~n") = 10
next
return String(b)
