• Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Тема: Массив данных

Наверное я неудачно сделала предыдущую тему.
Вот вроде кусочек программы который шарит по массиву.
Помогите пожалуйста отобрать по нескольким критериям блоки:
Private Function Attr_To_Specif(Blobj)
'Dim A As Variant
Dim attr, tempmass(0 To 5)
Dim i As Integer, AttrDin
For i = 0 To 5: tempmass(i) = "Íåò äàííûõ": Next i
For Each attr In Blobj.GetAttributes
Select Case attr.TagString
  Case "MARKA"
   tempmass(0) = attr.TextString = Label3
  Case "NAIMENOVANIE"
   tempmass(1) = attr.TextString
  Case "OTVETVLENIYA"
   tempmass(2) = attr.TextString
  Case "OBOZNACHENIE"
   tempmass(3) = attr.TextString
  Case "N"
   tempmass(4) = attr.TextString
End Select
Next
AttrDin = Blobj.GetDynamicBlockProperties
For Each attr In AttrDin
   If attr.PropertyName = "Âèäèìîñòü" Then
      tempmass(5) = attr.Value
   End If
Next
Attr_To_Specif = tempmass
End Function

  • Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Re: Массив данных

Подскажите пожалуйста как отобрать определенные блоки и передать их количество в другой модуль.

  • AlexV
  • Активный участник
  • Откуда: С-Пб
  • На форуме с 19 июня 2003г.
  • Сообщений: 330
  • Спасибо: 4

Re: Массив данных

Дарья, данная функция (в первоначальном варианте)проходилась по BlockReference (предварительно отобранному из списка по имени блока и слою) и возвращала массив со значениями соответствующих атрибутов и динамических свойств. Строка

For i = 0 To 5: tempmAss(i) = "Нет данных": Next i

- на случай, если в данной вставке блока нет какого-либо из атрибутов. С какой целью у вас:

For i = 0 To 5: tempmass(i) = "Íåò äàííûõ": Next i

, а уж тем более:

If attr.PropertyName = "Âèäèìîñòü" Then
tempmass(5) = attr.Value
End If

- я что-то не понимаю (неужто в вашем блоке есть динамическое свойство с именем "Âèäèìîñòü"? :))

  • Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Re: Массив данных

Это глюк. Я вставила програмный код, а русский текст превратился в эти каракули