Azure DevOps Demo Models · main

vba_assessment.py

modernization/vba-routine-assessment/src/vba_assessment.py · 805 bytes · read-only public source view

from __future__ import annotations
import argparse
import json
import re
from pathlib import Path

parser=argparse.ArgumentParser()
parser.add_argument('file')
args=parser.parse_args()
text=Path(args.file).read_text(encoding='utf-8',errors='replace')
routines=re.findall(r'^\s*(?:Public\s+|Private\s+)?(?:Sub|Function)\s+([A-Za-z_][A-Za-z0-9_]*)',text,re.MULTILINE|re.IGNORECASE)
external=len(re.findall(r'CreateObject|GetObject|Declare\s+(?:PtrSafe\s+)?Function',text,re.IGNORECASE))
globals_count=len(re.findall(r'^\s*(?:Public|Global)\s+[A-Za-z_]',text,re.MULTILINE|re.IGNORECASE))
handlers=len(re.findall(r'On\s+Error',text,re.IGNORECASE))
print(json.dumps({'routines':routines,'routineCount':len(routines),'externalCalls':external,'globalVariables':globals_count,'errorHandlers':handlers},indent=2))