资源描述
常量、变量
常量就是它得值等于自身得表达式,如12３，”abc”…ﻫ变量就是保存了其它值得表达式,如ｘ=3, x即变量。
算术与逻辑操作符
函数名 语法 对应操作符
Data Aｃcesｓ
ａrrａyref a[index］ [ ]
setaｒray a[index] = exｐr
ｂitfield1 x<ｂiｔ> <>
setqｂｉtfield１ x<bｉt>=ｅｘpr
setqｂitfiｅld x<ｍｓb:ｌsb>=ｅｘpr
ｑuoｔe 'eｘｐｒ '
gｅｔqq ｇ、s 、
ｇetq ｇ-＞s ->
putpropｑq g、s＝ｅxpr， g->ｓ=ｅxpr
pｕtｐropq d~>s, ｄ~＞s =exｐｒ ～>
Ｕnarｙ
preｉｎcrｅｍent ++ｓ ＋+
ｐosｔiｎcrement ｓ++ ++
pｒｅdｅｃｒemｅnｔ --s --
poｓｔdｅcremｅnt s-- --
ｍｉnus -n -
not !expｒ ！
bnot ~ｘ ~
Ｂinary
exｐt ｎ1 ** n2 **
times n1 * n２ *
qｕotieｎt n1 / ｎ2 /
plｕs n1 ＋ n2 +
difference n1 - n2 -
ｌeftｓhift x1 << x２ ＜＜
rightｓｈifｔ x1 ＞> x2 >>
ｌｅssp n1<ｎ２ <
grｅateｒｐ n1>n２ >
lｅqp n1＜=n2 <＝
geqｐ ｎ1＞=n2 >＝
equａl ｇ1 == ｇ2 ==
neqｕal ｇ1 != g2 ！=
band x1 & x2 &
bnaｎd x１ ～& x２ ~&
bｘor x1 ＾ ｘ2 ^
ｂｘｎor x1 ～＾ x2 ~^
bor ｘ1 ｜ x2 ｜
bnｏr x1 ~| x2 ～|
and x１ ＆& x2 ＆&
or x１ || ｘ２ ||
ranｇe ｇ1 : g2 :
ｓeｔq ｓ = expｒ ＝
对于既有函数名又有操作符函数，采用函数名调用与采用操作符调用得效果就是一样得。ﻫ示例 lｅｓsｐ(3 1)=>nｉl 等同于 3<1=>ｎｉｌ
预定义算术函数
语法 结果
通用函数
add1（n) n + 1
sｕb1(ｎ) n – 1
aｂｓ（n) 绝对值
eｘｐ(n） 自然对数得ｎ次方
ｌog(n)
mａx（n1 n2 、、、）
min(n１ n2 、、、)
mod(x1 x2) 取模运算
ｒound(n)
sqｒt（n)
sxｔd(x w） 将x右扩展W个符号位
zxｔd(x w) 与上面得功能相同,速度更快
三角函数
ｓin(ｎ）,ｃos(ｎ)，tan（ｎ)
aｓin(n),acｏs(n),atan(n)
随机数生成函数
rａｎdom(x) 产生0~x-1得随机数
ｓｒaｎdoｍ(x) 初始化随机数生成函数得x
位操作
含义 操作符
位与 &
位或 |
位异或 ＾
左移位 >＞
右移位 <<
取反 ~
真值、假值
§ 真值,除了nil以为得值都就是真值。
§ 假值,ｎil
条件控制函数
if, when， ｕnless， cｏｎd
§ if
if函数得语法结构
ｉf( condiｔion1 thｅn ;当coｎditioｎ1为真值时执行代码块eｘpA
ｅxpA
eｌse
if( ｃｏndition２ tｈen ;当cｏｎdition2为真值时执行代码块expB
exｐB
elsｅ
…
expC
）
)；ｅnd iｆ
§ when
ｗhen函数语法结构
when( ｃｏndition ;当coｎditｉon为真值时执行代码块expＡ，否则跳过
expA
)； end wｈeｎ
§ unless
unless语法结构
uｎｌeｓｓ（ conｄitioｎ ；当condｉtion为假值时执行代码块expA,否则跳过
ｅxｐA
）; end ｕｎless
§ cond
cond语法结构
cｏnd (
( condｉtion1 eｘｐA、、、 ) ;当coｎdition１为真值时执行代码块expA
( cｏｎditiｏｎ２ expB 、、、 ） ;…
( cｏnｄition3 ｅxpC 、、、 ) ;…
( t ｅxpN ) ;之前得条件都不满足时默认执行eｘpN
）； eｎd cｏnd
［注］:"；" 表示注释
循环控制函数
ｗhile,fｏｒ,ｆoreaｃｈ
§ ｗhｉle
ｗhile语法结构
whilｅ( conｄitiｏn ｉs ｔrue ;当conｄiｔｉon为真值时反复执行代码块ｅxｐA，否则结束循环
exｐA
）
§ ｆor
ｆor语法结构
ｆｏr( ｉ 1 5
priｎtlｎ(ｉ)
)
将输出
1
2
３
4
5
§ foreach
ｆorｅacｈ就是简化版得for，上面得例子用foreach写如下
alｉｓｔ ＝ ‘(1 ２ 3 4 5)
foreach( itｅm aｌist
ｐrintln( ｉtｅm )
）
foreaｃh通常用于操作列表,因为它会遍历列表得每一个元素。
选择函数
§ caseｑ得用法类似cond,功能也类似。
ｃasｅq（ var
(ｃonｄｉｔiｏｎ１ expA）
(ｃonｄitｉon2 eｘpB)
…
） ;cａｓe语法结构
循环结构中得局部变量
使用关键字prog可以在循环结构中定义局部变量。关于ｐrｏｇ得详细介绍请参考函数章节。
返回函数
表示返回值得关键字就是return。return可以强制一个prｏg结构立即结束,送出返回值,忽略剩余得循环操作。
示例 prog( ( )
ｆoｒ( i ０ 10
wｈen（ oddp（ ｉ )
ｒetｕrn（ i )
) ； when
) ; for
) ; prog
这个fｏr循环不会运行10次，首次ｏdｄp(i)为真值得时候循环就会结束。
正则表达式
在很多得sｋｉll应用中都会用到正则表达式,比如在一个字符串数组中查找带有关键字useｒ得字符串。示例:
lＳｔr = ＇(＂hello" "wheｎｕser" "uｓere" ＂ffuｓ er" ＂ppuseｒd" "ustｅr");
lRes = nil
foｒｅacｈ( iｔem lＳtr
if（ reｘＭatchp("ｕser＂ item) tｈｅn
lRｅs = coｎｓ（ iｔem ｌRes）
ｐrｉnｔln(ｉｔｅｍ)
)
)
输出:
"whｅnuseｒ＂ "ｕseｒe" "ppｕsｅｒd"
lRｅｓ ＝>("ppｕserｄ" "uｓeｒe" "whｅｎuｓer＂)、
这里得关键命令就是rexMａtchp,函数形式为reｘMａｔｃhp（ｔ_pattｅｒn Ｓ_targeｔ）,这个命令将在第二个参数中查找满足第一个参数(模式）得条件,如果找到返回真值,否则返回假值。
§ 正则表达式(pattern)得组成字符
语法 含义
c 匹配任意非特殊字符
、 匹配任意字符
\ 用在特殊字符前面代表特殊字符本身,用在 <, >, (， ）, and 1,、、、,9, 得含义在下面描述
［ｃ、、、］ 一对方括号中包含一些字符将匹配括号中得任意一个字符，如果第一个字符就是 ^ 则表示不匹配括号中得所有字符,［a-z]表示匹配a到z之间得任一字符,＂-”表示范围。
* 用在一个以上描述得字符或ｐatterｎ后表示匹配该字符或ｐattern0次或多次。
＋ 类似*,区别在于匹配至少一次
\(、、＼） 如果包含在这个符号中得字符串匹配上了，被匹配得字符可以被提取出来（最多支持9中匹配)
＼n 与上一个符号对应，反斜杠后跟一个数字将可以提前到上一个符合保留得字符串
\<、、、＼> 这个符号表示完全匹配一个字符串得开始与结尾
rｓ 2个正则表达式得组合将尽可能多得匹配r并匹配一个s
^, $ ^表示字符串得开始, $表示字符串得结尾
§ 常用正则匹配函数
rexpile,reｘExｅcutｅ,reｘMatｃhp,rexSｕbstitutｅ 示例: 使用 rexｐile与rexＥxecｕte实现开头得示例
ｌＳtr = '("ｈelｌｏ" ＂wｈenuser" "useｒe＂ "ffuｓ er" "ｐpuserd" "usｔer＂）;
lRes = nｉｌ
rexpile("uｓer")
foｒeach( item lＳtr
if（ rｅxＥｘｅｃute(iｔem） ｔhen
lReｓ = conｓ（ itｅm lＲes)
println(item)
)
）
将得到与前一个示例一样得结果。示例： 使用reｘSｕbstiｔｕtｅ提取字符, 在给定格式得列表中提取ｓymbol名字与对应得坐标
ｌStr = list（"C1７x8５5、00y-2７90、０0" "C676ｘ34９9、50y-2６76、40＂ "Q6９0ｘ34０6、０0y-27０１、0０" “C666ｘ3535、00y－3135、00” “C785ｘ１929、00ｙ-3750、00” “U6２８x3８65、０0y-202５、00” “C7３7x3010、00y-31５5、00” “R７５4x277０、00y－2７30、０0”)
reｘｐiｌe( "\＼([A-Z]＋［0－９］+\\）ｘ\\([0-9、－］+\＼)y\\([0-9、-]+\\）") ； \\(、、、\＼） 结构表示匹配得部分将可以用\\1、、９提取出来
; [A-Ｚ］表示匹配A~Z得字符,+表示至少有一个这样得字符
forｅａch( ｉｔem lStr
whｅn( ｒexＥxecｕte( item )
ｓtr1 = rｅxＳubstｉtutｅ（ ＂＼\１" )
str2 = ｒexSuｂstitｕte( ＂\\２＂ )
ｓtr3 = reｘSubstitute（ "＼\3" )
ｐｒiｎtf("%s<->%ｓ<-＞%s＼ｎ" stｒ1 sｔr２ str３)
)
);
将输出:
C１7<-＞8５５、00＜-＞-2７90、00
C6７6<->3499、50<->-2676、40
Ｑ6９0<->３406、00<-＞-2７01、00
Ｃ78５<－>１929、00＜－>-37５0、００
U6２8＜->３8６５、0０＜－>-2025、00
Ｃ７37<-＞30１0、０0＜->-3１5５、０0
Ｒ754＜->2770、00<->-2７30、00
§ 更多示例,参考Skill正则表达式应用举例
Skｉｌl正则表达式应用举例
处理Ｄangliｎg Lｉne Ｒｅport
ａllｅｇｒｏ得repｏrｔ命令在repoｒt dangling liｎｅ得时候也会同时reｐort dangling via 出来。
如果您reｃord过scｒiｐt,就会发现产生danｇlｉng liｎe repｏrt得ａlleｇro命令就是rｅportｓ "Dangliｎg Lines Rｅpoｒｔ"。ﻫ这个命令会在当前ａllegｒｏ工作得文件夹下产生一个叫dａnglｉng_lineｓ、ｒｐt得文件。
;----－-----－--－-－--－-－-----－-------－－-----－--－－－-
＜<danglｉｎg line＞>
Power TOP *(7710、0０ -１８65、0０) tｏ *(6705、０0 －16１5、00）
GND BOＴＴOM ＊(７８90、00 －1774、00） tｏ *(657５、00 －２045、0０)
1Ｖ５ INＴ３ *（7860、００ -1９３0、00) tｏ *(６675、00 －２660、00)
12V IＮT５ ＊(７830、００ -1930、0０） tｏ ＊(6705、00 －２660、０0）
<＜ Danglｉｎg Ｖｉaｓ >>
GND VIＡ24Ｃ12P （5５05、００ -320、００）
1V５ VIA24C１2P (5465、00 -3２0、００）
现在我想用正则表达式来找到Ｖia得信息,而排除line得以及一些其它得文字信息。
下面就是我想到得patｔen：ﻫ
"^[ Ａ-Z0-９_]+［ ]+[A-Z0-9＿]＋［ ]+([-0-9、］+ ［-0－9、]+)$"
在skilｌ环境下简单试一下
rexMatcｈp("^[ Ａ－Z0－９_<>＊]＋[ ］+［Ａ-Z0-9＿］+［ ]＋(［-0-９、］+ ［－0－9、]+)$" “ 1Ｖ5
VIA24C12P (５465、00 -３20、0０)” )=＞t
rexMatcｈp（"^[ A-Z0-9_<>＊］＋[ ]+[A-Z0-9_]＋[ ]+([-０-9、]＋ [-0-9、］+）$" “ 1V５ VＩＡ２4C１２Ｐ (546５、０0 -３20、0０)to(5４６５、0０ -32０、0０)” )=＞ｎil
所以就是满足我们得要求得！
完整得提取程序:
axlＳｈｅｌｌ( "repｏｒts \"Danｇling Lines Ｒepoｒt＼"" )
pDanglingＦile= inｆiｌe( ＂、/dａngｌｉｎg_liｎes、rpt" )
dl_lisｔ = ｎil
unlesｓ( gｅtc( pDangｌｉngFile )
axｌＭsgＰut( "----- Erroｒs found in Ｄanｇling Line Reporｔ -－---" )
ｗhile( geｔs（ dl_eｎtry pDaｎｇliｎｇFile )
when( rexMａtchp("^［ A-Z0-9_<＞*］+[ ］+［Ａ－Z0-9＿]＋［ ]＋([-0-9、]+ [－0－9、]+)、$" dl_eｎtrｙ ） ;;因为ｇetｓ读进来得dl_eｎtrｙ还带了个＂＼n",所以必须在之前定义得patteｎ后面再加上一个“、＂来匹配它
dｌ_enｔry = buildStrｉng（ paｒseＳｔｒing(dl_eｎｔｒy) ＂ "） ;；因为ｒepｏrt结果里面得via nｅt, padｓtaｃk以及坐标间隔很大,这个让间隔变小一点
dl_list = coｎs( dｌ_entry ｄl_list )
)
)
cloｓe(pＤaｎglｉngFilｅ)
ｄl_liｓｔ ＝ sort(dl_ｌist ｎil) ;根据字符串大小得默认排序
)
这样就得到了dａnglｉng vｉa得列表了。接下来得操作就随个人了，比如把它显示到一个form里面。
另一个例子
"From： Ｃ８03、1 (3313、０００ 2553、921) Ｔｏ： Ｕ1８02、C3 (7321、０24 -１29６、０24)＂
rexpilｅ(＂\\(（[-０-９、]+ ［-0-9、]+）＼\）［^（］＋\\((［－０-9、］+ ［-0－9、]+）＼\)"）
这样就可以得到带括号得坐标
reｘｐiｌe("(\\（[－0-９、]+ [－0-9、]+\\))[＾(］+(\\([-0－９、]＋ [-0-９、]+\\）)＂)
得到不带括号得坐标
特殊字符,注释，空格,圆括号与其它标记法得使用
§ 特殊字符
SKill中得特殊字符列表
字符 全名 含义
\ 反斜杠 辅助输出特殊字符
() 圆括号 组织数据列表与调用函数列表
[] 中括号 数组索引，超级右中括号
{｝ 大括号 使用prｏgn时组织一系列表达式
' 单引号 单引号中得表达式不会被解析
" 双引号 字符串分界符
, 逗号 列表中可选得元素分界符; 在反引号作用范围内使用强制表达式解析
; 分号 行注释
: 冒号 位分隔符,范围操作
、 点号 ｇｅｔq操作
+,–，＊,/ 算术运算 算术运算符; 同时"/＊"与"*/"组合也用于多行注释
!,^,&，| 逻辑运算 逻辑运算符
<，＞,= 关系运算 比较运算,赋值以及位运算
# ＃ 用在第一列表示信号得特别解析
@ 用在第一个字符表示保留字;另外在反引号作用范围内使用将强制表达式解析
? 问号 如果就是第一个字符表示关键字
` 反引号 引号内得表达式不被解析
％ 百分号
$ － 保留为将来使用
[注]：输出这些特殊字符都需要在字符前加＂\"。
§ 注释
§ 行注释方法, 使用分号";",注释范围在分号当前行。
§ 多行注释，使用＂／*"与"*／＂对，注释范围在这这对符号内。
§ 空格,空格得限制比较少,只就是要注意下面几个情况
§ 函数名与跟在后面得圆括号之间不能有空格，如maｘ(４ 2）就是对得，而ｍaｘ (4 ２)则就是错得;
§ 表示负数得符号"-"与数字之间不能有空格,如-5, -(ａ*b)有效，而- ５,- (a*b）无效；
§ 表示算术运算得"+ - ＊ ／"在２个数字之间得位置要对称,如a － b, a-b有效,而a -b无效。
§ 圆括号
§ 圆括号在sｋilｌ中用于函数调用,分隔多个表达式,控制表达式得解析顺序
§ ｓkill中调用函数有2种方式,mａx(ａ b)与(max a b）都有效。
§ 超级右中括号,不推荐使用
§ 在使用了很多"("得表达式后,可以用"]"来代表很多个用于结尾得"）"。
如f1( ｆ2( f3（ f4（ x ) ） ) )等效于f1( f2( ｆ3( ｆ4（ ｘ ]。
§ 反引号,逗号与逗号加@
示例1、
ｙ ＝ 1
＇(ｘ y ｚ) ＝＞ (ｘ y z) ;反引号使得表达式不被解析,所以其中得ｙ不会被１代替
'(x ,y z) => (x 1 ｚ) ;增加一个逗号在反引号表达式中,逗号后面得表达式将被解析
示例2、
ｘ = 1
ｙ = '(a b c)
'(,ｘ ，y ｚ) =＞ (1 (a ｂ c) z);逗号后得表达式都被解析了
'（,ｘ ,y z) => (1 a b c ｚ) ;","得作用与逗号一样，只就是被解析对象就是列表,且解析出来得元素代替了原来得列表
§ 续行符"\"
§ 使用"\"可以让在一行得文字多行表示， 如
striｎg = "This is \
a tesｔ、" ＝> "Tｈiｓ is a ｔest、"
§ 初始化列表得最大长度６0０0,但就是在程序运行中列表得长度无限制。
文件系统接口
§ 路径
§ 绝对路径:Unix中以"/＂开始得路径,Windows中以磁盘"Ｃ:, D:，、、、"开始得路径
§ 相对路径，不就是绝对路径得情况就就是相对路径
§ 以"~/＂开始得路径表示被查询得路径就是用户得hoｍe文件夹;
§ 以"~uｓername"开始得路径,如果ｕserｎaｍe正好就是一个用户得名字,那么被查询得路径将就是该用户得hｏme文件夹;
§ 以"、/＂开始得路径表示被查询得位置就是当前得工作目录
§ 以＂、、/＂开始得路径表示被查询得位置为当前工作目录得父文件夹
§ Sｋill路径
§ skｉll支持用户定义若干不同得路径来存放skiｌｌ源文件,并通过skｉll得路径管理函数来设置各个路径得访问顺序。如果同一个文件在不同路径下都存在，按照先到先得原则，即使用第一个被找到得文件。
§ 设置ｓkill查询路径得函数seｔSkillPaｔｈ， 如ｓｅtSkillPath("、" "～＂ "Ｃ:/Skill"),就设置了3个skｉll查询路径,先后顺序分别为＂、"-当前工作路径,"~＂-hoｍe文件夹,"C:/Skiｌl"－用户自定义文件夹。
§ 获取sｋｉll查询路径列表得函数getSkillPath，如setSｋｉllPａth("、" ＂~" ＂Ｃ:/Skｉｌl＂)； ｇetSkiｌlPath()=>(＂、＂ "~" ＂C:／Skill")
§ 安装路径
§ 获取安装路径函数gｅtＩｎstaｌlＰaｔh,如getInstallＰaｔh()=>"C:/Ｃadenｃe/Psｄ16、2"
§ 检测文件状态
§ 检测文件就是否存在函数is
§ 检测文件夹就是否存在函数isDiｒ
§ 检测文件或文件夹得就是否可以被读取得函数isRｅadable
§ 检测文件或文件夹得就是否可以被写入得函数isWritable
§ 路径操作
§ 生成与删除文件夹
§ ｃreateDir(ａrg), 如cｒeａtｅDir("c:/teｍp／skill"),将在ｃ：／ｔemｐ下创建一个ｓkilｌ文件夹;
§ deleteDｉｒ（arｇ),如delｅtｅＤir("c：/ｔeｍp/ｓkill"),将删除这个skill文件夹,如果这就是个空文件夹,且用户具有删除它得权限。
§ 删除文件函数delｅteFile
§ 获取指定文件夹下所有文件名函数ｇeｔDｉrＦileｓ
§ 获取当前工作目录getＷoｒｋｉngDｉr
§ 改变工作目录chaｎｇｅWoｒkingＤiｒ
端口
所有数据得输入输出都就是经由一个被称为端口得东西实现得。
预定义得标准端口
端口名 作用
pｉpｏrt 标准输入端口,等同于C中得ｓtdin
ｐoport 标准输出端口,等同于C中得ｓtｄout
ｅｒｒporｔ 错误输出端口,等同于Ｃ中得sｔｄeｒr
ｐtｐorｔ 跟踪信息端口，等同于C中得ｓｔderr
§ 打开端口
§ 打开一个文件读取端口inｆｉlｅ
ｉｎfile(＂~/test／inｐｕt、il")=> ｐｏrｔ:＂～/ｔest/inpuｔ、il"
§ 打开一个文件输出端口outｆｉｌe
p = oｕtfile(＂～/teｓt／ｏuｔ、il＂ ＂ｗ") => pｏｒt:"~/teｓt/out、iｌ"
§ 关闭端口clｏse
p = ｏuｔfile（＂~/tesｔ／out、iｌ" "w＂) => port:"~/ｔｅst/oｕｔ、iｌ＂
closｅ(p）
Ｉ/Ｏ
§ 输出
§ 非格式化输出
prinｔ（"hello") ; 输出 "heｌlo"
println("helｌo") ； 输出 "hello＂加换行
§ 格式化输出
常见格式化输出规范
格式 参数类型 输出结果
%d ｆixnum 十进制整数
％o fixｎuｍ 八进制整数
%x fｉxｎｕm 十六进制整数
％f flｏｎuｍ 浮点数,格式为[-]ｄdｄ、ddｄ
%ｅ flonuｍ 浮点数,格式为[-］d、dｄdｅ[-]ddd
%g floｎum 不改变浮点数精度得情况下，以最少得空间表示
%s stｒing, sｙｍboｌ 输出字符串
％c strｉnｇ, symbｏl 输出第一个字符
%n fｉｘnuｍ， flｏｎum 数字
%Ｌ list 数据得默认形式输出
%P ｌiｓｔ 点Point
%B list Boｘ
示例
printf( "heｌlo， %s" ＂Willy" )=> "ｈeｌlo, Wｉｌly＂
printf（ "%d == %ｘ" ２0 2０ ）=> "２0 == 14" ;把一个十进制书转换成16
sｐｒiｎｔf( sＭsg ＂hｅlｌｏ, ％s" "Ｙｏu＂ )=> sMsg="hｅｌlｏ, Ｙou"
fprintf( port "1sｔ ｌine, ％d words" 10 ）; 输出"1sｔ line, 10 ｗords"到文件
ｐrinｔf（ " \"％s\"" "ｃ:\＼text、il＂); 输出 ＂ｃ:\ｔｅxt、il＂，这里带了双引号
§ 输入
输入函数列表
输入源 读取函数(评估版) 读取函数(未评估版) 操作函数
Ｆｉle文件 load/lｏａｄi linｅreａd iｎ
Sｔriｎｇ字符串 evalsｔring/loadsｔｒiｎg/ｅrｒsetｓtｒｉng linerｅadsｔriｎg inｓtｒinｇ/ｇｅts/geｔc/fscanf/ｃlose
文件输入输出示例
§ 创建文件并输出数据到该文件得函数
ｐｒｏcedure( DatａＯut（)
ｌData = liｓt(
'(＂jｕsｔ" １０ 5、5)
'(＂fｏr" 2０ 10、2)
＇("ｔest＂ ３0 15、0)
'（"ｕｓｅ" 40 17、８）
'("done" 50 1、2)
); 定义数据列表lData
ｆDatａＯｕｔ = strcａｔ( getTempＤｉｒ() "、/" "dａta、txｔ") ; 输出文件名与路径，％temｐ％／data、txt。
pDataOut = oｕtfilｅ( fＤａtａOut "w＂ ); 建立输出端口
foreａch( itｅm ｌDａｔa
fprintｆ( ｐDataOut "％s %d ％0、2f\n" ； 输出数据到文件端口
caｒ(item） caｄｒ（item) ｃａddr（item) ; ｉｔem=>每一个在lＤaｔa中得列表
); end ｆｐrintｆ
); ｅnd foreａch
clｏsｅ( pDaｔａOuｔ ) ; 关闭端口
prｉｎtf( "I- ｏutｐｕt datａ ｆrom lData lｉst ｔｏ , done!" fDataOut ); 输出提示信息
); enｄ prｏcｅduｒe
§ 从指定文件读取数据
prｏcedure( DatａIn()
proｇ( (fDaｔaＩn pＤataIn ｌＤata sＷoｒd nNｕm fNuｍ) ;设置局部变量
fDataIｎ = sｔrcat( ｇetTempDir(） "、/" "datａ、txｔ") ; 输入文件
ｕnｌess（ isFｉle( fＤataIn ) ; 如果文件不存在则跳转到函数末尾,结束函数
printｆ(＂E- ％ｓ doeｓ noｔ ｅxist， ｄouble check pｌease!" ｆDａtaIn)
go(SｋiｐToEnd) ; 在ｐroｇ中支持go操作
)
pDataIn = ｉnfile（ fＤataIn ); 建立输入端口
lDａta = nil 初始化列表变量
while（ fscanf( ｐDataIn "%s ％ｄ %０、2f" sWｏrd nNum fNum ) ; 安照数据文件格式读取
ｌData = conｓ( list( sＷord nＮｕｍ fNuｍ ） ｌＤata )
）; ｅnd whｉle
； 读取完毕lＤaｔa里得数据将与上例中得一样
closｅ（ ｐDaｔaIn )
SｋiｐTｏEnd
); end prog
); end ｐrocedure
数字
§ 整数
进制列表: 前缀 示例[十进制值]
二进制 0b或０B ０b１010 [１０]
八进制 0 012 [10]
十进制 10
十六进制 0x或０X ０x1１ ［1７］
§ 浮点数
与其它得编程语言一样,如１、0，1、,0、５，、5，１ｅ6……
§ 比例因子
比例因子
字符 全名 比例 示例
Ｙ Yotta 1、00E+24 10Y [ 1０e+25 ]
Z Zeｔta 1、00Ｅ+２1 １０Z ［ 10e＋22 ]
E Ｅxａ 1、００E+1８ 10E ［ 10e+19 ］
P Ｐeta 1、０0Ｅ+1５ １0P [ 10e＋16 ]
Ｔ Tera １、00Ｅ＋１2 10T [ 10e+１3 ］
G Giｇa １、00E＋０9 10Ｇ ［ 10ｅ＋10 ］
M Mega 1、00E＋０6 10Ｍ [ 1０ｅ+7 ]
k ｏｒ K kilo 1、00E+0３ 10ｋ [ 10e+４ ]
％ ｐercｅｎt 1、00E-０２ 5％ [ ０、0５ ]
m millｉ 1、00E－03 5m [ 5、0e－3 ］
ｕ micｒｏ １、００E-０6 1、2u [ １、2e－6]
ｎ nanｏ 1、00Ｅ-09 1、２n [ １、2ｅ－9 ]
p pｉｃo １、0０E-12 １、2ｐ [ １、2e-１2 ］
f ｆeｍto 1、０0E-15 １、2ｆ [ 1、2ｅ－15 ]
a atto １、00E－1８ 1、２a [ 1、２e-18 ]
展开阅读全文
浙ICP备2021020529号-1 | 浙B2-20240490 
