Использование VB-интерфейсов в скрипте VB

Question

Я работаю над сценариями рабочего процесса HPQC и хотел бы перенести некоторый код VB, приведенный в примерах, в сценарий VB. Я не могу получить интерфейсы, работающие в скрипте VB.

VB код:

Dim iscp   As ISupportCopyPaste 
Dim clipboard  As String 

clipboard = iscp.CopyToClipBoard(sourceFolder.NodeID, 0, sourceFolderPath) 

Я не могу объявить УЭЦН, как ISupportCopyPaste в VB скрипта.

Я пробовал некоторые веб-ссылки, но не смог понять, как это работает в скрипте VB.

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

Answer 1

Я нашел пример кода на http://go-gaga-over-testing.blogspot.com/2011/04/code-to-copy-test-set-from-one-folder.html Он демонстрирует использование iSupportCopyPaste поэтому, возможно, вы будете иметь возможность адаптировать его.

1. Добавить следующий код в excel vba editor.
2. Добавить «Библиотека типа OTA COM» в качестве ссылки под инструментами -> ссылки от excel.
3. Run и наслаждаться волшебной :-) 3.

Решение:

Public Function CopyPasteTestSetFolder(sourceFolderPath, destFolderPath) 

    strServer = "http://xyz/qcbin" 
    strDomain = "" 
    strProject = "" 
    strUser = "" 
    strPassword = "" 

    Set objTDConnection = CreateObject("tdapiole80.TDCONNECTION") 
    objTDConnection.InitConnection strServer, strDomain 
    objTDConnection.ConnectProject strProject, strUser, strPassword 

    Set objTreeManager = objTDConnection.TestSetTreeManager 
    Set sourceFolder = objTreeManager.NodeByPath(sourceFolderPath) 
    Set destFolder = objTreeManager.NodeByPath(destFolderPath) 

    Dim iscp As ISupportCopyPaste 

    Set iscp = sourceFolder 

    clipboard = iscp.CopyToClipBoard(sourceFolder.NodeID, 0, sourceFolderPath) 

    Set iscp = destFolder 
    iscp.PasteFromClipBoard clipboard, destFolder.NodeID, 0, -1 

    Set treeMng = Nothing 
    Set sourceFolder = Nothing 
    Set destFolder = Nothing 
    Set iscp = Nothing 

End Function 

Answer 2

enterSearchContent = InputBox ("Введите Поиск контента") entersearchterm = InputBox ("Введите искомое слово")

Вызов funcSearchContentMatchCount (enterSearchContent, entersearchterm)

Функция funcSearchContentMatchCount (СПО earchcontent, strsearchterm)

If Typename(enterSearchContent) = "String" Then 
    If len(enterSearchContent) >0 Then 
     strsearchcontent = Lcase(cstr(enterSearchContent)) 
    else 
     msgbox "Content is blank" 
    End If 
Else 
    msgbox "Not a valid string" 
End If 

If Typename(entersearchterm) = "String" Then 
    If len(entersearchterm) >0 and len(enterSearchContent)>len(entersearchterm) Then 
     strsearchterm = Lcase(cstr(entersearchterm)) 
    else 
     msgbox "Search Term is blank or Search Term Length is greater than Search Content" 
    End If 
Else 
    msgbox "Not a valid string" 
End If 


arrstrsearchcontent = split(strsearchcontent," ") 
intsearchterm = 0 
intsearchtermExactMatch = 0 
For i = 0 To Ubound(arrstrsearchcontent) Step 1 
    If instr(arrstrsearchcontent(i),strsearchterm)<>0 Then 
     intsearchterm = intsearchterm+1 
     If strcomp(arrstrsearchcontent(i),strsearchterm,0) = 0 Then 
      intsearchtermExactMatch = intsearchtermExactMatch+1 
     End If 
    End If 
Next 
TotalMatchCount = intsearchterm 
TotalExactMatchCount = intsearchtermExactMatch 
Msgbox "Total Number of occurences of Search Term is "&TotalMatchCount 
Msgbox "Total Number of Exact occurences of Search Term is "&TotalExactMatchCount 

End Function