Sub group_get(tmp, lg_tmp)
'jwc_temp.txt内からレイヤグループ定義を探す
    Dim a, b
    a = Split(tmp)                          'スペースで切り分け
    b = UBound(a)                           '切り分けられた区分数を取得
    If b = 0 And Left(a(0), 2) = "lg" Then  'レイヤグループ定義文字列の場合
        lg_tmp = Right(a(0), 1)             'レイヤグループ番号を「ly_tmp」に16進数で取得
    End If
End Sub