コメントトークン化テストコード

Public Sub prcコメントトークン化テスト()
    ' 単独行コメント
    Dim strName As String    ' 行末コメント
    Dim intCount As Integer
    Dim strSQL As String
    Dim strFilePath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    strName = "テスト"       ' 代入文の行末コメント
    strName = "Don't worry"  ' 文字列内シングルクォート
    strName = "It's a test"  ' 文字列内シングルクォート（複数）
    strName = "She said 'Hello' to me"  ' 文字列内にシングルクォート囲み
    
    ' ファイルパスでのシングルクォート使用パターン
    strFilePath = "C:\Data\John's Files\report.xlsx"  ' フォルダ名にシングルクォート
    strFilePath = "D:\Reports\Mary's Budget 2024.xlsx"  ' ファイル名にシングルクォート
    Set wb = Workbooks.Open("E:\Archive\Q1'24 Data.xlsx")  ' ファイル名に略記
    
    ' シート名でのシングルクォート使用パターン  
    Set ws = Worksheets("Smith's Data")  ' シート名にシングルクォート
    Set ws = Sheets("Q1'24 Results")     ' シート名に略記形式
    
    ' SQL文でのシングルクォート使用パターン
    strSQL = "SELECT * FROM テーブル WHERE 名前 = '田中'"  ' SQL文内シングルクォート
    strSQL = "INSERT INTO テーブル VALUES ('データ1', '田中太郎')"  ' 複数値
    strSQL = "UPDATE テーブル SET 備考 = 'Don''t delete' WHERE ID = 1"  ' エスケープされたシングルクォート
    
    ' 文字列リテラル + 行末コメント
    strName = "Can't stop now" & "Won't give up"  ' 複数文字列連結
    
    ' 継続文字2行パターン
    strName = "継続テスト" _
            & "文字列"       ' 継続行2のコメント
    
    ' SQL文の継続パターン
    strSQL = "SELECT 列1, 列2" _
           & " FROM テーブル" _
           & " WHERE 名前 = '田中'" _
           & " ORDER BY ID"         ' 最終行のみコメント
    
    ' ファイルパスの継続パターン
    strFilePath = "C:\Users\田中\Documents\" _
                & "John's Projects\" _
                & "Q1'24 Reports.xlsx"          ' 最終行のみコメント
    
    ' 継続文字4行パターン
    strName = "長い" _
            & "文字列" _
            & "連結" _
            & "テスト"       ' 最終行のみコメント
    
    ' 継続文字5行パターン（一部コメントなし）
    intCount = 1 _
             + 2 _
             + 3 _
             + 4 _
             + 5             ' 最終行のみコメント
             
    ' 複雑なパターン：文字列内シングルクォート + 継続 + コメント
    strName = "Don't" _
            & " forget" _
            & " this"        ' 最終行のみコメント
End Sub