「Vle-read-int64」の版間の差分

2023年1月7日 (土) 06:38時点における版

BricsCADのLISP - AutoLISP Home - AutoLISP 目次 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vle-read-int64 fptr)

機能: ファイルから「符号付き64ビット整数」を読み込む（C++の「長整数/ int64」型と同じ）。

引数

fptr： (open <filename> "rb") で開いたファイルディスクリプタ

戻り値: 成功した場合は valut値、そうでない場合は NIL

サンプル

; テキストで 012あ を書き出す
(setq fptr (open "c:\\temp\\bwtest.txt" "wb"))
(vle-write-int64 fptr 48)
(vle-write-int64 fptr 49)
(vle-write-int64 fptr 50)
(vle-write-int64 fptr 12354)
(close fptr)
(setq fptr (open "c:\\temp\\bwtest.txt" "rb"))
(setq str "")
(while (setq b (vle-read-int64 fptr))
  (setq str (strcat str (chr b)))
)
(close fptr)
!str
012あ

@@ 20行目: / 20行目: @@
 ; テキストで 012あ を書き出す
 (setq fptr (open "c:\\temp\\bwtest.txt" "wb"))
-(vle-write-int32 fptr 48)
+(vle-write-int64 fptr 48)
-(vle-write-int32 fptr 49)
+(vle-write-int64 fptr 49)
-(vle-write-int32 fptr 50)
+(vle-write-int64 fptr 50)
-(vle-write-int32 fptr 12354)
+(vle-write-int64 fptr 12354)
 (close fptr)
 (setq fptr (open "c:\\temp\\bwtest.txt" "rb"))
 (setq str "")
-(while (setq b (vle-read-int32 fptr))
+(while (setq b (vle-read-int64 fptr))
    (setq str (strcat str (chr b)))
 )
@@ 41行目: / 41行目: @@
 * [[open]]
 * [[close]]
-* [[vle-write-int16]]
+* [[vle-write-int64]]
-* [[vle-read-int16]]
+* [[vle-read-int64]]
-* [[vle-write-int16be]]
+* [[vle-write-int64be]]
-* [[vle-read-int16be]]
+* [[vle-read-int64be]]
 [[Category:AutoLISP]]