Quintiq file version 2.0
|
#parent: #root
|
Method PTF_ValidateComment (
|
String script
|
) as String id:Method_LibPTF_dlgCreateEditTestScript_PTF_ValidateComment
|
{
|
#keys: '[104342.0.894793701]'
|
Body:
|
[*
|
// Validate a comment
|
linenr := 0;
|
errormsg := "";
|
keywordstartcomment := this.PTF_SymbolStartComment();
|
keywordendcomment := this.PTF_SymbolEndComment();
|
|
if( script.FindString( keywordendcomment, 0 ) <> -1 )
|
{
|
scriptprior := script.SubString( 0, script.FindString( keywordendcomment, 0 ) );
|
linenr := scriptprior.NrOccurrences( String::NewLine(), 0, true ) + 1;
|
|
errormsg := "Line #" + [String]linenr + ": Closed comment '" + keywordendcomment + "' without open comment '" + keywordstartcomment + "'";
|
}
|
|
return errormsg;
|
*]
|
}
|
