注册 登录
明经CAD社区 返回首页

mccad的个人空间 http://www.mjtd.com/?8 [收藏] [复制] [分享] [RSS]

日志

文本操作函数

热度 5已有 2430 次阅读2005-7-10 21:49 |系统分类:开发

;;文本操作函数
;;作者:明经通道 mccad

;;将文本文件中的内容转换为列表
(defun Get_Txt(datfile / tmplst x fn)
  (setq fn (open datfile "r"))
  (while (setq x (read-line fn))
    (setq tmplst(append tmplst(list x)))
  )
  (close fn)
  tmplst
)
;;获取文本文件的行数
(defun Get_Lines(datfile / tmplst x fn)
  (setq fn(open datfile "r"))
  (while (read-line fn)
    (setq tmplst (+ 1 tmplst))
  )
  (close fn)
  tmplst
)
;;获取文本文件中指定行数的文本内容
(defun Get_Num_Txt (datfile num / fn txt)
  (setq fn(open datfile "r"))
  (repeat (+ 1 num)
    (setq txt(read-line fn))
  )
  (close fn)
  txt
)
;;获取文本文件中指定文本内容的行数(位置)
(defun Get_Txt_Num (datfile txt / num havetxt fn txtline)
  (setq havetxt T)
  (setq num 0)
  (setq fn (open datfile "r"))
  (while havetxt
    (setq txtline (read-line fn))
 (if txtline
   (if(= txt txtline)
     (setq havetxt nil)
  (setq num(+ 1 num))
   )
   (setq havetxt nil)
 )
  )
  (close fn)
  (if (not txtline)
    (setq num nil)
  )
  num
)


路过

雷人
4

握手
1

鲜花

鸡蛋

刚表态过的朋友 (5 人)

发表评论 评论 (4 个评论)

回复 lidejun_55 2006-1-25 00:57
好东西,非常有用的函数。
回复 求知者 2006-3-17 10:03
你好,可否告知如何购买TrueTable98A.zip,我的邮箱wfsabcd@163.com,请尽快回复,谢谢
flicker 彩虹炫 | 南客一梦 2007-6-13 13:42
好 不错哦顶
flicker 彩虹炫 | 半月残剑 2007-7-19 15:42
跪求Visual Studio 2002.net的MFC70.LIB。。库文件

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-10-17 01:55 , Processed in 0.124505 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部