Cadence Skill 论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1159|回复: 2

[求助] 用skill编写一个程序计算出文档的行数

[复制链接]
发表于 2016-6-8 10:47:08 | 显示全部楼层 |阅读模式
Description
得出某文檔之行數
Arguments
filename string,檔名,若該檔在board file之目錄內,則僅輸入檔名即可,否則必須輸入絕對路徑名稱。
Value Returned
number 文檔之總行數。
Example
CountLineNO("file1.txt")
124 檔案file1.txt有124行。
CountLineNO("C:/dir1/dir2/file2.txt")
3400 檔案file2.txt有3400行。(file2.txt不在board file之目錄內)
发表于 2016-6-22 09:06:52 | 显示全部楼层
本帖最后由 leilei4908 于 2016-6-22 09:08 编辑
  1. axlCmdRegister( "CountLineNo" 'CountLineNo)
  2. axlSetAlias("cl" "CountLineNo")
  3. procedure( CountLineNo(@optional (path nil))
  4. prog((txt fileName num)
  5.         unless(path
  6.                 path = axlDMFileBrowse(nil nil)
  7.         )
  8.         unless(path return(nil))
  9.         txt = infile(path)
  10.         fileName = car(last(parseString(path "\\/")))
  11.         num = 0
  12.         while(gets(Line txt)
  13.                 num = num + 1
  14.         )
  15.         close(txt)
  16.         printf("%n Document:%s is counted to row %n" num fileName num)
  17. ))
复制代码
可以按照你的方法查询行数,也可以只输入CountLineNo或者cl,通过Browse找到文件
 楼主| 发表于 2016-6-27 08:46:38 | 显示全部楼层
leilei4908 发表于 2016-6-22 09:06
可以按照你的方法查询行数,也可以只输入CountLineNo或者cl,通过Browse找到文件

感谢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|网站地图|Cadence Skill 论坛 ( 蜀ICP备13024417号

GMT+8, 2018-11-18 18:30 , Processed in 0.184046 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表