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