Команды из файла

[RayShade]

Хранил бы ты автор, все в XML. И проблем бы не знал, чесслово.

[Viper]

Похоже что это не он хранит. Он просто использует файл такого формата. Так что ничего не поделать

[Конь]

строка ограниченной длины

o_O Не понял...
Если посмотреть ее значение сразу после объявления, все пространство просмотра покрывается квадратиками

Похоже что это не он хранит. Он просто использует файл такого формата. Так что ничего не поделать

А это вас как понимать?

[Конь]

arrvar = Split(Var, vbNewLine)

Мля, нет у меня в VB5 этого Split!

[vvs_adm]

Мля, нет у меня в VB5 этого Split!

Мля, а у меня нету VB5 Нету сплита - дели строку на части сам. Тем более что Хакер тебе написал, как...

[Хакер]

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

[alibek]

Мля, нет у меня в VB5 этого Split!

Что подразумевалось под "Мля"?

[vvs_adm]

Что подразумевалось под "Мля"?

Совсем не тоже, что у меня И вообще, меня спровоцировали

[Хакер]

alibek

моля о помощи

[GB826]

o_O Не понял...
Если посмотреть ее значение сразу после объявления, все пространство просмотра покрывается квадратиками

А ты не смотри, а то мозг ими покроется...

А чем должна быть забита строка фиксированной длины?

Так, и че код, который я дал, не помогает?

Конь, включай мозг.
Выход в ini или xml, второе ты, пока что, не осилишь...

[Конь]

GB826
Ты про код для записи инфы в INI?

Хакер
Сейчас, конечно, попробую твой код, но, честно скажу, я ничего в нем не понимаю, кроме трех-четырех строчек

[Конь]

Хакер
Не работает твой код.
Ошибка во время выполнения строки "listVar.AddItem Mid$(sData, iStart + 2, iEnd - iStart - 2)"

Run-time error '5':
Invalid procedure call or argument

Вот значения переменных:

sData = vbCrLf & "vv" & vbCrLf & "gg" & vbCrLf
iStart = 6
iEnd = 5

ЧАГО за фыгня? (с)

[Viper]

еще бы... из строки длиной 8 символов ты пытаешься извлечь -3(!!!) символа начиная с 8-го

[Конь]

Ну да, и я про то же...

[Конь]

Хакер
Огромная просьба исправить код!

[Viper]

Все работает, если код выглядит так:

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

Private Function AddItem(ByVal sData As String) As Boolean
Dim cvbNewLine  As Integer: cvbNewLine = Len(vbNewLine)
Const sEmpty As String = ""
Dim iStart      As Integer: iStart = 1 + cvbNewLine
Dim iEnd        As Integer
    sData = IIf(Mid$(sData, 1, cvbNewLine) = vbNewLine, sEmpty, vbNewLine) + sData + IIf(Right$(sData, cvbNewLine) = vbNewLine, sEmpty, vbNewLine)
    Do
        iEnd = InStr(iStart, sData, vbNewLine):
        If iEnd = 0 Then Exit Do
        listVar.AddItem Mid$(sData, iStart, iEnd - iStart)
        iStart = iEnd + cvbNewLine
        AddItem = True
    Loop
End Function

[Конь]

УРРЯЯЯ!!! Работает!

[Конь]

Мда, возвращаемся к этой теме.
Задача, конечно, решена, но вопрос не закрыт.
Если у меня есть файл с VB-кодом, можно этот код выполнить?

[tyomitch]

Если бы было можно, кто бы стал покупать VB?
Сделал прогу-выполнялку -- и готово, VB не нужен, можно любой VB-код просто так выполнять.

[Конь]

Отсюда следует, что нельзя?

[keks-n]

Его обычно можно перевести его на VBScript с минимальными потерями...

[tyomitch]

Ну, например вызовы API ты не переведёшь.
А также UDT, обработчики ошибок, и много чего ещё.

[alibek]

обработчики ошибок

[tyomitch]

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

On Error GoTo Label

[alibek]

Ну да.
Но почему их не переведешь в VBS?

[tyomitch]

Потому что там они не поддерживаются

[alibek]

Надо же... И правда.

[keks-n]

Там есть On error resume next и объект err. А для вызова апишек можно накатать ActiveX. Но у него-то всё выполняется в контексте своей проги, а посему для скрипта можно создать удобное окружение.

[tyomitch]

Там есть On error resume next и объект err.

И тем не менее, обработчиков ошибок там нет. Даже используя названные тобой фичи, их не собрать.

[keks-n]

Обработчик можно эмулировать. Например вызывать, при выскакивании ошибки ScriptControl'а некую функцию скрипта. А для эмуляции UDT создать хитрый класс. В целом VBScript, конечно, не VB, но перевести код, используя предварительно созданное окружение можно.