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

kaka0809

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之目錄內）

leilei4908

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找到文件

kaka0809

leilei4908 发表于 2016-6-22 09:06
可以按照你的方法查询行数，也可以只输入CountLineNo或者cl，通过Browse找到文件

感谢