Объяснить код VBScript

Question

Объяснить код VBScript

Может кто-нибудь помочь мне понять, что делает этот кусок VBScript. Я теряюсь в бите WhereClause

 If CVs = "," or CVs = ",," Then
    ExistingSupplierCVs = 0
Else
    Set CVRecords = Ext.CreateAppRecordList( ActivityTableId )
    WhereClause = Left(CVs, Len(CVs)-1)
    WhereClause = Right(WhereClause, Len(WhereClause)-1)
    WhereClause = "TS_ID in (" & WhereClause & ") and TS_SUPPLIER = " &      Supplier

    If Not CVRecords.ReadWithWhere( WhereClause ) then
        Call Ext.LogErrorMsg( "TeamScript Error : Cannot find " & QUOTE & WhereClause & QUOTE & " in table " & QUOTE & "USR_ACTIVITY" & QUOTE )
        Exit Sub
    End If

    ExistingSupplierCVs = CVRecords.Length()
End If

0

vbscript serena

Источник

user4865965 20 июл '16 в 14:15

4 ответа

Другие вопросы по тегам vbscript serena

20 июл '16 в 21:03 2016-07-20 21:03 · Answer 1 · 2016-07-20 21:03

Как @Dave заявил: они удаляют первый и последний символы из CVs строка.

Более простой подход будет использовать Mid

WhereClause = Mid(CVs, 2, Len(CVs) - 2)

Вы можете объединить все три строки следующим образом:

WhereClause = "TS_ID in (" & Mid(CVs, 2, Len(CVs) - 2) & ") and TS_SUPPLIER = " & Supplier

1

Источник

20 июл '16 в 21:03

user1368561 25 окт '17 в 16:16 2017-10-25 16:16 · Answer 2 · 2017-10-25 16:16

Поскольку это AppScript (вариант VBScript для SBM), вы получите лучшие ответы, разместив его на сайте сообщества Serena (теперь часть MicroFocus).

0

Источник

user1368561 25 окт '17 в 16:16

user6344044 08 сен '16 в 07:32 2016-09-08 07:32 · Answer 3 · 2016-09-08 07:32

Это очень типично для языка Serena Business Manager Composer - AppScript.

Код, которым вы поделились, будет подсчитывать количество записей в поле Multi Relation, а затем вводить значение в поле. Типичные пустые поля Multi Relational выглядят как ",," и будут иметь значения, которые будут выглядеть примерно так: "1,34" с числами, показывающими идентификаторы поля, на которое указывает это поле MR.

Строящееся предложение where является не чем иным, как простым удалением первой и последней запятой из поля MR и последующим запросом идентификаторов.

дайте мне знать, если у вас все еще есть какие-либо сомнения здесь.

user6255978 20 июл '16 в 14:46 2016-07-20 14:46 · Answer 4 · 2016-07-20 14:46

Лучшее предположение, как показано ниже...

If CVs = "," or CVs = ",," Then
    ExistingSupplierCVs = 0 ' if the string is empty advise that the number of CVs is zero
Else
    Set CVRecords = Ext.CreateAppRecordList( ActivityTableId ) ' extract a list of CVRecords
    WhereClause = Left(CVs, Len(CVs)-1) ' strip the last char from this string
    WhereClause = Right(WhereClause, Len(WhereClause)-1) ' strip the first char from this string
    WhereClause = "TS_ID in (" & WhereClause & ") and TS_SUPPLIER = " &      Supplier ' insert the values into (presumably) a SQL query

    If Not CVRecords.ReadWithWhere( WhereClause ) then ' if executing the query returns false
        Call Ext.LogErrorMsg( "TeamScript Error : Cannot find " & QUOTE & WhereClause & QUOTE & " in table " & QUOTE & "USR_ACTIVITY" & QUOTE ) 'report an error and exit the subroutine.
        Exit Sub
    End If

    ExistingSupplierCVs = CVRecords.Length() ' return the number of records from the query
End If