Scribbling for "Scripting"

基本的な処理ですが、なぜか逆引き本などにも載っていないようなので、私が使っているものをアップしておきます。
テキストファイルの内容を改行で分割した配列に変換して、その配列の長さから行数を求めています。
テキストファイルの内容をすべて変数に取り込むため、巨大なテキストを扱うには向かないかもしれません。
とりあえず１万行程度のテキストでは速度面でも問題ないようです。

'ファイルの行数を取得（ファイルが存在しないかエラーの場合は-1を返す）
Public Function CountLine(ByVal fileNamePath As String) As Integer
  Dim textFile As IO.StreamReader
  Dim text As String
  If IO.File.Exists(fileNamePath) = False Then
    CountLine = -1
    Exit Function
  End If
  textFile = Nothing
  Try
    textFile = IO.File.OpenText(fileNamePath)
    text = textFile.ReadToEnd
    CountLine = text.Split(vbCrLf).Length
    '末尾の改行はカウントしない
    If text.EndsWith(vbCrLf) Then
      CountLine = CountLine - 1
    End If
  Catch ex As Exception
    CountLine = -1
  Finally
    If textFile IsNot Nothing Then
      textFile.Close()
    End If
  End Try
End Function


VB.NETで文字列中の全角文字を半角にしたい場合は、通常StrConv関数を使いますが、文字の種類を指定して変換することはできません。
カタカナだけ半角にしたくないという場合もよくありますので、そのような動作をする関数を作ってみました。

'Imports System.Text.RegularExpressions をソース先頭のImports部分に追加
'
'全角英数字を半角にする
Private Function WideAlphaNumToNarrow(ByVal inString As String) As String
  Dim r As Regex
  Dim mev As MatchEvaluator
  '半角にしたい文字を正規表現で指定
  r = New Regex("[０-９]+|[ａ-ｚ]+|[Ａ-Ｚ]+|，|．")
  mev = New MatchEvaluator(AddressOf ToNarrow)
  WideAlphaNumToNarrow = r.Replace(inString, mev)
End Function
'
'WideAlphaNumToNarrow用のデリゲートメソッド
Private Shared Function ToNarrow(ByVal m As Match) As String
  ToNarrow = StrConv(m.ToString, VbStrConv.Narrow)
End Function


この関数では全角英数字とカンマ、ピリオドのみ半角にします。
対象文字を変更したい場合は正規表現部分を適当に修正してください。
MatchEvaluatorの利用に関してはこちらを参考にさせていただきました。