第１０回　　「ファイルへの書き込み関数」



自作関数を読む前に

ここから先を読む前に、古いサンプルプログラムを使用されている場合は、
新しいサンプルプログラム（2000/08/01 更新）をＤＬしておいて下さい。
関数の中身が随分変わっています。


さて、自作関数の説明をする前に一つお話しておく事があります。
それは、以降の説明が理解できなくても、特に問題は無いという事です。

例えば、冷蔵庫や電子レンジなどの電化製品は、その構造を知らなくても使う事はできますよね。
それと同じで、関数というのは使い方さえ正しく理解しておけば、内部構造までは知らなくても構わないのです。

勿論、理解できた方が望ましいのは言うまでもありません。
そうすれば、自分で関数を作ったり、改良したりする事ができるわけですから。

これらの点を踏まえた上で、以降の説明を読んでいって下さい。


ファイル書き換え関数（BinFileEdit）

では、早速ファイル書き換えを行う自作関数を見ていきましょう。
この関数は、「ファイルのフルパス名」と「改造コード」を受け取り、指定のファイルを書き換える関数です。


BinFileEdit ソースプログラム１
Function BinFileEdit(ByVal FileName As String, ByVal Code As String) As Long
On Error GoTo ErrSet

０１＞　 Dim StartAddress As Long　　'書き換えを開始するアドレスを格納
０２＞　 Dim EndAddress As Long　　　'書き換えを終了するアドレスを格納
０３＞　 Dim Data As String　　　　　　'書き込むデータを一時的に格納
０４＞　 Dim PutValue As Byte　　　　'書き込えるデータを格納
０５＞　 Dim i As Long, j As Long　　　'カウンタ
０６＞　 Dim FileNumber As Long　　　'ファイル番号

０７＞　 '改造コードの種類を判定＆処理
０８＞　 If InStr(1, Code, ">") Then
０９＞　 　　StartAddress = CLng("&h" & Left(Code, InStr(1, Code, ">") - 1))
１０＞　 　　EndAddress = CLng("&h" & Mid(Code, InStr(1, Code, ">") + 1, _
　　　　　　　　　　InStr(1, Code, "-") - InStr(1, Code, ">") - 1))
１１＞　 Else
１２＞　 　　StartAddress = CLng("&h" & Left(Code, InStr(1, Code, "-") - 1))
１３＞　 　　EndAddress = StartAddress
１４＞　 End If
１５＞　 Data = Mid(Code, InStr(1, Code, "-") + 1)

１６＞　 '改造コードの１文字目が「S,M,L,$」のいずれかであれば、対応する１６進数の文字列に変換する
１７＞　 Select Case UCase(Left(Data, 1))
１８＞　 　　Case "S", "M", "L", "$"
１９＞　 　　　　Data = DecOrAsciiToHex(Right(Data, Len(Data) - 1), Left(Data, 1))
２０＞　 　　Case Else
２１＞　 End Select

２２＞　 If Len(Data) Mod 2 <> 0 Then
２３＞　 　　Data = "0" & Data
２４＞　 End If


長いので２回に分けて説明します。
ここで紹介している部分は、改造コードの表記の差を吸収している部分です。

８〜１４行目では、書き換えを行う範囲の決定をしています。
MaferLite の改造コードの書式では、以下のようになっています。

１．Ｘ＞Ｙ−ＦＦ　「Ｘ〜Ｙのアドレス部分を、ＦＦに書き換える」
２．Ｘ−ＦＦ　　　「Ｘのアドレス部分を、ＦＦに書き換える」

つまり、このどちらの書き方をされていても正しく処理できるようにしているのです。
一ヶ所しか書き換えない場合でも、「EndAddress」を指定しているのはこのためです。

では、９行目の説明をしていきます。
ここでは、上記の１．のパターンの時に、「＞」の左側（アドレス）の部分を「StartAddress」に格納しています。

「Left」や「InStr」については第９回で既に説明済みなので省略しますが、
これは、「＞」の左側の文字数を調べて取り出しているんでしたね。

「CLng」というのは、与えられたデータを「Long型」に変換するための標準関数です。
「Left」で取り出したアドレス部分は、「String型」（文字列型）です。

つまり、このままでは数値とみなされませんので、ファイル書き換えの際に不都合が生じます。

例えば、「１」というデータがあったとしましょう。
これが数値型であれば、足し算や引き算等の計算を行う事ができますが、
文字列型では、そういった事はできません。「あ＋ん」という計算式はおかしいですよね？

そんなわけで、計算などに使用する場合の変数は、基本的に数値型でなくてはなりません。

しかし、今回はそれだけではなく、取り出したアドレスに「&h」という文字を左側にくっつけています。
これは一体何のためでしょうか？

実は、単に「CLng」を使って数値型にするだけでは、「１０進数」になってしまうのです。
ですが、文字列の左に「&h」が付いていると、「１６進数」として認識してくれます。
アドレスは１６進数で指定する必要があるので、このような処理を行っているわけです。


１５行目では、「Ｘ−ＦＦ」の「−」より右の部分、つまり書き換える値を取り出しています。
そして、１６〜２１行目では、その書き換える値を１６進数に変換する処理を行っています。

「Ｘ−ＦＦ」のように、最初から１６進数で指定されている場合はよいのですが、
「Ｘ−Ｍ９９」という指定をされた場合には、「Ｍ９９」を適切な１６進数に変換する必要があります。

MaferLite の書式で「Ｍ９９」というのは、１０進数「９９」を２バイトの１６進数で表したものと同値でした。
その変換を行ってから、「Data」に書き戻しているのですが、その際に「DecOrAsciiToHex」
という自作関数を使用しているため、詳しくは後述します。


２２〜２４行目では、「Data」の文字数を２の倍数（偶数）に揃えています。
第３回でバイナリエディタの画面を見た時の事を思い出して下さい。

１バイトの値は、必ず２文字で表現されていましたよね？
実際に書き換える時も、やはり１バイト（２文字ずつ）書き換えていきます。

ところが通常、数値型のデータというのは、上位の桁の「０」は省略してしまいます。
例えば、「０１２３」なら「１２３」のように表示されるという事です。

そこで、「Data」の文字数を「２」で割った余りが「０」でないならば、
言い換えると「奇数」ならば、左に「０」を追加するというわけです。


BinFileEdit ソースプログラム２
FileNumber = FreeFile　　'使用可能なファイル番号を取得
Open FileName For Binary As #FileNumber
For i = 0 To EndAddress - StartAddress Step Len(Data) / 2
　　For j = 0 To Len(Data) / 2 - 1
　　　　PutValue = CLng("&h" & Mid(Data, j * 2 + 1, 2))
　　　　'一度に書き込む値は１バイト（00〜FF）なので、一回に２文字書き込むことになる。
　　　　Put #FileNumber, StartAddress + i + j + 1, PutValue
　　Next j
Next i

Close #FileNumber
BinFileEdit = 0
Exit Function

ErrSet:
　　BinFileEdit = Err.Number
End Function



後半の部分では、実際の書き換えを行っています。

１，２行目では、ファイルを開く処理を行っています。
この時、「For Binary」を指定して、バイナリモードで開く必要があります。

基本的にバイナリファイルを開くときには、バイナリモードを使用します。
バイナリファイルを開くのに、テキストエディタを使わないのと同じ事ですね。

３〜９行目で、開いたファイルへの書き込みを行っています。
見てのように２重ループになっており、値を１６進数の数値データに変換しつつ、
１バイト（２文字）ずつ書き込みを行っています。

外側のループで、指定したアドレスの範囲までの繰り返しを行い、
内側のループで、書き込むデータの文字数に応じた分だけの書き込みを行っています。

例えば、「Ｘ−Ｆ１Ｆ２」というコードが指定されていた場合は、
外側のループは１回、内側のループは２（←文字数／２）×１（←外側ループ分）回実行されます。

同様に、「１＞４−ＦＦ」というコードであれば、
外側のループは４回、内側のループは１×４回実行されます。

もう１つ見ておくと、「１＞４−Ｆ１Ｆ２」ならば、
外側のループは２回、内側のループは２×２回という事になります。

分かりましたでしょうか？
この辺りは、文章での説明が難しいため、実際にトレースして確かめておいて下さい。


最後に使用したファイルを閉じ、「BinFileEdit」関数が成功した印として「０」を戻り値に格納しています。
基本的に、開いたファイルは必ず閉じなくてはなりません。
ファイルに限らず、オープンしたものは必ずクローズするものだと覚えておくと良いでしょう。

本やノートでいうと、「開かないと使えない」、「使い終わったら必ず閉じる」という所です。
開きっぱなしにしておくと、後で痛い目をみますのでご注意下さい。

よくある失敗として、クローズの処理は書いてあるのに、エラーが生じたときにジャンプしてしまい
肝心のクローズの処理が実行されない、というパターンがあります。


最後の行では、途中で何らかのエラーが生じた場合は「ErrSet:」へジャンプし、
エラー番号を関数の戻り値として返すための処理をしています。


１６進数の変換

それでは、先ほど後回しにすると言っていた、１０進数の数値や文字列を１６進数に変換する関数を見ていきます。
引数として、「変換するデータ」、「変換するデータの元の型」を指定します。


DecOrAsciiToHex ソースプログラム
Function DecOrAsciiToHex(ByVal DecOrAsciiData As String, ByVal DataType As String) As String
Dim ReturnData As String　'戻り値が確定するまでの値を格納
Dim CodeString As String　'文字コードに対応するアスキー文字列に変換した１６進数を一時的に格納
Dim CodeStringCnt As Integer　'何文字目を変換しているか

ReturnData = ""

'１文字目が、「S,M,L,$」のいずれかであれば、対応する１６進数の文字列に変換する
Select Case DataType
　　Case "S"
　　　　ReturnData = BigEToLittleE(Hex(CLng(DecOrAsciiData)), 1)
　　Case "M"
　　　　ReturnData = BigEToLittleE(Hex(CLng(DecOrAsciiData)), 2)
　　Case "L"
　　　　ReturnData = BigEToLittleE(Hex(CLng(DecOrAsciiData)), 4)
　　Case "$"
　　　　For CodeStringCnt = 1 To Len(DecOrAsciiData)
　　　　　　CodeString = Hex(Asc(Mid(DecOrAsciiData, CodeStringCnt, 1)))
　　　　　　ReturnData = ReturnData & CodeString
　　　　Next CodeStringCnt
　　Case Else
End Select

DecOrAsciiToHex = ReturnData
End Function



この関数では、変換するデータの元の型として以下の４種類があります。

Ｓ・・・１０進数（１バイト）
Ｍ・・・１０進数（２バイト）
Ｌ・・・１０進数（４バイト）
＄・・・文字列

この中では「＄」が最も簡単なので、こちらから説明していきましょう。
第３回でバイナリエディタの画面を見た時の事を思い出して下さい。

アルファベットの小文字の「ａ」は、１６進数では「６１」で表されていましたよね。
つまり、「＄ａ」という指定がされていれば、「６１」に変換すればよいのです。

具体的には、与えられた文字列を１文字ずつ取り出し、その文字を示す１６進数に変換していきます。
「Asc」という関数は、与えられた文字を示す数値を１０進数を返す標準関数です。
後はその値を「Hex」関数を使用して、１６進数にすればＯＫです。


で、問題なのはこの次です。
とりあえず「Ｍ」についてのみ説明していきます。（「Ｓ」「Ｌ」も基本は同じ）

例えば、「Ｍ９９９」という指定がされた場合を考えてみましょう。
１０進数の「９９９」は、１６進数では「３Ｅ７」です。

ということは、前に「０」を付けて「０３Ｅ７」とすれば良いのでしょうか？
実はそう簡単にはいかないのです。

結論から言いますと、この場合は「Ｅ７０３」とする必要があります。
何故でしょうか？

実は、ｘ８６系のＣＰＵ（ペンティアム等）はリトルエンディアンを採用しているため、下位バイトが前にくるのです。
まあ、リトルエンディアン云々はさておき、こうなるんだなぁぐらいに覚えておいて下さい。
（ビッグエンディアンであれば、このような変換の必要はありません）

例えば、「３，０００，０００」を変換する場合を考えてみましょう。
単に１６進数に変換すると「２ＤＣ６Ｃ０」となります。
後はこれを１バイト（２文字）単位で前後を逆転させて「Ｃ０Ｃ６２Ｄ」となるわけです。

この前後の変換を行っているのが、「BigEToLittleE」です。
では、この関数を見ていきましょう。


BigEToLittleE ソースプログラム
Function BigEToLittleE(Src As String, ByVal Keta As Long) As String

Dim i As Long

'バイト数を２倍にして、桁数に変換する
Keta = Keta * 2
'上位の桁の"0"を補い、桁数を揃える
Src = Right(String(Keta, "0") & Src, Keta)

For i = Keta - 1 To 1 Step -2
'１バイトずつ左右を反転
　　BigEToLittleE = BigEToLittleE & Mid(Src, i, 2)
Next i

End Function



引数として、「元の１６進数」、「バイト数」が与えられます。
そして、１バイトは２文字で表されますので、バイト数を２倍して桁数を求めます。

続いて、上位の桁に「０」を補って、元の１６進数の長さをバイト数と同じに揃えます。
例えば、元のデータが「ＦＦ」、バイト数が「２」だとすると、「００ＦＦ」にするわけです。

実際の処理では、とりあえず指定したバイト数分の「０」を左側にくっつけておいて、
それから、必要な文字数分だけ右側から取り出しています。

上記の例では、「ＦＦ」に２バイト分の「０」をくっつけるので、「００００ＦＦ」となり、
そこから２バイト分の文字を右側から取り出して、「００ＦＦ」を得ています。

この時使用している「String」は、指定した文字数だけ、指定の文字を並べた文字列を返す標準関数です。
今回は、桁数分だけ「０」という文字を並べた文字列を得るために使用しています。

後は、そうしてできた文字列を、後ろから２文字ずつ取り出して格納していけばできあがりです。

ところで、勘の良い方は気づかれたかもしれませんが、指定されたバイト数が１バイトの時は
実質的に変換を行っていません。

与えられたデータが１バイトという事は、例えば「ＦＦ」というデータが与えられた場合は、
変換後でも「ＦＦ」となるわけですから・・・


では、今回はここまでです。
次回はメモリ・レジストリ書き換えの為に必要となる、ＡＰＩの使用法について解説していきます。



前に戻る　　　　　次に進む

講座の初めに戻る