Серый форум — VBS: Преобразование данных blob в строку

Re: VBS: Преобразование данных blob в строку

null@example.com (Xameleon) — Thu, 03 Nov 2011 14:11:30 +0000

OFF: Ну вот. ) Опять не успел. А я как раз хотел собрать более правильный, на мой взгляд, код. )

Re: VBS: Преобразование данных blob в строку

null@example.com (pavlikspb) — Thu, 03 Nov 2011 12:47:32 +0000

В последнем примере все работает ))), и меня устраивает больше чем надо, так как мне еще было необходимо разбить строку в массив, а тут на выходе уже массив - спасибо огромное!!!

Re: VBS: Преобразование данных blob в строку

null@example.com (pavlikspb) — Thu, 03 Nov 2011 12:18:51 +0000

теперь ругается на строку - s = s & Data(i) - несоответствие типа

Извиняюсь - перепутал

Re: VBS: Преобразование данных blob в строку

null@example.com (Xameleon) — Thu, 03 Nov 2011 12:01:55 +0000

Ага. Тогда пробуем так )

tmp = rs(1).GetChunk(rs(1).ActualSize)

Dim i,s
For i=1 to Ubound(tmp)
    s = s & AscB(midB(tmp,i,1))
Next

msgbox s

Хм... А вообще подумать надо как удобно дёрнуть. А то так кривовато. Сейчас как дома окажусь - поэкспериментирую на живом образце.

P.S Код обновил. Тот у меня давал сбои из-за неправильной работы с массивом

Re: VBS: Преобразование данных blob в строку

null@example.com (pavlikspb) — Thu, 03 Nov 2011 11:40:46 +0000

Xameleon пишет:

Предполагаю, что Вам поможет такой код.

Не помог - выдает ошибку несоответствие типа в строке с msgbox. Само поле разбивается в массив и состоит и 7 элементов, как и должно быть.

Xameleon пишет:

Виноват. Нужен был TypeName() от rs(1). Но сейчас уже не важно. 8209 = vbArray or vbByte. ) Т.е всё верно это byte массив.

TypeName(rs(1)) выдает надпись "Field"

Re: VBS: Преобразование данных blob в строку

null@example.com (Xameleon) — Thu, 03 Nov 2011 11:12:22 +0000

Виноват. Нужен был TypeName() от rs(1). Но сейчас уже не важно. 8209 = vbArray or vbByte. ) Т.е всё верно это byte массив.

Предполагаю, что Вам поможет такой код.


Dim Data, s

Data = rs(1)

For i=Lbound(Data) to Ubound(Data)
    s = s & Data(i)
Next

MsgBox s

Re: VBS: Преобразование данных blob в строку

null@example.com (pavlikspb) — Thu, 03 Nov 2011 10:43:47 +0000

msgbox выдает "8209"

Re: VBS: Преобразование данных blob в строку

null@example.com (Xameleon) — Thu, 03 Nov 2011 10:38:18 +0000

Проверьте пожалуйста, что возвращает VarType от содержимого. Предполагаю что Byte(), но всё же хотелось бы знать точно.


msgbox VarType(rs(1))

Re: VBS: Преобразование данных blob в строку

null@example.com (pavlikspb) — Thu, 03 Nov 2011 05:04:31 +0000

поле TIMEINTR.DAYWEEK типа blob

Dim connA
Dim arrTest
Set connA = CreateObject("ADODB.Connection")
connA.Open ("Data Source = Апакс25")
Dim rs
Set rs = CreateObject("ADODB.Recordset")
rs.Open "select TZRECNUM, TIMEINTR.DAYWEEK, INTERNUM from TIMEINTR", connA

rs.MoveFirst
do while not rs.eof
                        
msgbox rs(1)        
rs.MoveNext

loop

Re: VBS: Преобразование данных blob в строку

null@example.com (alexii) — Wed, 02 Nov 2011 21:40:14 +0000

pavlikspb, как Вы извлекаете сами данные из поля? Какой тип данных получается в итоге? Это надо знать, чтобы понимать как работать дальше.

VBS: Преобразование данных blob в строку

null@example.com (pavlikspb) — Wed, 02 Nov 2011 18:54:40 +0000

Подскажите пожалуйста, как преобразовать данные из поля blob в строку, чтобы можно было их просмотреть.
Смысл такой - информация в этом поле занимает 7 байт, которые характеризуют дни недели. В каждом байте используется только первый бит, если он установлен например во втором байте, то это вторник, если во втором и третьем, то это вторник и среда и так далее. Подскажите как вывести эти флаги в строку, например можно так 01010101010101 (Вся неделя).

Заранее благодарю!