feat: add core VBA source code modules

Add VBA directory with essential project code including: - ClassModules: BomExtractor, BomItem, ConditionEvaluator, ProductModelParser - Modules: MainModule, TestModule - Forms and DocumentModules - vba_metadata.json for module metadata Co-Authored-By: Claude Sonnet 4.5 <noreply@anthropic.com>
2026-02-01 16:18:17 +08:00
parent 80d9734b91
commit 79dc7cbf72
7 changed files with 1726 additions and 0 deletions
--- a/VBA/Modules/MainModule.bas
+++ b/VBA/Modules/MainModule.bas
@@ -0,0 +1,371 @@
+'=====================================================================
+' 模块名: MainModule
+' 功能: 主控模块,处理产品型号提取和BOM匹配的上层逻辑
+' 作者: Auto-generated
+' 日期: 2025-01-29
+'=====================================================================
+
+Option Explicit
+
+'=====================================================================
+' 常量定义
+'=====================================================================
+' 提取条件配置(可灵活扩展)
+Private Const CONDITION_CONFIG = "azxs,安装形式|bkxs,表壳形式|gclj,过程连接|jycz,接液材质|lcfw,量程范围"
+
+'=====================================================================
+' 过程: ProcessProductModels
+' 功能: 批量处理产品型号并输出结果
+' 说明: 这是主入口程序
+'=====================================================================
+Public Sub ProcessProductModels()
+    On Error GoTo ErrorHandler
+
+    Dim startTime As Double
+    startTime = Timer
+
+    ' 准备输入输出
+    Dim inputSheet As Worksheet
+    Dim outputSheet As Worksheet
+    Dim bomSheet As Worksheet
+
+    ' 获取工作表
+    Set inputSheet = GetInputSheet()
+    If inputSheet Is Nothing Then
+        MsgBox "未找到输入工作表,请确保工作簿中有包含订单数据的工作表", vbCritical
+        Exit Sub
+    End If
+
+    ' 获取BOM库工作表
+    Set bomSheet = GetBomSheet()
+    If bomSheet Is Nothing Then
+        MsgBox "未找到'平台配置清单'工作表,请确保BOM数据存在", vbCritical
+        Exit Sub
+    End If
+
+    ' 创建或获取输出工作表
+    Set outputSheet = CreateOutputSheet()
+
+    ' 初始化BOM提取器
+    Dim BomExtractor As BomExtractor
+    Set BomExtractor = New BomExtractor
+    BomExtractor.SetWorksheet bomSheet
+
+    If Not BomExtractor.LoadBomData Then
+        MsgBox "加载BOM数据失败:" & BomExtractor.GetErrorSummary, vbCritical
+        Exit Sub
+    End If
+
+    ' 处理每个产品型号
+    Dim lastRow As Long
+    lastRow = inputSheet.Cells(inputSheet.Rows.Count, 1).End(xlUp).row
+
+    Dim outputRow As Long
+    outputRow = 2 ' 从第2行开始输出(第1行是表头)
+
+    ' 写入输出表头
+    WriteOutputHeader outputSheet
+
+    Dim i As Long
+    Dim modelString As String
+    Dim processedCount As Long
+
+    processedCount = 0
+
+    ' 假设产品型号在第1列,从第2行开始
+    For i = 2 To lastRow
+        modelString = Trim(inputSheet.Cells(i, 2).value)
+
+        If modelString <> "" Then
+            ' 处理单个型号
+            outputRow = ProcessSingleModel(modelString, BomExtractor, outputSheet, outputRow)
+            processedCount = processedCount + 1
+        End If
+    Next i
+
+    ' 格式化输出表
+    FormatOutputSheet outputSheet
+
+    Dim elapsedTime As Double
+    elapsedTime = Timer - startTime
+
+    MsgBox "处理完成!" & vbCrLf & _
+           "处理型号数: " & processedCount & vbCrLf & _
+           "用时: " & Format(elapsedTime, "0.00") & "秒", vbInformation
+
+    ' 激活输出表
+    outputSheet.Activate
+
+    Exit Sub
+
+ErrorHandler:
+    MsgBox "处理异常: " & Err.description, vbCritical
+End Sub
+
+'=====================================================================
+' 函数: ProcessSingleModel
+' 功能: 处理单个产品型号
+' 参数: modelString - 产品型号字符串
+'       bomExtractor - BOM提取器对象
+'       outputSheet - 输出工作表
+'       startRow - 起始行号
+' 返回: Long - 下一个可用行号
+'=====================================================================
+Private Function ProcessSingleModel(modelString As String, _
+                                    BomExtractor As BomExtractor, _
+                                    outputSheet As Worksheet, _
+                                    startRow As Long) As Long
+    On Error Resume Next
+
+    Dim currentRow As Long
+    currentRow = startRow
+
+    ' 解析产品型号
+    Dim parser As ProductModelParser
+    Set parser = New ProductModelParser
+
+    Dim extractNote As String
+    extractNote = ""
+
+    If Not parser.Parse(modelString) Then
+        ' 解析失败
+        extractNote = "解析失败: " & parser.ErrorMessage
+        WriteOutputRow outputSheet, currentRow, modelString, "", parser.Conditions, extractNote, Nothing
+        ProcessSingleModel = currentRow + 1
+        Exit Function
+    End If
+
+    ' 提取BOM
+    Dim matchedItems As collection
+    Set matchedItems = BomExtractor.ExtractBom(parser.Conditions)
+
+    ' 获取错误信息
+    Dim bomErrors As String
+    bomErrors = BomExtractor.GetErrorSummary
+    If bomErrors <> "" Then
+        extractNote = bomErrors
+    End If
+
+    ' 输出结果
+    If matchedItems.Count = 0 Then
+        ' 没有匹配项
+        If extractNote = "" Then
+            extractNote = "未匹配到任何物料"
+        End If
+        WriteOutputRow outputSheet, currentRow, modelString, parser.HeaderModel, parser.Conditions, extractNote, Nothing
+        currentRow = currentRow + 1
+    Else
+        ' 输出每个匹配的物料
+        Dim item As BomItem
+        Dim isFirst As Boolean
+        isFirst = True
+
+        For Each item In matchedItems
+            Dim itemNote As String
+            itemNote = extractNote
+
+            ' 添加物料特定的错误
+            If item.MatchError <> "" Then
+                If itemNote <> "" Then itemNote = itemNote & "; "
+                itemNote = itemNote & item.MatchError
+            End If
+
+            If isFirst Then
+                WriteOutputRow outputSheet, currentRow, modelString, parser.HeaderModel, parser.Conditions, itemNote, item
+                isFirst = False
+            Else
+                WriteOutputRow outputSheet, currentRow, "", "", parser.Conditions, itemNote, item
+            End If
+
+            currentRow = currentRow + 1
+        Next item
+    End If
+
+    ProcessSingleModel = currentRow
+End Function
+
+'=====================================================================
+' 过程: WriteOutputHeader
+' 功能: 写入输出表头
+' 参数: ws - 工作表对象
+'=====================================================================
+Private Sub WriteOutputHeader(ws As Worksheet)
+    Dim col As Long
+    col = 1
+
+    ws.Cells(1, col).value = "产品型号": col = col + 1
+    ws.Cells(1, col).value = "表头型号": col = col + 1
+
+    ' 写入条件字段表头
+    Dim Conditions() As String
+    Dim labels() As String
+    GetConditionConfig Conditions, labels
+
+    Dim i As Long
+    For i = LBound(Conditions) To UBound(Conditions)
+        ws.Cells(1, col).value = labels(i)
+        col = col + 1
+    Next i
+
+    ' BOM字段表头
+    ws.Cells(1, col).value = "行号": col = col + 1
+    ws.Cells(1, col).value = "模块": col = col + 1
+    ws.Cells(1, col).value = "代号": col = col + 1
+    ws.Cells(1, col).value = "名称": col = col + 1
+    ws.Cells(1, col).value = "数量": col = col + 1
+    ws.Cells(1, col).value = "类别": col = col + 1
+    ws.Cells(1, col).value = "66代码": col = col + 1
+    ws.Cells(1, col).value = "提取备注": col = col + 1
+End Sub
+
+'=====================================================================
+' 过程: WriteOutputRow
+' 功能: 写入输出行
+' 参数: ws - 工作表对象
+'       row - 行号
+'       fullModel - 完整型号
+'       headerModel - 表头型号
+'       conditions - 条件字典
+'       note - 备注
+'       item - BOM项(可为Nothing)
+'=====================================================================
+Private Sub WriteOutputRow(ws As Worksheet, _
+                          row As Long, _
+                          FullModel As String, _
+                          HeaderModel As String, _
+                          Conditions As Object, _
+                          note As String, _
+                          item As BomItem)
+    Dim col As Long
+    col = 1
+
+    ws.Cells(row, col).value = FullModel: col = col + 1
+    ws.Cells(row, col).value = HeaderModel: col = col + 1
+
+    ' 写入条件值
+    Dim condNames() As String
+    Dim labels() As String
+    GetConditionConfig condNames, labels
+
+    Dim i As Long
+    For i = LBound(condNames) To UBound(condNames)
+        If Conditions.Exists(condNames(i)) Then
+            ws.Cells(row, col).value = Conditions(condNames(i))
+        Else
+            ws.Cells(row, col).value = ""
+        End If
+        col = col + 1
+    Next i
+
+    ' 写入BOM数据
+    If Not item Is Nothing Then
+        ws.Cells(row, col).value = item.RowNumber: col = col + 1
+        ws.Cells(row, col).value = item.Module: col = col + 1
+        ws.Cells(row, col).value = item.code: col = col + 1
+        ws.Cells(row, col).value = item.Name: col = col + 1
+        ws.Cells(row, col).value = item.Quantity: col = col + 1
+        ws.Cells(row, col).value = item.category: col = col + 1
+        ws.Cells(row, col).value = item.Code66: col = col + 1
+    Else
+        col = col + 7 ' 跳过BOM字段
+    End If
+
+    ws.Cells(row, col).value = note
+End Sub
+
+'=====================================================================
+' 过程: GetConditionConfig
+' 功能: 获取条件配置
+' 参数: outNames - 输出条件名称数组
+'       outLabels - 输出条件标签数组
+'=====================================================================
+Private Sub GetConditionConfig(ByRef outNames() As String, ByRef outLabels() As String)
+    Dim configs() As String
+    configs = Split(CONDITION_CONFIG, "|")
+
+    ReDim outNames(LBound(configs) To UBound(configs))
+    ReDim outLabels(LBound(configs) To UBound(configs))
+
+    Dim i As Long
+    Dim parts() As String
+
+    For i = LBound(configs) To UBound(configs)
+        parts = Split(configs(i), ",")
+        outNames(i) = Trim(parts(0))
+        outLabels(i) = Trim(parts(1))
+    Next i
+End Sub
+
+'=====================================================================
+' 函数: GetInputSheet
+' 功能: 获取输入工作表
+' 返回: Worksheet - 输入工作表对象
+'=====================================================================
+Private Function GetInputSheet() As Worksheet
+    ' 这里假设输入数据在当前活动工作表或名为"订单"的工作表
+    On Error Resume Next
+    Set GetInputSheet = ThisWorkbook.Worksheets("产品订单")
+    If GetInputSheet Is Nothing Then
+        Set GetInputSheet = ActiveSheet
+    End If
+    On Error GoTo 0
+End Function
+
+'=====================================================================
+' 函数: GetBomSheet
+' 功能: 获取BOM工作表
+' 返回: Worksheet - BOM工作表对象
+'=====================================================================
+Private Function GetBomSheet() As Worksheet
+    On Error Resume Next
+    Set GetBomSheet = ThisWorkbook.Worksheets("平台配置清单")
+    On Error GoTo 0
+End Function
+
+'=====================================================================
+' 函数: CreateOutputSheet
+' 功能: 创建或获取输出工作表
+' 返回: Worksheet - 输出工作表对象
+'=====================================================================
+Private Function CreateOutputSheet() As Worksheet
+    Dim wsName As String
+    wsName = "BOM提取结果"
+
+    On Error Resume Next
+    Set CreateOutputSheet = ThisWorkbook.Worksheets(wsName)
+    On Error GoTo 0
+
+    If CreateOutputSheet Is Nothing Then
+        Set CreateOutputSheet = ThisWorkbook.Worksheets.Add
+        CreateOutputSheet.Name = wsName
+    Else
+        ' 清空现有数据
+        CreateOutputSheet.Cells.Clear
+    End If
+End Function
+
+'=====================================================================
+' 过程: FormatOutputSheet
+' 功能: 格式化输出工作表
+' 参数: ws - 工作表对象
+'=====================================================================
+Private Sub FormatOutputSheet(ws As Worksheet)
+    On Error Resume Next
+
+    ' 设置表头格式
+    With ws.Rows(1)
+        .Font.Bold = True
+        .Interior.Color = RGB(217, 217, 217)
+        .HorizontalAlignment = xlCenter
+    End With
+
+'    ' 自动调整列宽
+'    ws.Columns.AutoFit
+'
+'    ' 冻结首行
+'    ws.Rows(2).Select
+'    'ActiveWindow.FreezePanes = True
+'    ws.Cells(1, 1).Select
+
+    On Error GoTo 0
+End Sub
--- a/VBA/Modules/TestModule.bas
+++ b/VBA/Modules/TestModule.bas
@@ -0,0 +1,338 @@
+'=====================================================================
+' 模块名: TestModule
+' 功能: 单元测试模块
+' 作者: Auto-generated
+' 日期: 2025-01-29
+'=====================================================================
+
+Option Explicit
+
+'=====================================================================
+' 过程: RunAllTests
+' 功能: 运行所有测试
+'=====================================================================
+Public Sub RunAllTests()
+    Debug.Print "=========================================="
+    Debug.Print "开始运行所有测试"
+    Debug.Print "时间: " & Now
+    Debug.Print "=========================================="
+    Debug.Print ""
+
+    ' 运行各个测试
+    TestProductModelParser
+    TestConditionEvaluator
+    TestBomExtractor
+
+    Debug.Print ""
+    Debug.Print "=========================================="
+    Debug.Print "所有测试完成"
+    Debug.Print "=========================================="
+
+    MsgBox "所有测试完成,请查看立即窗口查看结果", vbInformation
+End Sub
+
+'=====================================================================
+' 过程: TestProductModelParser
+' 功能: 测试产品型号解析器
+'=====================================================================
+Public Sub TestProductModelParser()
+    Debug.Print ">>> 测试 ProductModelParser"
+    Debug.Print ""
+
+    Dim parser As ProductModelParser
+    Set parser = New ProductModelParser
+
+    ' 测试用例1: 正常型号
+    Debug.Print "测试用例1: 正常型号"
+    Dim testModel1 As String
+    testModel1 = "YTHN-100.A0.531.M203.M06.Y3|BP-088.2312.M06.0A3"
+
+    If parser.Parse(testModel1) Then
+        Debug.Print "  解析成功"
+        Debug.Print "  表头型号: " & parser.HeaderModel
+        Debug.Print "  条件:"
+        Debug.Print "    azxs = " & parser.GetConditionValue("azxs")
+        Debug.Print "    bkxs = " & parser.GetConditionValue("bkxs")
+        Debug.Print "    gclj = " & parser.GetConditionValue("gclj")
+        Debug.Print "    jycz = " & parser.GetConditionValue("jycz")
+        Debug.Print "    lcfw = " & parser.GetConditionValue("lcfw")
+
+        ' 验证结果
+        AssertEquals "azxs", "A0", parser.GetConditionValue("azxs")
+        AssertEquals "bkxs", "531", parser.GetConditionValue("bkxs")
+        AssertEquals "gclj", "M20", parser.GetConditionValue("gclj")
+        AssertEquals "jycz", "3", parser.GetConditionValue("jycz")
+        AssertEquals "lcfw", "M06", parser.GetConditionValue("lcfw")
+    Else
+        Debug.Print "  解析失败: " & parser.ErrorMessage
+    End If
+    Debug.Print ""
+
+    ' 测试用例2: 不同材质代码
+    Debug.Print "测试用例2: 不同材质代码"
+    Dim testModel2 As String
+    testModel2 = "YTHN-100.BZ.531.M201.M09.Y3|BP-088.2312.M37.0A3"
+
+    If parser.Parse(testModel2) Then
+        Debug.Print "  解析成功"
+        Debug.Print "  gclj = " & parser.GetConditionValue("gclj")
+        Debug.Print "  jycz = " & parser.GetConditionValue("jycz")
+
+        AssertEquals "gclj", "M20", parser.GetConditionValue("gclj")
+        AssertEquals "jycz", "1", parser.GetConditionValue("jycz")
+    Else
+        Debug.Print "  解析失败: " & parser.ErrorMessage
+    End If
+    Debug.Print ""
+
+    ' 测试用例3: 带附件的型号
+    Debug.Print "测试用例3: 带附件的型号"
+    Dim testModel3 As String
+    testModel3 = "YTHN-100.A0.531.G123.M04.Y3|BP-088.2312.B09.0A3"
+
+    If parser.Parse(testModel3) Then
+        Debug.Print "  解析成功"
+        Debug.Print "  gclj = " & parser.GetConditionValue("gclj")
+        Debug.Print "  jycz = " & parser.GetConditionValue("jycz")
+
+        AssertEquals "gclj", "G12", parser.GetConditionValue("gclj")
+        AssertEquals "jycz", "3", parser.GetConditionValue("jycz")
+    Else
+        Debug.Print "  解析失败: " & parser.ErrorMessage
+    End If
+    Debug.Print ""
+
+    Debug.Print "<<< ProductModelParser 测试完成"
+    Debug.Print ""
+End Sub
+
+'=====================================================================
+' 过程: TestConditionEvaluator
+' 功能: 测试条件评估器
+'=====================================================================
+Public Sub TestConditionEvaluator()
+    Debug.Print ">>> 测试 ConditionEvaluator"
+    Debug.Print ""
+
+    Dim evaluator As ConditionEvaluator
+    Set evaluator = New ConditionEvaluator
+
+    ' 创建测试条件字典
+    Dim Conditions As Object
+    Set Conditions = CreateObject("Scripting.Dictionary")
+    Conditions.Add "azxs", "A0"
+    Conditions.Add "bkxs", "531"
+    Conditions.Add "gclj", "M20"
+    Conditions.Add "jycz", "3"
+    Conditions.Add "lcfw", "M06"
+
+    ' 测试用例1: 简单等式
+    Debug.Print "测试用例1: 简单等式"
+    Dim expr1 As String
+    expr1 = "azxs=A0"
+    Debug.Print "  表达式: " & expr1
+    Debug.Print "  结果: " & evaluator.Evaluate(expr1, Conditions)
+    AssertTrue "简单等式", evaluator.Evaluate(expr1, Conditions)
+    Debug.Print ""
+
+    ' 测试用例2: AND运算
+    Debug.Print "测试用例2: AND运算"
+    Dim expr2 As String
+    expr2 = "azxs=A0 AND bkxs=531"
+    Debug.Print "  表达式: " & expr2
+    Debug.Print "  结果: " & evaluator.Evaluate(expr2, Conditions)
+    AssertTrue "AND运算", evaluator.Evaluate(expr2, Conditions)
+    Debug.Print ""
+
+    ' 测试用例3: OR运算
+    Debug.Print "测试用例3: OR运算"
+    Dim expr3 As String
+    expr3 = "azxs=AT OR azxs=A0"
+    Debug.Print "  表达式: " & expr3
+    Debug.Print "  结果: " & evaluator.Evaluate(expr3, Conditions)
+    AssertTrue "OR运算", evaluator.Evaluate(expr3, Conditions)
+    Debug.Print ""
+
+    ' 测试用例4: !=运算
+    Debug.Print "测试用例4: !=运算"
+    Dim expr4 As String
+    expr4 = "azxs!=AH"
+    Debug.Print "  表达式: " & expr4
+    Debug.Print "  结果: " & evaluator.Evaluate(expr4, Conditions)
+    AssertTrue "!=运算", evaluator.Evaluate(expr4, Conditions)
+    Debug.Print ""
+
+    ' 测试用例5: 复杂嵌套
+    Debug.Print "测试用例5: 复杂嵌套"
+    Dim expr5 As String
+    expr5 = "(azxs=A0 OR azxs=AT) AND (bkxs=531 OR bkxs=541)"
+    Debug.Print "  表达式: " & expr5
+    Debug.Print "  结果: " & evaluator.Evaluate(expr5, Conditions)
+    AssertTrue "复杂嵌套", evaluator.Evaluate(expr5, Conditions)
+    Debug.Print ""
+
+    ' 测试用例6: 不存在的变量(!=情况)
+    Debug.Print "测试用例6: 不存在的变量(!=情况)"
+    Dim expr6 As String
+    expr6 = "tsyq!=SCRJ"
+    Debug.Print "  表达式: " & expr6
+    Debug.Print "  结果: " & evaluator.Evaluate(expr6, Conditions)
+    AssertTrue "不存在的变量!=", evaluator.Evaluate(expr6, Conditions)
+    Debug.Print ""
+
+    ' 测试用例7: 实际BOM条件
+    Debug.Print "测试用例7: 实际BOM条件"
+    Dim expr7 As String
+    expr7 = "gclj=M20 AND jycz=1 AND lcfw=M01 AND (azxs=A0 OR azxs=AT OR azxs=AH)"
+    Debug.Print "  表达式: " & expr7
+    Debug.Print "  结果: " & evaluator.Evaluate(expr7, Conditions)
+    ' 这个应该是False,因为jycz=3,不是1
+    AssertFalse "实际BOM条件(应该False)", evaluator.Evaluate(expr7, Conditions)
+    Debug.Print ""
+
+    Debug.Print "<<< ConditionEvaluator 测试完成"
+    Debug.Print ""
+End Sub
+
+'=====================================================================
+' 过程: TestBomExtractor
+' 功能: 测试BOM提取器(需要实际的工作表数据)
+'=====================================================================
+Public Sub TestBomExtractor()
+    Debug.Print ">>> 测试 BomExtractor"
+    Debug.Print ""
+
+    On Error Resume Next
+    Dim bomSheet As Worksheet
+    Set bomSheet = ThisWorkbook.Worksheets("平台配置清单")
+
+    If bomSheet Is Nothing Then
+        Debug.Print "警告: 未找到'平台配置清单'工作表,跳过BomExtractor测试"
+        Debug.Print ""
+        Exit Sub
+    End If
+    On Error GoTo 0
+
+    Dim extractor As BomExtractor
+    Set extractor = New BomExtractor
+    extractor.SetWorksheet bomSheet
+
+    If Not extractor.LoadBomData Then
+        Debug.Print "加载BOM数据失败: " & extractor.GetErrorSummary
+        Debug.Print ""
+        Exit Sub
+    End If
+
+    Debug.Print "BOM数据加载成功"
+    Debug.Print ""
+
+    ' 测试用例: 提取BOM
+    Debug.Print "测试用例: 提取BOM"
+    Dim testConditions As Object
+    Set testConditions = CreateObject("Scripting.Dictionary")
+    testConditions.Add "azxs", "A0"
+    testConditions.Add "bkxs", "531"
+    testConditions.Add "gclj", "M20"
+    testConditions.Add "jycz", "1"
+    testConditions.Add "lcfw", "M01"
+
+    Dim matchedItems As collection
+    Set matchedItems = extractor.ExtractBom(testConditions)
+
+    Debug.Print "  匹配到 " & matchedItems.Count & " 个物料"
+
+    If matchedItems.Count > 0 Then
+        Debug.Print "  匹配的物料:"
+        Dim item As BomItem
+        Dim i As Long
+        i = 1
+        For Each item In matchedItems
+            Debug.Print "    " & i & ". " & item.ToString
+            i = i + 1
+        Next item
+    End If
+
+    Dim errors As String
+    errors = extractor.GetErrorSummary
+    If errors <> "" Then
+        Debug.Print "  错误信息: " & errors
+    End If
+
+    Debug.Print ""
+    Debug.Print "<<< BomExtractor 测试完成"
+    Debug.Print ""
+End Sub
+
+'=====================================================================
+' 辅助测试函数
+'=====================================================================
+
+Private Sub AssertEquals(testName As String, expected As String, actual As String)
+    If expected = actual Then
+        Debug.Print "   PASS: " & testName
+    Else
+        Debug.Print "   FAIL: " & testName & " (期望:" & expected & ", 实际:" & actual & ")"
+    End If
+End Sub
+
+Private Sub AssertTrue(testName As String, value As Boolean)
+    If value Then
+        Debug.Print "   PASS: " & testName
+    Else
+        Debug.Print "   FAIL: " & testName & " (期望:True, 实际:False)"
+    End If
+End Sub
+
+Private Sub AssertFalse(testName As String, value As Boolean)
+    If Not value Then
+        Debug.Print "   PASS: " & testName
+    Else
+        Debug.Print "   FAIL: " & testName & " (期望:False, 实际:True)"
+    End If
+End Sub
+
+'=====================================================================
+' 过程: TestWithProvidedModels
+' 功能: 使用提供的测试型号进行测试
+'=====================================================================
+Public Sub TestWithProvidedModels()
+    Debug.Print "=========================================="
+    Debug.Print "使用提供的测试型号进行测试"
+    Debug.Print "=========================================="
+    Debug.Print ""
+
+    Dim testModels() As String
+    testModels = Split( _
+        "YTHN-100.A0.531.G123.M04.Y3|BP-088.2312.B09.0A3," & _
+        "YTHN-100.BZ.531.M201.M09.Y3|BP-088.2312.M37.0A3," & _
+        "YTHN-100.BZ.531.M201.M08.Y3|BP-088.2312.M08.0A3," & _
+        "YTHN-100.A0.531.M201.M08.Y3|BP-088.2312.M08.0B3," & _
+        "YTHN-100.A0.531.M203.M06.Y3|BP-088.2312.M06.0A3|LSG-1.14x2.M20F.M20.3^HDJ.M20F.BW.14×2×60.3^TSFJ^WHP.70X20X1.3," & _
+        "YTHN-100.A0.531.M203.P21.Y3|BP-088.2312.M39.0A3|HDJ.M20F.BW.14×2×60.3^LSG-1.14x2.M20F.M20.3^TSFJ^WHP.70X20X1.3," & _
+        "YTHN-100.A0.531.M201.M03.N1.Y3|BP-088.2312.M31.0A4," & _
+        "YTHN-100.A0.531.M201.M04.Y3|BP-088.2312.M32.0A3," & _
+        "YTHN-100.A0.531.Z121.M07.Y3|BP-088.2312.M07.0A3," & _
+        "YTHN-100.A0.531.Z121.M08.Y3|BP-088.2312.M08.0A3", _
+        ",")
+
+    Dim parser As ProductModelParser
+    Set parser = New ProductModelParser
+
+    Dim i As Long
+    For i = LBound(testModels) To UBound(testModels)
+        Debug.Print "型号 " & (i + 1) & ": " & testModels(i)
+
+        If parser.Parse(testModels(i)) Then
+            Debug.Print "   解析成功"
+            Debug.Print "    表头: " & parser.HeaderModel
+            Debug.Print "    条件: " & parser.GetAllConditions
+        Else
+            Debug.Print "   解析失败: " & parser.ErrorMessage
+        End If
+        Debug.Print ""
+    Next i
+
+    Debug.Print "=========================================="
+    Debug.Print "测试完成"
+    Debug.Print "=========================================="
+End Sub