Vle-write-double-be

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年1月14日 (土) 04:18時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP}} ; 構文 : (vle-read-double-be ''fptr'' ''value'' ) ; 機能 : ファイルから「double(浮動小数)64ビット」を読み込む(C++の「dou…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vle-read-double-be fptr value )


機能
ファイルから「double(浮動小数)64ビット」を読み込む(C++の「double」型と同じ)。ビッグエンディアンのバイト列で保存されたデータ用


引数
  • fptr: (open <filename> "rb") で開いたファイルディスクリプタ
  • value : ファイルに書き込む浮動小数点(64ビット範囲)


戻り値
成功した場合は 浮動小数点値、そうでない場合は NIL


サンプル
(setq fptr (open "c:\\temp\\bwtest.txt" "wb"))
(vle-write-double-be fptr 4294967296)
(close fptr)
(setq fptr (open "c:\\temp\\bwtest.txt" "rb"))
(setq dbl (vle-read-double-be fptr))
(close fptr)
!dbl
4294967296.0

; テキストで "012あ" を書き出してから読み込んで復元する
(setq fptr (open "c:\\temp\\bwtest.txt" "wb"))
(vle-write-double-be fptr 48)
(vle-write-double-be fptr 49)
(vle-write-double-be fptr 50)
(vle-write-double-be fptr 12354)
(close fptr)
(setq fptr (open "c:\\temp\\bwtest.txt" "rb"))
(setq str "")
(while (setq b (vle-read-double-be fptr))
  (setq str (strcat str (chr b)))
)
(close fptr)
!str
"012あ"


関連事項