Можно ли в VB работать с Null Terminated String???

[0xy]

Хотелось бы создать массив из онных

[Хакер]

То есть ты считаешь себя профессионалом, и соответственно считаешь, что уровень профессионала находится ниже, чем уровень, требуемый для ответа на этот вопрос?

[Debugger]

Эмм...
Ты хоть знаешь, что это такое? Походу нет.

Код: Выделить всё

Dim a(2) As String

P.S. Насколько я помню, строки в VB6 являют null-terminated (сказал API-Guide).
P.S.S.

Этот раздел не предназначен для того, чтобы вы адресовали свою проблему профессионалам.

[0xy]

String--эт конечно круто! ))) Только с чего вы взяли, что он Null Terminated?
Под Null-Terminated я подразумеваю (текстовые) строки, не имеющие дескриптора длины, и ограниченые ИСКЛЮЧИТЕЛЬНО финальным нулем. String же может содержать любые символы (в т.ч. нули в любом колличестве), и руководствуется исключительно дескриптором.

Меня же интересует, возможно ли научить VB понимать этот тип данных, в частности, поднимать из файла такие массивы (без ручной обработки)?
[Viper] :: Тему переношу. Устное предупреждение.

[Денис]

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

Это называется байтовые массивы. Делаем так:
Dim ByteArr() as Byte
Добавляем Chr$(0) в конец и работаем с этим как со строкой (ну, не без подводных камней, конечно, но всё же).
ByteArr = "Hello World!" & Chr$(0)

А вот как сделать масиив из байтовых массивов, эт я уже не знаю

[Хакер]

Меня же интересует, возможно ли научить VB понимать этот тип данных

Невозможно, поскольку это нарушает концепцию безопасного управления памятью.

[Денис]

в частности, поднимать из файла такие массивы (без ручной обработки)?

Что ты под этим подразумеваешь, бедный, искалеченый паскалем человек?

Что тебе мешает "поднять" информацию из файла?

[0xy]

Денис
Про Hello world не в тему: разделительные нушли уже есть в файле.

Разобрать такой файл вручную несложно. Но прежде, чем извращаться, я решил узнать о возможностях языка в этом плане...

[Денис]

разделительные нули уже есть в файле.

Так, давайте разберемся, что хранится в файле? Записи, разделенные нулями? Или Массив? Или структура?

Разобрать такой файл вручную несложно. Но прежде, чем извращаться, я решил узнать о возможностях языка в этом плане...

Я еще раз предлагаю прояснить, что в Вашем понимании ручной разбор, а что - автоматический.

Всё это нам потребуется в дальнейшем, чтобы понять какой String нужен, и обязательно ли Null terminated?

[0xy]

В файле--строки, ограниченные нулями (запмси, разделенные нулями).

Ручной разбор выглядит так:

Код: Выделить всё

Sub ReadSTR(ArrSTR$(), FileName$)
Dim fBuffer() As Byte, fHandle&, i&, j&, k&
fHandle = FreeFile
Open FileName For Binary Access Read Shared As fHandle
ReDim fBuffer(1 To LOF(fHandle))
Get fHandle, , fBuffer
Close fHandle
ReDim ArrSTR(0 To 0)
k = 1
For i = 1 To UBound(fBuffer)
    If fBuffer(i) = 0 Then
        ReDim Preserve ArrSTR(0 To UBound(ArrSTR) + 1)
        For j = k To i
            ArrSTR(UBound(ArrSTR)) = ArrSTR(UBound(ArrSTR)) & Chr(fBuffer(j))
         Next j
    k = i + 1
    End If
Next
End Sub


Ну а автоматически--что-то вроде:
Dim fBuffer() as NullTerminatedString '
Get fHandle,,fBuffer
Но, как я понял, такого не бывает?

[Viper]

А что, функцию Split не судьба поиспользовать?

[burik]

Ну как минимум ни к чему проходить всю последовательность два раза. Можно за один разбить.

Код: Выделить всё

    ReDim ArrSTR(1 To 1)
    k = 1
    For i = 1 To UBound(fBuffer)
        ArrSTR(k) = ArrSTR(k) & Chr(fBuffer(i))
        If fBuffer(i) = 0 Then
            ReDim Preserve ArrSTR(0 To k + 1)
            k = k + 1
        End If
    Next

[djalex777]

Ну а автоматически--что-то вроде:
Dim fBuffer() as NullTerminatedString '
Get fHandle,,fBuffer
Но, как я понял, такого не бывает?

Для разделителей 0 врят ли (если только строки фиксированной длины), но вобще автоматически бывает. Для сохранения и загрузки можно использовать структуру с массивом строк к примеру.

[0xy]

А что, функцию Split не судьба поиспользовать?

Можно по подробнее, что за зверь? (Access 97 не знает такой буквы, а справки по VB6 (MSDN) у меня нет )

djalex777
Можете привести пример со структурой?

[burik]

Viper писал(а):А что, функцию Split не судьба поиспользовать?
Можно по подробнее, что за зверь? (Access 97 не знает такой буквы, а справки по VB6 (MSDN) у меня нет )

И это тот человек, который постит в раздел для профессионалов?

Returns a zero-based, one-dimensional array containing a specified number of substrings.
Syntax
Split(expression[, delimiter[, limit[, compare]]])

[djalex777]

Можете привести пример со структурой?

Объявляем:

Код: Выделить всё

type t
s() as string
end type


Заполнение и сохранение структуры:

Код: Выделить всё

...
dim tt as t, i as long
redim tt.s(0 to 30)
for i = 0 to 30
tt.s(i) = "любая строка"
next i
...
dim frf as integer
frf=freefile
open "имя файла" for binary as #frf
put #frf,,tt
close #frf
...


Загрузка структуры:

Код: Выделить всё

...
dim tt as t,frf as integer
frf=freefile
open "имя файла" for binary as #frf
get #frf,,tt
close #frf
...


[0xy]

djalex777
Это полный бред!

burik
Какая переменная должна быть на выходе split? (неплохо бы увидеть пример вызова)
Походу, в Access97 точно не работает.

[burik]

Код: Выделить всё

Dim sStr    As String, sDl As String
Dim sRs()   As String

    sDl = Chr$(0)
    sStr = "first string" & sDl & "second string" & sDl & "third string"
    sRs = Split(sStr, sDl)

В sRs получи массив строк, пронумерованный начиная с нуля:

sRs(0) = "first string"
sRs(1) = "second string"
sRs(2) = "third string"

[Viper]

Походу, в Access97 точно не работает.

Может перенести в VBA?

[0xy]

Viper
?? Откуда перенести? А "в Access97"--это, по-вашему, где?

burik
Понял, спасибо.
Только в данной задаче исходному String неоткуда взяться, так что таки не судьба.

[Viper]

Viper
?? Откуда перенести? А "в Access97"--это, по-вашему, где?

Имеется ввиду подфорум VBA.

Только в данной задаче исходному String неоткуда взяться, так что таки не судьба.

А что есть то? Массив байт чем не строка?

[burik]

В любом случае, Split ведь будет медленнее чем простой ручной разбор.

[Debugger]

2 burik: Разве?
2 0xy

String--эт конечно круто! ))) Только с чего вы взяли, что он Null Terminated?

Накатал пример, который доказывает, что можно использовать String как null-terminated.

Хотелось бы создать массив из онных

Код: Выделить всё

Dim Ar() As NullTerminatedString

[burik]

2 burik: Разве?

Извиняюсь. Проверил - Split намного быстрее. Я почему-то думал, что будет наоборот..

[Viper]

2 burik: Разве?

Извиняюсь. Проверил - Split намного быстрее. Я почему-то думал, что будет наоборот..

Проверял компилированный файл или в среде запускал?

[0xy]

А что есть то? Массив байт чем не строка?

Как минимум тем, что Split ее не скушает

Debugger
Интересная инфа! Действительно, GetWindowText выдает чистый NullTerminated и дескриптора точно не создает, а String это нормально проглотил!

Тогда, по-идее, должно сработать такое "преобразование":

Код: Выделить всё

CallWindowProc(pCode,pByteArrey,pString)
{Code == Mov pString, pByteArrey}

[0xy]

Не-а, так внаглую не проходит--падает. Видимо, нужно таки заливать строку.

[burik]

Проверял компилированный файл или в среде запускал?

И так и так проверял.

[0xy]

Хм, строка почему-то заливается криво (увидеть содержимое невозможно)

Код: Выделить всё

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
           (ByVal pBinaryCode As Long, _
            ByVal Variable As Long, _
            Optional ByVal lMSG As Long, _
            Optional ByVal lp3 As Long, _
            Optional ByVal lp4 As Long) As Long
Dim a() As Byte
ReDim a(4)
a(1) = &H30
a(2) = &H32
a(3) = 0
a(4) = &H33
Arrey2String = ByteArr2String(a)
Stop

Function ByteArr2String$(ByteArr() As Byte)
Const Asm$ = "55 8B EC 60 8B 4D 10 8B 7D 0C 8B 75 08 89 4F FC F3 A4 61 5D C2 10 00 "
Dim BinaryCode() As Byte, i&
ReDim BinaryCode(1 To Len(Asm) / 3)
For i = 1 To Len(Asm) / 3  ' заполняем массив ASM-кода
    BinaryCode(i) = Val("&h" & (Mid(Asm, (i - 1) * 3 + 1, 2)))
Next
CallWindowProc VarPtr(BinaryCode(1)), VarPtr(ByteArr(1)), VarPtr(ByteArr2String), UBound(ByteArr)
'    55            PUSH EBP
'    8BEC          MOV EBP,ESP
'    60            PUSHAD
'    8B4D 10       MOV ECX,DWORD PTR SS:[EBP+10]
'    8B7D 0C       MOV EDI,DWORD PTR SS:[EBP+C]
'    8B75 08       MOV ESI,DWORD PTR SS:[EBP+8]
'    894F FC       MOV DWORD PTR DS:[EDI-4],ECX
'    F3:A4         REP MOVS BYTE PTR ES:[EDI],BYTE PTR DS:[ESI]
'    61            POPAD
'    5D            POP EBP
'    C2 1000       RET 10
End Function


Может, я неправильно представляю себе формат String? Я исходил из того, что дескриптор (Long) идет непосредственно перед данными, а VarPtr возвращает указатель на начало тела строки. Верно?

[djalex777]

Верно?

Нет. String это BSTR. А VarPtr от String это адрес BSTR
А зачем пробелы в Asm$? VarPtr(ByteArr2String) - это как?