Вроде у меня срослось. Куски кода:
Вставить после "MethodsBehaviour.Add "запрос", "QUERYATTRS""
MethodsBehaviour.Add "структура", "STRFIELDS"
MethodsBehaviour.Add "struct", "STRFIELDS"
.....
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Private Function GetMethodsList(CurrentLine)
Вставить после:
     Case "VTCOLUMNS":
           Methods = GetVTColumns(lCase(ExprParts(0)), "")
вставка>>
     Case "STRFIELDS":
           Methods = GetSRTFields(lCase(ExprParts(0)), "")
вставка<<
Ну и наконец процедура:
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Возвращает список полей для Struct с идентификатором VTName
'
Private Function GetSRTFields(VTName, FieldName)
'stop
     GetSRTFields = "  3"
     NewFieldString = "" + VTName + "[.](вставить|Insert)[(][""]+[a-zа-яё0-9_]+[""]+"
     Set Matches = GetREQuery(txtTrim, NewFieldString)
     for Each NextMatch in Matches
           NextMatchField = Replace( NextMatch.Value, VTName + ".(вставить|Insert)[(][""]+", "",1,-1,1)
           NextMatchField = Replace( NextMatch.Value, """", "",1,-1,1)
           Parameters = Split(NextMatchField,"(")
           if UBound(Parameters)>0 Then
                 GetSRTFields = GetSRTFields +  + vbCrLf + picTableField + Replace( Parameters(1), """","")
           End IF
     Next
end function
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

ADirks писал(а) 26. Июля 2006 :: 10:31:

Я ж не подключен(.
И не собираюсь подключаться, т.к. заметил что мои предпочтения расходятся с массовыми предпочтениями.
Накомичу, а потом уши гореть будут ))
Да и строка в функции хромает(
NextMatchField = Replace( NextMatch.Value, VTName + ".(вставить|Insert)[(][""]+", "",1,-1,1)
перепутал регэкспный риплис с простым....