Функция Split и Array.Copy

[M_Block]

День добрый. Есть ли в VB 5.0 аналог функции Split из VBA.Strings? Или как мне ее можно подключить, имея библиотеку VBA6.dll?
Еще интересует как можно воспользоваться функцией Array.Copy в VB 5.0? Заранее спасибо.

[Antonariy]

Загляни сюда. Во-первых часть функций, отсутствующих в VB5, там уже написаны, а во-вторых тамошние самописные дадут фору встроенным.

[CodeName33]

Я считал, что ничего не мешает таскать с собой помимо файла msvbvm50.dll ещё и msvbvm60.dll и вызывать оттуда функции продекларировав их в своей программе. А в msvbvm60.dll Split есть. Поправьте если ошибаюсь.

[tyomitch]

Если ничего не мешает, тогда проще скомпилировать прогу под VB6 и не таскать за собой msvbvm50.

[M_Block]

Спасибо за ссылку, Antonary, вообще я использовал свою самописную функцию, просто подумал может зря время терял.

tyomitch, вот именно что что-то мешает, у меня нет VB6, пишу на чем есть. Прочитал "Описание некоторых встроенных функций VB" alibek'a и тоже захотелось использовать не самописные функции, а над которыми уже кто-то потрудился ( ).

CodeName33, а как ты предлагаешь использовать эту dll, и какая разница между msvbvm60.dll и VBA6.dll? В обеих Split есть.

А как насчет Array.copy, или может не так спросил?

[tyomitch]

VBA6.dll нельзя распространять.
msvbvm60 можно.

[CodeName33]

CodeName33, а как ты предлагаешь использовать эту dll

Обычно, написать declare функцию из msvbvm60, как она точно называется можно посмотреть в программах показывающих экспортируемые функции, типа PEExplorer.

[M_Block]

Обычно, написать declare функцию из msvbvm60, как она точно называется можно посмотреть в программах показывающих экспортируемые функции, типа PEExplorer.

А если не сложно может кто-нибудь подскажет, у меня нет PEExplorer. Как привильно:

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

Private Declare Function Split _
Lib "msvbvm60" Alias "Я идиот! Убейте меня, кто-нибудь!" ( _
ByVal Expression As String, _
ByVal Delimiter As String)


Заранее спасибо за помощь.

[tyomitch]

Alias "rtcSplit"

За параметры не поручусь.

[Хакер]

А если не сложно может кто-нибудь подскажет, у меня нет PEExplorer.

У тебя есть Dependency Walker. Который в контексте студии бесплатен. В отличие от PE Explorer. Который стоит денег.

А насчёт параметров... на первый взгляд их должно быть 5.

[jangle]

А еще есть такая библа BREGEXP.DLL 72 кбайт
http://www.forth.org.ru/~ac/lib/string/bregexp/BREGEXP_DLL.htm
В ней тоже есть функция Split

[M_Block]

Че то я наверное совсем запутался. Возникает ошибка: Can't assign to array. Попробовал сделать то же самое (без declare function, конечно) при помощи макроса в Excel'е - получилось.

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

Private Declare Function Split _
Lib "msvbvm60" Alias "rtcSplit" ( _
Expression As String, _
Delimiter As String _
) As String

Dim asd() As String

Private Sub Command1_Click()
asd = Split("as;sd;asd", ";")
For i = 0 To 2
    MsgBox (asd(i))
Next
End Sub


]

Хакер, у меня Studio 97, я там не нашел никакого Dependency Walker. Я смотрел параметры Split через Object Browser Excel'я, там какие-то параметры необязательные, вот и подумал, что их можно не объявлять, это не так?

[tyomitch]

там какие-то параметры необязательные, вот и подумал, что их можно не объявлять, это не так?

Это не так.

[Хакер]

Начал дебажить.

Функция имеет пять аргументов.

1 - назначение пока не установлено. (предположительно: адрес возврата)
2 - StrPtr на Expression.
3 - Delimiter, но каким образом передаётся пока не установленно. В стек кладётся некоторе число (адрес), однако непосредственно по этому адресу находятся нули. Дальше ничего интересного тоже нет.
4 - необязательный аргумент "limit". Передавать обязательно. Если лимит не установлен, передавать -1.
5 - необязательный аргумент "CompareMethod". Передавать обязательно.

Сейчас ещё помучаю и скажу точно.

[tyomitch]

Ну и зачем реверс-инженерить, когда можно просто заглянуть в TLB?

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

        [entry(0x60000036), helpstring("Split a string into an array"), helpcontext(0x000f650b)]
        VARIANT _stdcall Split(
                        [in] BSTR Expression,
                        [in, optional] VARIANT* Delimiter,
                        [in, optional, defaultvalue(-1)] long Limit,
                        [in, optional, defaultvalue(0),
            custom({270D72B0-FFB8-11CF-A4BD-00A0C90F26EE}, "1")       


[Хакер]

M_Block
Тогда так:

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

Private Declare Function rtcSplit Lib "msvbvm60.dll" (ByVal Expression As Long, ByRef delimiter As Variant, ByVal limit As Long, ByVal mode As Long) As Variant

Public Enum MyCompareMethods
   cmpBinary = 0
   cmpText = 1
   cmpDataBase = 2
end enum

Public function Split (byval Expression, ByVal Delimiter, optional Byval Limit =-1, optional byval ComparareMethod as MyCompareMethods)
Split = rtcSplit(StrPtr(Expression), Delimiter, Limit, CompareMethod)
End function



tyomitch

зачем реверс-инженерить

Чтобы получить удовольствие

[M_Block]

Хакер, не помогло, возникает таже ошибка.

Public function Split (byval Expression, ByVal Delimiter, optional Byval Limit =-1, optional byval ComparareMethod as MyCompareMethods)
Split = rtcSplit(StrPtr(Expression), Delimiter, Limit, CompareMethod)

То что выделено не опечатка, так должно быть?

[Хакер]

Нет конечно. CompareMethod должно быть.