VBAをやってみる

作った

唐突に、テキストファイルから指定の文字について抜きだすマクロを作ってみるかと思い立つ。
VBEを立ちあげて、入門サイトを見ながらカタカタ……
ついでにマクロ、VBAの違いについても確認。
Office TANAKA - 今さら聞けないVBA「マクロとVBAの違い」

作成から2時間半。UTF-8やEUCの入力についてどうするか悩んだ結果、保留。
いろんなサイトのソースを参考にしたのがこちら

Sub ExtractionWord()
    Dim search_text As String
    search_text = InputBox("検索する文字")
    If search_text = "" Then
        MsgBox "検索する文字を入力してください"
    Else
        Cells.Clear
        Call ReadRecord(search_text)
    End If
End Sub

Sub ReadRecord(search As String)
    Dim fileNo As Integer
    Dim buf As Variant
    Dim OpenFile As Variant
    Dim record_counter As Long
    fileNo = FreeFile

    OpenFile = Application.GetOpenFilename("テキストファイル,*.txt")
    If OpenFile = Flase Then
        MsgBox "終了します"
        Exit Sub
    End If
    
    Open OpenFile For Input As #fileNo
    record_counter = 3
    
    Do Until EOF(fileNo)
        Line Input #fileNo, buf
        If InStr(buf, search) > 0 Then
            Cells(record_counter, 1) = buf
            record_counter = record_counter + 1
        End If
        
    Loop
    Close #fileNo
End Sub

現状は、Accessと組み合わせて、入力したキャラクターシートデータをデータベース管理する的なことを考えてみている。

ここにも世話になりました。

VBA基礎文法最速マスター - いろいろ解析日記

ちょっと面白いと思ったので、Javaと並行してかじってみる。

Macを触りたい

Macでのプログラミング経験が、極端に少ない（学生のころ、授業で触った程度）。
新PCを買うならMacだな……！　と思ってAppleストア見て、
あれも欲しいこれも欲しい、ディスプレイは大きくなんて考えていたら、30万オーバー。
妥協はできない金はないので、当分買い替えはなさそう。