Серый форум — VBS: Как к переменной rs(6) объекта recordset прибавить число

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Tue, 30 Nov 2010 10:18:30 +0000

Решил таким способом

ANUMB=hex(rs1(6))
         SNUMB=6-Len(ANUMB)
         HNUMB=String(SNUMB, "0")&ANUMB
         rs2.Fields("CODEKEY").Value = trim("18" & HNUMB & "00000000")

где 18 - это флаг, который ставится при наличии номера карты, HNUMB - сам номер карты в шестнадцатиричном формате, а 00000000 - зарезервированно на будущее.

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Thu, 25 Nov 2010 10:49:08 +0000

Еще раз большое спасибо!!!

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Thu, 25 Nov 2010 10:48:01 +0000

Все, разобрался, в базе куда их необходимо выгружать поле CODEKEY типа TINYBLOB, а само смещение уже превышало размер поля, поэтому и получалась ерунда, когда размер мещения убавил все заработало. А почему я изначательно пытался загрузить такое большое число - потому что ввел в заблуждение сам программный продукт, у него в окне информации выводится содержимое этого поля, но 32 бита он дописывает сам (видно заложено на будущее). В любом случае большое спасибо.

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 18:37:44 +0000

уточнение, результат должен быть наверное такой:
"11000 & Dec2Bin(rs1.Fields("FCARDNUM").Value) & 0000 0000 0000 0000 0000 0000 0000 0000"
?

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 18:22:18 +0000

сравнивая результаты одних и тех же карточек, но в разных системах получаем изменение, только в первых - 41 бите, а в остальны 40 нули так и остаются...

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 18:08:47 +0000

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

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (Евген) — Wed, 24 Nov 2010 17:33:29 +0000

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

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 17:15:43 +0000

может это может как-то решить проблему:
если переводить выходное поле, то в двоичном виде мы получаем 101011011100011100110101,
а при добавлении смещения получаем 1100010101101110001110011010100000000000000000000000000000000,
выходит, что мы можем добавлять смещение относительно первых 5 знаков, а нули просто дописывать, что-то я совсем запутался...

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (Евген) — Wed, 24 Nov 2010 16:50:58 +0000

Преобразование в двоичное... (оба решения не мои !!!)
проверка выявила взаимную работоспособность !!!

msgbox bin2dec(dec2bin(135))

но с такими числами 1778296458317019339 не работает

Function Dec2Bin(n)
Do Until n = 0
    If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin
    n = n \ 2
Loop
End Function

и обратно, после смещения...

Function Bin2Dec(strBin)
  Dim intLen, intPos, intValue, strTemp, strValue
  intLen = Len(strBin)
  intPos = 1
  intValue = 0
  strTemp = strReverse(strBin)

  Do While intPos <= intLen
    strValue = Mid(strTemp, intPos, 1)
    Select Case strValue
      Case "0"
      Case "1"
        If intPos = 1 Then
          intValue = intValue + 1
        Else
          intValue = intValue + (2 ^ (intPos - 1))
        End If 
      Case Else
        intValue = Empty
        Exit Do
    End Select 
    intPos = intPos + 1
  Loop

  Bin2Dec = intValue
End Function

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 16:35:05 +0000

только как это реализовать?

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 16:23:41 +0000

входное число выходно число(ncdk)
5415622 1,77829645832244E+18
5426246 1,77829645832245E+18
5600614 1,77829645832262E+18

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (Евген) — Wed, 24 Nov 2010 16:18:16 +0000

pavlikspb пишет:

Может поменять слагаемые местами - т.е. сначала преобразовать в двоичное число, а потом добавить двоичное смещение?

Наверное этот путь будет правильным...

У меня сейчас напрашивается вопрос - с насколько большими числами может работать VBScript ?

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 16:11:01 +0000

Когда ответ одинаковый, то результат всегда получается 3543267717139282230

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (Евген) — Wed, 24 Nov 2010 16:08:41 +0000

а что выдало

Msgbox ncdk

и какое было значение поля FCARDNUM

Re: VBS: Как к переменной rs(6) объекта recordset прибавить число

null@example.com (pavlikspb) — Wed, 24 Nov 2010 16:06:36 +0000

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