Ｌ７．テキストファイルを読み込む
　　　(defun c:ufl00007 ( / flna dataa ffr nn datar )
　　　;テキストファイルを読み込む
　　　　(setq flna "C:\\UfCadP\\text1.txt")
　　　　(setq dataa nil)
　　　　(setq ffr (open flna "r")) ;ファイルのオープン
　　　　(if (= ffr nil)
　　　　　(prompt "\nファイルをオープンできません。")
　　　　　(progn
　　　　　　(setq nn 5)
　　　　　　(repeat nn
　　　　　　　(setq datar (read-line ffr)) ;１〜５行目
　　　　　　　(if (/= datar nil)
　　　　　　　　(progn
　　　　　　　　　(if (= dataa nil)
　　　　　　　　　　(setq dataa (list datar))
　　　　　　　　　　(setq dataa (append dataa (list datar)))
　　　　　　　　　)
　　　　　　　　)
　　　　　　　)
　　　　　　)
　　　　　　(close ffr)
　　　　　)
　　　　)
　　　　(print dataa)
　　　　(princ)
　　　)
　　上記ＡｕｔｏＬＩＳＰファイル（ufl00007.lsp）のダウンロード

　説明
　　read-line：開いているファイルから行の終了マーカーが現れるまで文字列を読み込む。
　　　(read-line ファイルディスクリプタ)
　　　ファイルの終端に達した場合はnilを返す。

Presented By ユーザーフレンドリー
E-mail:usrfr@yk.rim.or.jp