第9课：skill中对文件的操作方法详解——简单SKILL小功能的实现

黑夜里的大熊猫 · 发表于 2019-1-21 10:12:32

浩浩浩浩奥号好啊后好啊后好啊后

WWZZSS · 发表于 2019-1-23 17:05:01

相见恨晚的帖子，不知道还有没有高级篇。
交作业

; Change protel to allegro
; Author WWZZSS
; Version 1.00
; Date 2019/01/23
axlCmdRegister("p2a" 'change_p2A)
filePath = axlDMFileBrowse(nil nil ?optFilters "Protel Net File(*.net)|*.net|") ;通过axlDMFileBrowse手动选择网表文件路径，将选择的路径传递给变量filePath
protelNet = infile(filePath)
allegroNet = outfile("./p2a.txt")
procedure( change_p2A() ;@optional str
namelist = list() ;定义一个空的列表namelist
m = 0 o = 0 ;定义两个初始值为0的计数变量
while( gets(str protelNet) ;while循环按行读取内容包括换行符\n
str = car(parseString(str)) ; parseString将str按\n分成list，car取list中第一个值并赋予str
namelist = cons(str namelist) ; 将每个读取的str放进空的namelist中，注意此时的namelist是反的[]
when( str == "]" ;当读取到]时即是第一个protel里[]中的内容，此时格式为 ] 100nF C0603 C1 [ printf("%L" namelist)确认
m = m +1 ; []中为packages内容应打印 $PACKAGES 但每次遇见]都会打印所以计数，只在第一次出现时打印可用m++替代
when( m == 1 ; 条件判断，只在第一次遇见]时打印$PACKAGES 暂未想出好的替代方法
fprintf(allegroNet "$PACKAGES\n") ;打印 $PACKAGES
) ; 此条件判断独立于下面内容
namelist1 = namelist ;将列表namelist 赋予namelist1
namelist = list() ;清空列表namelist
namelist1 = remove("[" namelist1) ;移除[
namelist1 = remove("]" namelist1) ;移除]
namelist1 = reverse(namelist1) ;反转列表
SymVale = nth(2 namelist1) ;取
SymPkg = nth(1 namelist1)　;值　
SymRef = nth(0 namelist1)
fprintf(allegroNet "'%s' ! '%s' ! '%s'; %s\n" SymPkg SymPkg SymVale SymRef );格式比较固定用此方法输出
namelist1 = list();清空列表namelist1
) ;end when
when( str == ")" ;()内容为net，当取值到)时开始处理
o = o +1
when( o == 1
fprintf(allegroNet "$NETS")
) ;以上同打印$PACKAGES
namelist2 = namelist ;此
namelist = list() ;处
namelist2 = remove("(" namelist2) ;同
namelist2 = remove(")" namelist2) ;上一when判断，注意此时列表为反但是并没有reverse
together = list() ;定义一个空的列表together
foreach( i namelist2
apartlist = parseString(i "-") ; parseString将namelist2中的数按-分开为list，如C1-1变为("C1" "1") 并赋值给apartlist
individual = buildString(apartlist ".") ;buildString将apartlist中间加"."整合成字符串C1.1 ，遍历整个namelist2
together = cons(individual together);将字符串放入together列表中，此时上面没有反转的列表刚好反转过来
);此foreach循环目地是将"-"替换为"."
when( length(together) < 6 ;NETs内容的格式输出，小于6(包括net名)个
fprintf(allegroNet "\n'%s'; " car(together));输出第一个net名,注意\n的使用
together = remove(car(together) together);去除net名，便于下面循环，此处可用 together = cdr(together) 代替
foreach( i together
fprintf(allegroNet " %s" i)
)
) ;循环输出net数小于5个时的内容
when( length(together) >= 6 ;NETs内容的格式输出，大于等于6(包括net名)个
fprintf(allegroNet "\n'%s'; " car(together)); 输出net名
together = remove(car(together) together) ;此处可用 together = cdr(together) 代替
for( j 1 5 ;NETS等于5个时循环
fprintf(allegroNet " %s" car(together))
together = remove(car(together) together);每循环一次则消除一个输出的net，此处可用 together = cdr(together) 代替
)
fprintf(allegroNet ",\n\t ");等于5个时循环的输出格式
num = 0 ;定义一个初始值为0的计数变量
foreach( k together ;将together剩下的用foreach循环输出
fprintf(allegroNet " %s" k)
num = num + 1 ; 可用num++替代
when( num == 5 ; 当存在第五个元素时
fprintf(allegroNet ",\n\t ") ;输出格式
num = 0 ; 清空计数器，继续计数查看剩下内容并决定输出格式
)
)
)
;上面两个when的判断< 6, >=6可以用if语句替代
together = list();清空together
);end when
);end while
fprintf(allegroNet "\n$END\n")
close(protelNet)
close(allegroNet)
); end procedure

复制代码

谢谢罗老师！

ouyangping1991 · 发表于 2019-1-25 15:39:01

上一课已学，加油加油

老伙计 · 发表于 2019-2-1 16:14:23

有难度啊

eagle31 · 发表于 2019-2-11 13:32:11

謝謝

Yannie · 发表于 2019-2-12 14:40:23

学习一下支持罗老师！@！！！

charleshu · 发表于 2019-2-13 06:17:33

看一看多谢

MISSMISSJIANG · 发表于 2019-2-16 12:26:17

谢谢

HenryYan · 发表于 2019-2-19 21:13:00

学习

6771877@qq.com · 发表于 2019-2-25 09:09:14

学习学习

帐号		自动登录	找回密码
密码			立即注册

[初级篇] 第9课：skill中对文件的操作方法详解——简单SKILL小功能的实现

本帖子中包含更多资源