我有一个包含在 Word 文档中的缺陷 ID 号列表,并且想知道是否有一种方法可以在 ClearQuest 查询或 ClearQuest 中的 SQL 查询中使用该列表来仅将这些缺陷移至新状态。我们谈论的可能是数百个缺陷中的数百个,因此我不想从所有缺陷中单独选择缺陷。
谢谢。
小智 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();
}
Run Code Online (Sandbox Code Playgroud)
如果需要直接从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";
}
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
2049 次 |
| 最近记录: |