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