「Vle-write-int16」の版間の差分
(ページの作成:「{{BCAD_LISP}} ; 構文 : (vle-write-int16 ''fptr'' ''value'') ; 機能 : 「符号付き整数8ビット」をファイルに書き込む(C++の「短整数/ int16…」) |
編集の要約なし |
||
19行目: | 19行目: | ||
;サンプル | ;サンプル | ||
<pre class="brush:autolisp;"> | <pre class="brush:autolisp;"> | ||
; テキストで | ; テキストで 012あ を書き出して読み込む | ||
(setq fptr (open "c:\\temp\\bwtest.txt" "wb")) | (setq fptr (open "c:\\temp\\bwtest.txt" "wb")) | ||
(vle-write-int16 fptr 48) | (vle-write-int16 fptr 48) | ||
(vle-write-int16 fptr 49) | (vle-write-int16 fptr 49) | ||
(vle-write-int16 fptr 50) | (vle-write-int16 fptr 50) | ||
(vle-write-int16 fptr 12354) | |||
(close fptr) | (close fptr) | ||
(setq fptr (open "c:\\temp\\bwtest.txt" "rb")) | |||
(setq str "") | |||
(while (setq b (vle-read-int16 fptr)) | |||
(setq str (strcat str (chr b))) | |||
) | |||
(close fptr) | |||
!str | |||
012あ | |||
; テキストで ABC を書き出す | ; テキストで ABC を書き出す |
2023年1月7日 (土) 07:11時点における版
- 構文
- (vle-write-int16 fptr value)
- 機能
- 「符号付き整数8ビット」をファイルに書き込む(C++の「短整数/ int16」型と同じ)。
- 引数
-
- fptr: (open <filename> "wb") で開いたファイルディスクリプタ
- value : ファイルに書き込むLISP整数値(16ビット範囲)
- 戻り値
- 成功した場合は valut値、そうでない場合は NIL
- サンプル
; テキストで 012あ を書き出して読み込む (setq fptr (open "c:\\temp\\bwtest.txt" "wb")) (vle-write-int16 fptr 48) (vle-write-int16 fptr 49) (vle-write-int16 fptr 50) (vle-write-int16 fptr 12354) (close fptr) (setq fptr (open "c:\\temp\\bwtest.txt" "rb")) (setq str "") (while (setq b (vle-read-int16 fptr)) (setq str (strcat str (chr b))) ) (close fptr) !str 012あ ; テキストで ABC を書き出す (setq fptr (open "c:\\temp\\bwtest.txt" "wb")) (vle-write-int16 fptr 65) (vle-write-int16 fptr 66) (vle-write-int16 fptr 67) (close fptr)
関連事項