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;
  *]
}
