VB6互換のファイルの処理

Size: px

Start display at page:

Download "VB6互換のファイルの処理"

いっけいあさま
4 years ago
Views:

1 Visual Basic のランタイム関数を使用したファイルアクセス FileOpen 関数ファイルを開いて入出力を行う FileOpen(FileNumber, FileName, Mode[, Access[, Share[, RecorLength]]]) 引数 FileNumber は必ず指定する有効なファイル番号を指定する FreeFile 関数を使用して使用可能な次のファイル番号を取得する事が出来る引数 FileName は必ず指定するファイル名を文字列式で指定するディレクトリ名又はフォルダ名及びドライブ名も含めて指定する事が出来る引数 Mode は必ず指定するファイルモードを示す Append Binary Input Output 又は Random の孰れかの列挙型で指定する引数 Access は省略可能で有る開くファイルに対して行う処理を示す Read Write 又は ReadWrite の孰れかのキーワードを指定する ( 既定値は ReadWrite) 引数 Share は省略可能で有る開くファイルに対する他のプロセスからのアクセスを制御する Shared Lock Read Lock Write 又は Lock Read Write の孰れかの列挙型で指定する ( 既定値は Shared) 引数 RecordLength は省略可能で有る 32,767 バイト以下の数値を指定するランダムアクセスファイルの場合はレコード長を表しシーケンシャルファイルの場合はバッファの容量を表す種別エラー番号条件 ArgumentException 5 Access Share 又は Mode が無効で有る ArgumentException 5 WriteOnly のファイルが Input で開かれて居る ArgumentException 5 ReadOnly のファイルが Output で開かれて居る ArgumentException 5 ReadOnly のファイルが Append で開かれて居る ArgumentException 5 レコード長が -1 では無い負の値で有る IOException 52 FileNumber が無効又は既に使用されて居る IOException 55 FileName が無効又は既に使用されて居る解説入出力処理を行う時には其の対象と成るファイルを開く必要が有る FileOpen 関数はファイルに入出力の為のバッファを割り当てバッファに対するアクセスモードを決定する引数 FileName に指定したファイルが存在し無い場合は追加モードバイナリモード出力モード又はランダムアクセスモードの孰れかのモードで開く時に作成される開くチャネルは FreeFile 関数を使用して検索する事が出来る 1

2 使用例 FileOpen 関数を使用してファイルへの入出力を有効にする為の様々な使用例を示すファイル TESTFILE を入力モードで開くコード例は次の通りで有る FileOpen(1, "TESTFILE", OpenMode.Input) ファイルを書き込み専用のバイナリファイルモードで開く例を次に示す FileOpen(1, "TESTFILE", OpenMode.Binary,OpenAccess.Write) ファイルをランダムモードで開く例を次に示すファイルには構造体 Person のレコードが含まれて居る物と仮定する Structure Person <VBFixedString(30)> Dim Name As String 固定長文字列型メンバ (30 バイト ) Dim ID As Integer 整数型メンバ (4 バイト ) End Structure FileOpen(1, "TESTFILE", OpenMode.Random,,, 34) ファイルを出力モードで開く例を次に示す何のプロセスからでもファイルの読み書きが可能で有る FileOpen(1, "TESTFILE", OpenMode.Output, OpenShare.Shared) ファイルを読み込み専用のバイナリファイルモードで開く例を次に示す他のプロセスから此のファイルを読む事は出来ない FileOpen(1, "TESTFILE", OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead) FilePut 関数変数の内容をディスク上のファイルに書き込む FilePut(FileNumber, Value[, RecordNumber[, ArrayIsDynamic StringIsFixedLength]]) 引数 FileNumber は必ず指定する有効なファイル番号を指定する引数 Value は必ず指定するディスクに書き込むデータが格納されて居る有効な変数の名前を指定する 2

3 引数 RecordNumber は省略可能で有る書き込みを行うレコード番号 ( ランダムモードファイル ) 又はバイト位置 ( バイナリモードファイル ) を指定する引数 ArrayIsDynamic は省略可能で有る配列を書き込む場合に丈適用される配列を動的に処理するか何うか及び配列の長さを表す文字列に配列記述子を書き込むか何うかを指定する引数 StringIsFixedLength は省略可能で有る文字列を書き込む場合に丈適用される文字列に関する 2 バイトの記述子をファイルに書き込むか何うかを指定する ( 既定値は False) 種別エラー番号条件 ArgumentException 63 RecordNumber が-1 では無い 1 未満の値で有る IOException 54 ファイルモードが無効で有る解説 FilePut 関数は Random モード及び Binary モードの場合に丈有効で有る通常 FilePut 関数を使用して書き込んだデータは FileGet 関数で読み込むファイルの中で先頭のレコード番号又はバイト位置は 1 に成り 2 番目のレコード番号又はバイト位置は 2 に成る引数 RecordNumber を省略すると最後に呼び出した FileGet 関数又は FilePut 関数或いは最後に呼び出した Seek 関数が示す位置の次のレコード又はバイトが読み込まれる引数 StringIsFixedLength を指定すると文字列を可変長文字列として解釈するか固定長文字列として解釈するかを制御する事が出来る True を指定すると FilePut 関数は長さの記述子を書き込ま無い FilePut 関数で StringIsFixedLength に True を指定した場合は FileGet 関数でも同じ様に指定する必要が有る亦文字列が正しい長さに初期化されて居るか何うかを確認する必要も有るランダムモードで開いたファイルの場合は次の規則が適用される書き込むデータの長さが FileOpen 関数の RecordLength 句で指定した長さを超えない限り FilePut 関数は次のレコードを直前のレコードの終端から書き込むレコードの終わりと次のレコードの先頭の間にはファイルバッファの内容が埋め込まれる埋め込まれるデータの量は指定出来ないので通常はレコード長を書き込むデータ長に合わせる書き込むデータの長さが FileOpen 関数の RecordLength 句で指定した長さを超えるとが発生する可変長文字列変数を使う場合 FilePut 関数は文字列の長さを示す 2 バイトの記述子を書き込んでから変数にデータを書き込む FileOpen 関数の RecordLength 句では文字列の実際の長さより 2 バイト以上大きい値を指定する必要が有る数値型を格納するオブジェクト変数を使う場合 FilePut 関数はオブジェクトの内部処理形式 VarType を示す 2 バイトのデータを書き込み次に変数のデータを書き込む例えば整数型を格納するオブジェクトを書き込む場合 FilePut 関数は 6 バイトを書き込む内訳は整数型 VarType(3) を示す 2 バイトとデータを格納する 4 バイトで有る FileOpen 関数のパラメータ RecordLength には実際にデータを格納する為に必要なバイト数より 2 バイト以上大きい値を指定する必要が有る文字列を格納するオブジェクト型の変数を使う場合 FilePut 関数はオブジェクトの VarType(8) を示す 2 バイトの記述子を書き込んでから文字列の長さを示す 2 バイトの記述子を書き込み其の後文字列データを書き込む FileOpen 関数のパラメータ RecordLength で指定するレコード長には文字列の実際の長 3

4 さより 4 バイト以上大きい値を指定する必要が有る記述子無しで文字列を書き込む場合はパラメータ StringIsFixedLength に True を渡す此の場合は正しい長さの文字列を読み込む必要が有る配列型の変数を使う場合は配列のサイズと次元を表す記述子を書き込むか何うかを選択する事が出来る Visual Basic 6 以前のバージョンでは動的配列にファイル記述子を書き込む固定サイズの配列には書き込ま無い Visual Basic.NET の既定設定では記述子を書き込ま無い記述子を書き込むにはパラメータ ArrayIsDynamic を True に設定する配列を書き込む時は配列の読み取り方法に合わせる必要が有る記述子を使用して読み取る場合は記述子を書き込む必要が有る記述子は配列のランクサイズ及び各ランクの最小値を指定する配列の長さは次元数の 8 倍に 2 を足した物詰まり 2+8 NumberOfDimensions と成る FileOpen 関数の RecordLength 句で指定するレコード長はデータと配列の記述子を書き込む為に必要なバイト数の合計又は其れ以上で有る必要が有る例えば次の配列を定義すると配列がディスクに書き込まれる場合に 118 バイトが必要で有る Dim MyArray(4,9) As Integer 其の他の型の変数 ( 可変長文字列変数とオブジェクト型変数以外 ) を使う場合 FilePut 関数は変数のデータ丈を書き込む FileOpen 関数の RecordLength 句では書き込むデータの長さ以上の値を指定する必要が有る構造体の要素を FilePut 関数を使用して書き込む場合各要素は独立して居るかの様に書き込まれるが各要素の間には何も埋め込まれ無い VBFixedString 属性を構造体内の文字列フィールドに適用するとディスクに書き込む時に文字列のサイズを示す事が出来るバイナリモードで開いたファイルの場合は次に示す規則を除いてランダムモードの規則が総て適用されるバイナリモードでは FileOpen 関数の RecordLength 句は無視される FilePut 関数はディスクに総ての変数のデータを連続的に書き込むレコードとレコードの間には何も埋め込まれ無い構造体配列以外の配列の場合 FilePut 関数はデータ丈を書き込む記述子は書き込ま無い構造体の要素で無い可変長文字列を使用する場合 FilePut 関数は 2 バイトの記述子を書き込ま無い書き込まれるバイト数は文字列内の文字数と同じで有る例えば次のステートメントはファイル番号 1 のファイルに 11 バイトのデータを書き込む Dim hellow As String = "Hello World" FilePut(1,hellow) 使用例 FilePut 関数を使用してデータをファイルに書き込む例を次に示す此の例では構造体 Person の 5つのレコードをファイルに書き込む Structure Person Public ID As Integer Public Name As String End Structure Sub WriteData() Dim MyRecord As Person Dim recordnumber As Integer FileOpen(1, "C: TESTFILE.txt", OpenMode.Binary) For recordnumber = 1 To 5 MyRecord.ID = recordnumber MyRecord.Name = "My Name" & recordnumber FilePut(1, MyRecord) Next recordnumber End Sub ' Open file for random access ' Loop 5 times. ' Define ID. ' Create a string. ' Write record to file. 4

5 FileGet 関数ディスクファイルからデータを読み込み変数に格納する FileGet(FileNumber, Value[, RecordNumber[, ArrayIsDynamic StringIsFixedLength]]) 引数 FileNumber は必ず指定する有効なファイル番号を指定する引数 Value は必ず指定する読み込んだデータを格納する変数名を指定する引数 RecordNumber は省略可能で有る読み込みを行うレコード番号 ( ランダムモードファイル ) 又はバイト位置 ( バイナリモードファイル ) を指定する引数 ArrayIsDynamic は省略可能で有る配列を書き込む場合に丈適用される配列を動的に処理するか何うか及び配列のサイズと境界を表す配列記述子を書き込むか何うかを指定する引数 StringIsFixedLength は省略可能で有る文字列を書き込む場合に丈適用される文字列の長さを表す 2 バイトの記述子をファイルに書き込むか何うかを指定する ( 既定値は False) 種別エラー番号条件 ArgumentException 63 RecordNumber が-1 では無い 1 未満の値で有る IOException 54 ファイルモードが無効で有る解説 FileGet 関数は Random モード及び Binary モードの場合に丈有効で有る通常 FileGet 関数を使用して読み込んだデータは FilePut 関数を使用して書き込むファイルの中で先頭のレコード番号又はバイト位置は 1 に成り 2 番目のレコード番号又はバイト位置は 2 に成る引数 RecordNumber を省略すると最後に呼び出した FileGet 関数又は FilePut 関数或いは最後に呼び出した Seek 関数が示す位置の次のレコード又はデータが読み込まれるランダムモードで開いたファイルの場合は次の規則が適用される読み込むデータの長さが FileOpen 関数ステートメントの RecordLength 句で指定したレコード長を超え無い限り FileGet 関数ステートメントはレコード長の終端から次のレコードを読み込む事が出来るレコードの終わりと次のレコードの先頭の間にはファイルバッファの内容が埋め込まれる埋め込まれるデータの量は正確に指定出来ない為通常はレコード長を読み込むデータ長に合わせる文字列変数を使う場合 FileGet 関数は既定では文字列の長さを示す 2 バイトの記述子を読み込んでから変数に格納するデータを読み込む FileOpen 関数の RecordLength 句では文字列の実際の長さより 2 バイト以上大きい値を指定する必要が有る Visual Basic 6 以前のバージョンでは固定長文字列をサポートして居りファイルに書き込む場合長さ記述子は書き込まれ無い記述子無しで文字列を読み込む場合はパラメータ StringIsFixedLength に True を渡す此の場合は正しい長さの文字列を読み込む必要が有る配列型の変数を使う場合は配列のサイズと次元を表す記述子を読み取るか何うかを選択する事が出来る記述子を書き込むにはパラメータ ArrayIsDynamic を True に設定する配列を読み取る場合は配列の 5

6 書き込み方法に合わせる必要が有る記述子を使用して書き込む場合は記述子を使用して読み取る必要が有る記述子を使用しない場合は FileGet 関数に渡される配列のサイズと境界を使用して読み取り対象を決定する記述子は配列のランクサイズ及び各ランクの最小値を指定する配列の長さは次元数の 8 倍に 2 を足した物詰まり 2+8 NumberOfDimensions と成る FileOpen 関数ステートメントのパラメータ RecordLength で指定するレコード長はデータと配列の記述子を書き込む為に必要なバイト数の合計又は其れ以上で有る必要が有る例えば次の配列を定義すると配列がディスクに書き込まれる場合に 118 バイトが必要で有る Dim MyArray(4,9) As Integer 118 バイトは記述子の為の 18 バイト (2 + 8 * 2) データの為の 100 バイト (5 * 10 * 2) を合わせた値で有る記述子は読み込ま無い其の他の型の変数 ( 可変長文字列変数とオブジェクト型の変数以外 ) を使う場合 FileGet 関数は変数データ丈を読み込む FileOpen 関数の RecordLength 句では読み込むデータの長さ以上の値を指定する必要が有る構造体の要素を FileGet 関数を使用して読み込む場合各要素は独立して居る様に読み込まれる但し各要素の間には何も埋め込まれ無い FilePut 関数を使用してユーザー定義型に含まれる動的配列をディスクに書き込むと記述子が前置される此の記述子の長さは 2 に 8 と次元数の積を加えた値 (2+8* 配列の次元数 ) に等しく成る FileOpen 関数の RecordLength 句で指定するレコード長はデータと配列の記述子を読み込む為に必要なバイト数の合計又は其れ以上で有る必要が有る VBFixedString 属性を構造体内の文字列フィールドに適用するとディスクに書き込むときに文字列のサイズを示す事が出来るバイナリモードで開いたファイルの場合は次に示す規則を除いてランダムモードの規則が総て適用されるバイナリモードでは FileOpen 関数の RecordLength 句は無視される FileGet 関数はディスクから総ての変数を連続的に読み込むレコードとレコードの間には何も埋め込まれ無い構造体配列以外の配列の場合 FileGet 関数はデータ丈を読み込む記述子は読み込ま無い構造体の要素で無い可変長文字列を使用する場合 FileGet 関数は 2 バイトの記述子を読み込ま無い読み込まれるバイト数は文字列内の文字数と同じで有る例えば次のステートメントはファイル番号 1 のファイルから 11 バイトのデータを読み込む Dim hellow As New String(" ", 11) FileOpen(1, "C: TESTFILE.txt", OpenMode.Binary) FileGet(1, hellow) Console.WriteLine(hellow) Seek 関数 FileOpen 関数で開いたファイルの現在の読み込み位置又は書き込み位置を示す長整数型の値を返す亦 FileOpen 関数で開いたファイルの次に読み込み又は書き込みを行う位置を設定する Seek(FileNumber[, Position]) 引数 FileNumber は必ず指定する有効なファイル番号を表す整数型の値を指定する引数 Position は必ず指定する ( 次に読み込み又は書き込みを行う位置を設定する場合 ) 次に読み込み又は書き込みを行う位置を表す 1~2,147,483,647 の範囲の数を指定する 6

7 種別エラー番号条件 IOException 54 ファイルモードが無効で有る解説 Seek 関数は 1~2,147,483,647(= 2^31-1) の範囲の値を返す各ファイルのアクセスモードに応じた戻り値を次に示すモード戻り値 Random 読み込み又は書き込みが行われる次のレコードの番号 Binary Input Output Append 次の操作を開始するバイト位置 ( ファイル内の先頭バイトは 1 次のバイトは 2 に成る ) 使用例下記に Seek 関数の色々な例を示す Seek 関数を使用してファイル内の現在の読み書き位置を返す例を次に示すファイル TESTFILE には構造体 Record のレコードが含まれる物と仮定する Structure Record ' Define user-defined type. ID As Integer Name As String End Structure Random モードで開いたファイルでは Seek 関数は読み書き出来る次のレコード番号を返す Dim MyRecord As Record FileOpen(1, "TESTFILE", OpenMode.Random) Do While Not EOF(1) Debug.WriteLine(Seek(1)) ' Print record number. FileGet(1, MyRecord) ' Read next record. Loop ランダムモード以外のモードで開いたファイルでは Seek 関数は読み書きする次のバイト位置を返すファイル TESTFILE は複数のテキスト行の有るファイルと仮定する Dim TextLine As String FileOpen(1, "TESTFILE", OpenMode.Input) ' Open file for reading. While Not EOF(1) TextLine = LineInput(1) ' Read next line. Debug.WriteLine(Seek(1)) ' Position of next line. End While Seek 関数を使用してファイル内で次に読み書きする位置を設定する例を次に示すファイル people.txt には構造体 Record のレコードが含まれて居る物と仮定する 7

8 Structure Record Dim Name As String Dim ID As Integer End Structure Random モードで開いたファイルでは Seek 関数は次に読み書きするレコード番号を設定する Public Sub SeekAPerson(ByVal index As Integer) Try FileOpen(1, "c: people.txt", OpenMode.Random) Dim oneperson As Record Seek(1, index) FileGet(1, oneperson) Console.WriteLine(onePerson.Name & " " & oneperson.id) Catch ' Error recovery code here. End Try End Sub ランダムモード以外のモードで開いたファイルでは Seek 関数は次に読み書きするバイト位置を設定するファイル TESTFILE は複数のテキスト行の有るファイルと仮定する Dim sometext As String FileOpen(1, "TESTFILE", OpenMode.Input) Seek(1, 3) ' Move to the third character. Input(1, sometext) Console.WriteLine(someText) ' Open file for output. EOF 関数ランダムモード又はシーケンシャル入力モードで開いたファイルの現在位置がファイルの末尾に達している場合ブール値の True を返す EOF(FileNumber) 引数 FileNumber は必ず指定する有効なファイル番号を表す整数型の値を指定する種別エラー番号条件 IOException 54 ファイルモードが無効で有る解説 EOF 関数はファイルの末尾に達する直前の入力を取得しようとする時にエラーが発生するのを防ぐ為に使用する 8

9 EOF 関数はファイルの末尾に達して居ない場合は False を返すランダムモード又はバイナリモードでファイルを開いた場合 EOF 関数は最後に実行された FileGet 関数でレコード全体が読み込め無く成る迄 False を返すバイナリモードでファイルを開いた場合は Input 関数を使用して EOF 関数が True を返す迄ファイルを読み込もうとするとエラーが発生する Input 関数を使用してバイナリファイルを読み込む場合は EOF 関数の代わりに LOF 関数及び Loc 関数を使用する EOF 関数を使用する場合は Get ステートメントを使用する出力モードで開いたファイルの場合は常に True を返す使用例 EOF 関数を使用してファイルの末尾に達したか何うかを調べる例を次に示す此の例ではファイル TESTFILE は複数行のテキストを含むテキストファイルと仮定する Dim TextLine As String FileOpen(1, "TESTFILE", OpenMode.Input) ' Open file. Do While Not EOF(1) ' Loop until end of file. TextLine = LineInput(1) ' Read line into variable. Debug.WriteLine(TextLine) ' Print to the Command window. Loop ' Close file. FileClose 関数 FileOpen 関数で開いたファイルへの入出力を終了してファイルを閉じる FileClose([FileNumbers()]) 引数 FileNumbers() は省略可能で有る閉じる対象と成る 0 以上のチャネルで構成されるパラメータ配列を指定する種別エラー番号条件解説引数 FileNumbers() を省略すると FileOpen 関数で開いたすべてのファイルが閉じられる Output モード又は Append モードで開いたファイルを閉じると出力バッファに残って居るデータは其のファイルに対するオペレーティングシステムバッファに書き込まれる閉じたファイルが使用して居たバッファ領域は総て解放される FileClose 関数でファイルを閉じると其のファイルに割り当てられて居たファイル番号は解放される 9

構造体

構造体 Byte 配列構造体とコピーする方法構造体とバイト配列の変換を行うには System.Runtime.InteropServices 名前空間をインポートして置くと便利で有る Imports System.Runtime.InteropServices using System.Runtime.InteropServices; 下記の 3 種類の構造体にバイト配列の値を格納した場合に付いて検証する