テキストデータの一括切り分け

対象バージョン : 97, 2000, 2002, 2003
最終更新日 : 2005/04/25 （オリジナル作成日：1998/10/06）

概　要　

　テキストデータをいくつかの部分に切り分ける方法として、通常 Mid 関数等を用いますが、数が多いとかなり面倒な操作となります。

　ユーザー定義型変数と LSet ステートメントと利用して、一括で複数の変数に代入する方法です。

解　説

　以下の例は、80 バイトのテキストデータを Input 関数で読みこみ、これを fld1 〜 fld5 に一括代入するものです。

●General - Declaration

Type typInput
  strRecord As String * 80
End Type

Type typDivide
  fld1 As String * 2
  fld2 As String * 10
  fld3 As String * 20
  fld4 As String * 8
  fld5 As String * 40
End Type


●Sub Procedure

Sub Sample()
Dim fno As Integer
Dim strInput As typInput
Dim strDivide As typDivide

fno = FreeFile
Open "ファイル名" For Input As fno
strInput.strRecord = Input(80, fno)
LSet strDivide = strInput
・・・
End Sub

補　足

• 分割前後のデータ型に制限があります。詳しくは LSet ステートメントのヘルプの警告をご参照ください。

目次へ戻る