在.NET中解析VB6代碼

Question

我有一個用C＃編寫的WPF項目，爲了獲得關於外部依賴關係的一些信息，我需要解析一個VB6腳本。腳本的位置變化和其含量的變化，但主要的代碼我很感興趣會是以下格式：

Select Case Fields("blah").Value 
    Case "Some value" 
     Fields("other blah").List = Lists("a list name") 
    ... 
End Select 

我需要從這種提取物，當現場「嗒嗒」設置爲「某個值'，'other blah'字段的列表更改爲列出'列表名稱'。我試着用一個VB6解析器作爲.NET庫進行搜索，但還沒有發現任何東西。有可能得到像this one這樣的答案，我應該使用正則表達式在VB6腳本中找到這樣的代碼，並提取我需要的數據？代碼在子例程中找到，這樣我就不能傳入'blah'，'some value'並返回'other blah'，'列表名稱'。我無法控制這個VB6腳本的內容。

Answer 1

您可以通過幾個步驟解析它。請注意，正則表達式會遺漏字符串和註釋，請小心使用。

首先，我們將使用一個輔助類爲Fields("Target").List = Lists("Value")行：

class ListData 
{ 
    public string Target { get; set; } 
    public string Value { get; set; } 
} 

輸出模式：

string patternSelectCase = @" 
Select\s+Case\s+Fields\(""(?<CaseField>[\w\s]+)""\)\.Value 
(?<Cases>.*?) 
End\s+Select 
"; 

string patternCase = @" 
Case\s+""(?<Case>[\w\s]+)""\s+ 
(?:Fields\(""(?<Target>[\w\s]+)""\)\.List\s*=\s*Lists\(""(?<Value>[\w\s]+)""\)\s+)* 
"; 

接下來，我們可以嘗試解析兩遍文本（代碼順便說一句，但是相當基本）：

MatchCollection matches = Regex.Matches(vb, patternSelectCase, 
     RegexOptions.IgnoreCase | RegexOptions.IgnorePatternWhitespace | 
     RegexOptions.Singleline); 

Console.WriteLine(matches.Count); 

var data = new Dictionary<String, Dictionary<String, List<ListData>>>(); 
foreach (Match match in matches) 
{ 
    var caseData = new Dictionary<String, List<ListData>>(); 
    string caseField = match.Groups["CaseField"].Value; 
    string cases = match.Groups["Cases"].Value; 

    MatchCollection casesMatches = Regex.Matches(cases, patternCase, 
      RegexOptions.IgnoreCase | RegexOptions.IgnorePatternWhitespace | 
      RegexOptions.Singleline); 
    foreach (Match caseMatch in casesMatches) 
    { 
     string caseTitle = caseMatch.Groups["Case"].Value; 
     var targetCaptures = caseMatch.Groups["Target"].Captures.Cast<Capture>(); 
     var valueCaptures = caseMatch.Groups["Value"].Captures.Cast<Capture>(); 
     caseData.Add(caseTitle, targetCaptures.Zip(valueCaptures, (t, v) => 
      new ListData 
      { 
       Target = t.Value, 
       Value = v.Value 
      }).ToList()); 
    } 

    data.Add(caseField, caseData); 
} 

現在你有一本包含所有數據的字典。例如：

string s = data["foo"]["Some value2"].First().Value; 

這裏有一個工作示例：https://gist.github.com/880148