grip 文件操作

文件操作

================================================================

ifthen/&ACTPRT==1
  messg/'梅雷提示！请先打开一个部件!'
  jump/end:
        endif
end:
halt

================================================================
运行外部文件 如 *.exe、*.dll、*.bat、网址

string / str(132)
str='f:\everbox\egrip\app\boxsize.exe'
xspawn / str,iferr,end:
end:
halt

================================================================

STRING/namea(132),nameb(132)

namea=&pspec  $$(当前文件的规定名）   完整路径
nameb=&pname  $$(当前部件名）   仅部件名，不含路径。
messg/namea
messg/nameb

end:
halt

================================================================

创建目录
crdir/'filespec'[,iferr,label:]

复制文件
fcopy/'source filespec','destination filespec'[,iferr,label:]

================================================================

fdel/'c:\test.txt',iferr,ddfc: $$删除文件
ddfc:

================================================================
$$ 读文件
fetch/txt,1,'c:\test.txt'[,iferr,ddfc:]
reset/1
read/1,str1  $$ 读出第一行数据
fterm/txt,1
halt

================================================================

$$ 新建文件写入
create/txt,1,'c:\test.txt'[,iferr,ddfc:]
write/1,'pi'  $$ 写入字符串
write/1,3.14  $$ 写入数值
file/txt,1    $$ 保存文件
fterm/txt,1   $$ 关闭文件

================================================================

$$ 打开文件写入
fetch/txt,1,'c:\test.txt'[,iferr,ddfc:] $$ 打开一个文本文件
reset/1                   $$ 写入到第一行  
write/1,'2003-9-4'        $$ 写入数据
append/1                  $$ 写入到最后一行
write/1,1.414             $$ 写入数据
file/txt,1
fterm/txt,1

================================================================

$$读出第 n 行数据
fetch/txt,1,'c:\test.txt'[,iferr,ddfc:]
reset/1
read/1,str1  $$ 读出第一行数据
read/1,linno,100*10,a $$读出第 100 行数据(因为：数字/10＝第几行)
fterm/txt,1
halt


================================================================
gripsw / declrv
number / mn,j,obj_yn(900)
string / obj_yh(2,900,80),ini(132)

ini='C:\GRS-GRX\ZF-BOM\ZF-BOM-WL.txt'

$$读出第 n 行数据  以逗号隔开  每行分3断
$$文件内容
$$24
$$1,RAN,冲床上台面
$$2,U1,上托板
$$3,U2,上垫块/上垫脚
$$4,UP,上模座
$$5,UB,上垫板
$$6,UB_P,上垫块入子
$$7,PH,上夹块

$$读出内容
$$1
$$RAN
$$冲床上台面
$$依次读出

fetch/txt,1,ini,iferr,loope:
reset/1
read/1,mn  $$ 读出第一行数据
do/loopj:,j,2,mn+1
read/1,linno,j*10,obj_yn(j),obj_yh(1,j),obj_yh(2,j)  $$数字/10＝第几行
print/istr(obj_yn(j))
print/obj_yh(1,j)
print/obj_yh(2,j)
print/'____________'
loopj:
fterm/txt,1
loope:
halt

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/