ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 20:19

全ての表示時間は UTC+09:00 です




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - [AB4]ファイルの読み書きクラス
作成者 メッセージ
  記事の件名:  [AB4]ファイルの読み書きクラス  引用付きで返信する
多くの方が既にご自身で実装してそうですが、ファイル読み書きクラスを投稿してみます。

ReadFile(), WriteFile() を使う際の、
いちいち必要な変数を定義する面倒&バッファを確保する手間から解放されます。
・・・後者はちょっと語弊があるかも?(^^;
※Ascファイル(.txtとか.htmlとか)が対象です。
使い方はこんな感じです。
コード:
Dim rw As WsFileReadWrite
Dim r As Long
Dim p As BytePtr

'ファイルを読み込む
r = rw.OpenFile( "FilePath" )
p = rw.GetContents() '読み込んだファイル内容のポインタを返す(使用は推奨しませんが)
debug

'必要なバイト数を確保して、
'読み込んだファイル内容をコピーする
p = calloc( rw.WhatByte() + 1 )
r = rw.CpyContents( p )
debug

'気になるなら、読み込んだ内容をメモリから破棄
r = rw.CloseFile()
debug

'ファイルへの書き込み。
r = rw.SetContents( "hogetest" )
r = rw.WriteContents( "FilePath" )
debug
End
GetContents(), WhatByte() 以外の返り値は、成功ならTRUE、
失敗ならFALSE or NULLです。


11/20 20:34修正しました。
「CreateRead(), CreateWrite() を使う際の、」って書いてました。
なんですかそれ・・・(汗)。徹夜明けだったのでボケてたみたいです( ̄▽ ̄;)

06/24 13:12修正しました。
書き込み先のファイルがFILE_ATTRIBUTE_NORMAL以外の属性のとき
エラーしてました。修正しました。


(いつものように?)蛇足。
無性にクラスを使ってみたくなったから組んだ、それが全てだったり(^^。
ファイル読み書き周りで、バッファの解放を忘れていたのにずっと気付かず、凹んでいるからかもしれません┐(´ー`)┌
投稿記事 Posted: 2005年11月20日(日) 07:45

全ての表示時間は UTC+09:00 です


ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean