jwc_temp.txt内から線種定義を探す
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
Hino 00:30 2007.01.25 Thu
 署名 
 内容 
      
新しい記事
 題名 
 署名   File
 本文