4

Word ドキュメントに欠陥 ID 番号のリストが含まれており、そのリストを ClearQuest クエリまたは ClearQuest の SQL クエリで使用して、それらの欠陥だけを新しい状態に移動する方法があるかどうかを知りたいです。何百もの欠陥のうち、おそらく何百もの欠陥について話しているので、すべての欠陥から個々に欠陥を選択したくありません。

ありがとうございました。

4

1 に答える 1

1

CQPerl を使用できる場合は、外部スクリプトで簡単に実行できます。

データを読み込み、次のようにループします。

foreach $id (@idList) {
    my $entity = $session->GetEntity('defect', $id);
    $session->EditEntity($entity, $action);
    my $validate = $entity->Validate();
    print "Validate results $validate.";
    $entity->Commit();
}

Word から直接読み取る必要がある場合は、こちらをご覧ください: http://www.wellho.net/solutions/perl-using-perl-to-read-microsoft-word-documents.html

use Win32::OLE;
use Win32::OLE::Enum;

$document = Win32::OLE -> GetObject($ARGV[1]);
open (FH,">$ARGV[0]");

print "Extracting Text ...\n";

$paragraphs = $document->Paragraphs();
$enumerate = new Win32::OLE::Enum($paragraphs);
while(defined($paragraph = $enumerate->Next()))
    {
    $style = $paragraph->{Style}->{NameLocal};
    print FH "+$style\n";
    $text = $paragraph->{Range}->{Text};
    $text =~ s/[\n\r]//g;
    $text =~ s/\x0b/\n/g;
    print FH "=$text\n";
    }
于 2009-10-23T20:35:49.533 に答える