月: 2013年2月

どこにでもTipsはあるが、メモ

Imports System.IO.StreamReader　を忘れずに。

'Shift-JISでpathのファイルを全量取り込んでClose
Dim sr As StreamReader = New StreamReader(path, System.Text.Encoding.GetEncoding("Shift-JIS"))
Dim buf As String = sr.ReadToEnd()
sr.Close()

'改行コードで分断
Dim buf_line() As String = csv_buf.Split(vbCrLf)
Dim buf_item() As String
Dim cnt As Integer = buf_line.Length

'空ファイルである場合終了
If line_cnt <= 0 Then
    Return False
End If

'csvを1行ずつ処理
Dim i As Integer = 0
For i = 1 To cnt - 1 Step 1
    buf_line(i) = buf_line(i).Replace(vbCr, "").Replace(vbLf, "").Trim()
    If buf_line(i) <> "" Then    'Length>0の方がいいかも
        buf_item = buf_line(i).Split(",")
    End If
Next i

CRCLでぶちってもLFが残るみたいなので、カンマでSplitする前に改行コードを全部Replaceさせた。
普通はCRだけででぶちって、LFは改行として使うのだろう。(セル内改行として必要な場合がある・・・)

全量一括で取り込んだ方が、速度としては早い。
(メモリは喰うので、大量の場合は1行ごとに取り込んだ方がよいのだろう)

兵庫県立美術館に行ってきた。
ムーミンや北欧デザインは人気があるとは思っていたが、チケット売り場には当日券を求める人の行列ができていた。
私は、チケット屋で前売り券を10円引きで買ったので、ラッキーだった。
（もう少し粘ってから行けばよかったな）

1階にはムーミンのおうち？なのか、ログハウスみたいなのが建っていた。
当然パパもママもいた。

展示室は行列。
しかも、あまり進まない。
こういう展示は、音声ガイドを部屋ごとに流すようにして、スムーズに客を運ばせないとダメだなぁと感じた。（音声ガイドで金取るな！ということ）

絵って直感なんだが、筆のタッチとかを見たいときはやはり、立ち止まってマジマジみてしまうのだ。
だけど、みんながそれをやるとね、迷惑なんだよ。
今回は、サラサラっと見つつ、気になるところは空いているときにマジマジと見て、流れを止めないようにはできたかと思うのだが、そうすると、元が取れていないような気もする。
難しいところだ。空いているときに行くのが一番なんだが・・・

次回は大河内邦男展。