テスト作業を効率化しようということで，テスト結果の評価に使うExcelシートを改良しました．特定の列の表示／非表示を切り替えたり，指定したフォルダ内の複数のテキストファイルの内容をシートへ貼り付けたりするのはExcelだけでは実現できないので，VBAを組みました．最近はC，Java，Action Scriptばかり触っているので，Visual Basicは久しぶりです．しかも，.NET化する前の文法，18年ほど前の学生時代に趣味でよく書いていたものです．
Private Function Load(ByVal fileName As String) As String
On Error GoTo ErrTrap
Dim file As Integer
Dim s As String
file = FreeFile()
Open fileName for Input #file
Line Input #file, s
Close #file
Load = s
Exit Function
ErrTrap:
Load = ""
End Function
|
全てが懐かしいです．そして意外と全てをスラスラ書くことができました．すっかり沁み込んでいたようです．