Sub linecolor_get(tmp, lc_tmp)
'jwc_temp.txt内から線色定義を探す
    Dim a, b
    a = Split(tmp)                          'スペースで切り分け
    b = UBound(a)                           '切り分けられた区分数を取得
    If b = 0 And Left(a(0), 2) = "lc" Then  '線色定義文字列の場合
        lc_tmp = Right(a(0), 1)             '線色を「lc_tmp」に格納
    End If
End Sub