タブを含んだ文字列をテキストボックスに表示させる方法

概要

Visual Basic for MS-DOS 1.0 でタブを含む文字列をテキスト ボックスに表示
した場合、タブがそのまま 1 文字の制御コード (HT) として表示されてしまいま
す。
この資料はタブをスペースに変換することで、この問題を回避する方法について
記述しています。

プログラム

引数の InText にはタブを含む文字列を渡してください。戻り値には変換後の文字列 が返されます。

  FUNCTION TabConv (InText AS STRING) AS STRING
      DIM OutText AS STRING
      DIM SpcCnt AS INTEGER
      DIM i AS INTEGER
      OutText = ""
      FOR i = 1 TO LEN(InText)
          IF ASC(MID$(InText, i, 1)) <> 9 THEN
              OutText = OutText + MID$(InText, i, 1)
          ELSE
              SpcCnt = 8 - (LEN(OutText) MOD 8)
              OutText = OutText + STRING$(SpcCnt, " ")
              END IF
      NEXT i
      TabConv = OutText
  END FUNCTION