APIを学習中の初心者です。
サンプルコードにあったのですが、test0623.txt のテキストを作成し、「abcde」と書き込むというものです。
Const GENERIC_WRITE = &H40000000
Const GENERIC_READ = &H80000000
Const FILE_ATTRIBUTE_NORMAL = &H80
Const CREATE_ALWAYS = 2
Const OPEN_ALWAYS = 4
Const INVALID_HANDLE_VALUE = -1
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) As Long
Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Sub test1()
Dim hFile As Long
Dim FileName As String
Dim Sampledata() As Byte
Dim BytesToWritten As Long
Dim SC As Long
FileName = "test0623.txt"
SC = StrConv("abcde", vbFromUnicode)
hFile = CreateFile(FileName, GENERIC_WRITE Or GENERIC_READ, _
0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
SC = WriteFile(hFile, Sampledata(0), _
UBound(Sampledata), BytesToWritten, 0)
Call CloseHandle(hFile)
End Sub
とあったのですが質問は以下の通りです。
(1) SC = WriteFile(hFile, Sampledata(0), UBound(Sampledata), BytesWritten, 0) で、な ぜ、lpBuffer(第1引数)にSampledata(0)を指定すれば、ファイルに書き込むべきデータを保持しているバッファへのポインタになるのか?またSampledata(0)のように配列にする理由が不明?
(2) SC = WriteFile(hFile, Sampledata(0), UBound(Sampledata), BytesWritten, 0) で、なぜ、 nNumberOfBytesToWrite(第2引数)に UBound(Sampledata)を指定すれば、ファイルに書き込むべきバイト数になるのか?ここで、0を指定すると、何も書き込まないらしい。
(3) SC = WriteFile(hFile, Sampledata(0), UBound(Sampledata), BytesWritten, 0) で、なぜ、lpNumberOfBytesWritten(第3引数)に何の値も格納していない BytesWritten を記述しているのか?MSDNライブラリには、「関数から制御が返ると、この変数に、実際に書き込まれたバイト数が格納されます。」とあるので、指定しなくてよいのか?
(4) Pathを指定していないが、なぜか、C:\Users\123\Documents に作成される。
以上です。よろしくお願いします
No.1ベストアンサー
- 回答日時:
SC = StrConv("abcde", vbFromUnicode)
は
Sampledata = StrConv("abcde", vbFromUnicode)
の間違いかな? その前提で、
(1)それはVisual BasicとWin32APIの相互運用でそういう事になってるとしか・・・・。Win32APIは元々C言語用のAPIなので、VBから呼び出す時はケースバイケースで妙なお作法があったりするのです。
(2)それはSampledataがByteの配列だからだ。UBoundは配列の最大要素番号を返すものだが、StrConvが返したバイト数を指定する場面ではByteの配列の要素数がそのままバイト数になる。ただ・・・・StrConv("abcde", vbFromUnicode)をByteの配列に代入してUBoundを取ると1少なくなるんじゃないかなぁ。UBound(Sampledata)は4になるんじゃなかろうか。
(3)この第三引数は、入力じゃなくて出力だ。つまり、あなたが値を設定してWriteFileに渡すのではなく、WriteFile内で値を設定してあなたに返してくれるものだ。だからあなたは何の値も格納しなくてよい。Declareを見ると、そこだけByValが無い事に気づくだろう。それが、VBで言うところのByRef、呼び元と呼び先で変数を共有する仕組みだ。
(4)それは「カレントディレクトリ」と呼ばれる仕組みによって実現されている。カレントディレクトリとは、「ディレクトリを指定せずにファイルを読み書きしたらそのディレクトリが補完される」ディレクトリの事で、VB6やVBAではChDirステートメントで変更する事ができる。
回答ありがとうございます。
Byteの配列を初めて見たのですが、回答のおかげで理解できました。UBound値も4になっていました。
(1)や(4)のようにお約束になっていることがかなりあるのですね。
わかりやすい解説で理解できました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Vba Userformを前面に出すについて 3 2022/04/15 12:29
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) excel vba 参照渡しと値渡し 2 2022/04/27 10:45
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセル VBA でのCOMポート認識
その他(プログラミング・Web制作)
-
WriteFile()でのデータ送信ができなくなる
C言語・C++・C#
-
DWORDの実際の型は何でしょうか
C言語・C++・C#
-
-
4
シリアル通信時のデータ受信方法
Visual Basic(VBA)
-
5
_T(abcdef") の_Tってなんですか?"
C言語・C++・C#
-
6
WriteFile関数
C言語・C++・C#
-
7
ReadFileの読み込みエラーについて
C言語・C++・C#
-
8
バイト型のデータをLong型に変換
Visual Basic(VBA)
-
9
VBAを使用して、USBでつないだ機器の制御が出来るでしょうか?
Access(アクセス)
-
10
VC++ 2008 EXPRESS _T"識別子がみつかりません"
C言語・C++・C#
-
11
EXCEL VBAで、PnPでCOMポート番号取得
Visual Basic(VBA)
-
12
WORD型をCString型に変換する方法
C言語・C++・C#
-
13
VBA バイナリ―から文字列にする方法
Visual Basic(VBA)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
拡張子.dどういう意味
-
scpによるデータ転送後、ディレ...
-
FTPでPUTできない原因は何?
-
Linuxコマンドについて
-
「ドット(.)」と「¥」の意味...
-
「照合パターンに合いません」...
-
linuxで特定のディレクトリのみ...
-
#./configureの時点でダメです。
-
grepで、再帰的に検索する場合...
-
linuxコマンド mkdirでディレ...
-
linuxのコマンドラインで、拡張...
-
ファイル名で / (スラッシュ...
-
FTPコマンドのCDについて
-
tar(*.tgz)ファイルの解凍の際...
-
7zを使うとフォルダの中身がす...
-
フォルダにアクセスするとファ...
-
ftpのmgetコマンドの自分の格納...
-
unzipコマンドでディレクトリな...
-
RHELを使っています。これまで/...
-
xgraphのインストールについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
7zを使うとフォルダの中身がす...
-
拡張子.dどういう意味
-
ftpのmgetコマンドの自分の格納...
-
make時に出てきたエラーメッセ...
-
/(スラッシュ)で区切ったフル...
-
ホームページのディレクトリを...
-
「照合パターンに合いません」...
-
linuxコマンド mkdirでディレ...
-
バッチファルの置き場所
-
scpによるデータ転送後、ディレ...
-
「ドット(.)」と「¥」の意味...
-
FTPコマンドのCDについて
-
"cp -a"と"cp -r"の違い
-
Linuxコマンドについて
-
tarコマンドのエラーについて
-
シンボリックリンクについて
-
unzipコマンドでディレクトリな...
-
ファイル名で / (スラッシュ...
-
macで、cdで移動できない
-
FTPでPUTできない原因は何?
おすすめ情報