Access Labo #20 可変長文字列と固定長文字列を比較する

文字列型(String)の変数には「可変長文字列」と「固定長文字列」の２種類があります。あらかじめ型宣言で長さを指定する必要もなく、しかも最大で約２GBまでという、実質的には制限を考えることなく文字データを扱える可変長文字列と、"Dim strData As String * 20" というようにその長さの上限を決めた上で文字データを扱う固定長文字列です。

テーブルのレコードを読み込む際に、"strNamae = rst!名前" といったコードをしばしば使うと思います。テーブル上でテキスト型として定義されたフィールドデータを、文字列型変数にいったんセットして後処理を行うというパターンです。このとき、フィールド型が「メモ型」ならともかく、「テキスト型」の場合にはテーブル上であらかじめそのフィールドサイズは指定されているはずです。それならば、「それを代入する変数はそれと同じ長さにしておいた方が効率的ではないか？」と疑問に思ったことはありませんか？。もしフィールドサイズが20なら、"Dim strNamae As String * 20" というように。

これら２種類の文字列型には、その長さの制約の違いはともかくとして、文字列を処理する上でのパフォーマンスにはどのような違いがあるのでしょうか？。固定長文字列の場合には数値型と同様に、常にメモリ上で一定の位置に一定のサイズの領域(String * 20 なら20バイト)を確保していると考えられます(これは不確定な推測です)。一方、可変長文字列の場合にはどうでしょう？。たとえ"最大で約２GBまで"といっても型宣言の段階で２GBの領域を押さえておくはずがありません。文字列に値が代入されるごとに、あるいは結合されたりするごとに、メモリ領域の占有する位置とサイズを変えていく、言いかえればあちこちメモリ上を移動していくと考えられます(これもあくまで推測です)。こう考える理由は、例えば"あいうえお"という文字列の後ろに"かきくけこ"という文字列を付け加えるとします。このとき、もしそのままのメモリアドレスに付け加えたとすると、"かきくけこ"の部分の文字列領域が他の変数のメモリ領域と衝突してしまう可能性があるからです。もしそういった動きをしているとしたら、可変長文字列の方はおのずとパフォーマンスが落ちそうな感じがします。

そんな疑問と推測をもとに、ここでは２種類の文字列型について次の４つの処理を行い、その処理時間を測定・比較してみました。文字列処理の関数については関数ごとの特性からそれぞれ異なる結果が出そうですが、ここでは「Mid$関数」だけを取り上げてみました。

  Dim strFixed As String * 4096     '固定長文字列を宣言
  Dim strVariable As String           '可変長文字列を宣言
  Dim strTemp As String
  Dim iintLoop As Integer             'テスト回数のループカウンタ
  Const cintTestMax As Integer = 4000 'テスト回数

  ts_Watch "テスト開始", True

  '短いテキストの代入*********************
  For iintLoop = 1 To cintTestMax
    strFixed = "1234"
  Next iintLoop
  ts_Watch "固定長への短いテキスト"

  For iintLoop = 1 To cintTestMax
    strVariable = "1234"
  Next iintLoop
  ts_Watch "可変長への短いテキスト"

  '長いテキストの代入*********************
  For iintLoop = 1 To cintTestMax
    strFixed = String$(4000, "A")
  Next iintLoop
  ts_Watch "固定長への長いテキスト"

  For iintLoop = 1 To cintTestMax
    strVariable = String$(4000, "A")
  Next iintLoop
  ts_Watch "可変長への長いテキスト"

  '文字列の結合*********************
  strFixed = ""
  For iintLoop = 1 To cintTestMax
    strFixed = strFixed & "A"
  Next iintLoop
  ts_Watch "固定長の文字列結合"

  strVariable = ""
  For iintLoop = 1 To cintTestMax
    strVariable = strVariable & "A"
  Next iintLoop
  ts_Watch "可変長の文字列結合"

  '部分文字列の取り出し*********************
  strTemp = String$(4000, "A")
  For iintLoop = 1 To cintTestMax
    strFixed = Mid$(strTemp, 2000, 100)
  Next iintLoop
  ts_Watch "固定長の文字列取り出し"

  strVariable = String$(4000, "A")
  For iintLoop = 1 To cintTestMax
    strVariable = Mid$(strTemp, 2000, 100)
  Next iintLoop
  ts_Watch "可変長の文字列取り出し"