2.8.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

$$字符串变量和数字数组变量的声明。
string/image(20)
number/num(3)

$$字符串变量和数字数组变量的赋值。
data/image,'#@@@@@.@@@@'
data/num,10000,53.86,-485.123

$$新建目录c:\grip，并打开此目录；若此目录已存在，则转向语句标号err1:。
l10:
crdir/'c:\grip',iferr,err1:
dopen/'c:\grip'

$$在目录c:\grip下新建文本文件file1.dat，按一定格式写入数据并保存文件；
$$若此文本文件已存在，则转向语句标号err2:。
l20:
create/txt,1,'c:\grip\file1.dat',iferr,err2:
write/1,using,image,num
write/1,using,image,num
file/txt,1,'c:\grip\file1.dat'

$$新建目录d:\grip，并打开此目录；若此目录已存在，则转向语句标号err3:。
l30:
crdir/'d:\grip',iferr,err3:
dopen/'d:\grip'

$$将c:\grip文件夹下file1.dat文件复制到d:\grip文件夹，文件名为file2.dat；
$$若file2.dat已存在，则转向语句标号err3:。
l40:
fcopy/'c:\grip\file1.dat','d:\grip\file2.dat',iferr,err4:

$$新建目录e:\grip，并打开此目录；若此目录已存在，则转向语句标号err5:。
l50:
crdir/'e:\grip',iferr,err5:
dopen/'e:\grip'

$$在目录e:\grip下新建文本文件file3.dat并保存该文件；若此文件已存在，
$$则转向语句err6:。
l60:
create/txt,1,'e:\grip\file3.dat',iferr,err6:
file/txt,1,'e:\grip\file3.dat'

$$同时打开文件:\grip\file1.dat'和e:\grip\file3.dat，并将文件c:\grip\file1.dat
$$的指针置于文件的开始。
l70:
fetch/txt,1,'c:\grip\file1.dat' 
reset/1
fetch/txt,2,'e:\grip\file3.dat'

$$从文件c:\grip\file1.dat中读取数据，并写入数据到文件e:\grip\file3.dat；
$$若数据读取完毕，则转向语句标号err7:。
l80:
read/1,using,image,ifend,err7:,num
write/2,using,image,num
jump/l80:

$$保存文件e:\grip\file3.dat，并关闭文件c:\grip\file1.dat和e:\grip\file3.dat。
l90:
file/txt,2,'e:\grip\file3.dat'
fterm/txt,1
fterm/txt,2

$$程序结束
trm:
halt

$$若目录c:\grip存在，则打开此目录，同时转向语句标号l20:。
err1:
dopen/'c:\grip'
jump/l20:

$$若目录c:\grip下存在文件file1.dat，则删除此文件夹；然后新建文件file1.dat，
$$并按一定格式写入数据并保存文件，同时转向语句标号l30:。
err2:
fdel/'c:\grip\file1.dat'
create/txt,1,'c:\grip\file1.dat'
write/1,using,image,num
write/1,using,image,num
file/txt,1,'c:\grip\file1.dat'
jump/l30:

$$若目录d:\grip存在，则打开此目录，同时转向语句标号l40:。
err3:
dopen/'d:\grip'
jump/l40:

$$若目录d:\grip下文件file2.dat存在，则删除此文件，同时将目录c:\grip下文件
$$file1.dat复制到目录d:\grip下，文件名为file2.dat，并转向语句标号l50:。
err4:
fdel/'d:\grip\file2.dat'
fcopy/'c:\grip\file1.dat','d:\grip\file2.dat'
jump/l50:

$$若目录e:\grip存在，则打开此目录，同时转向语句标号l60:。
err5:
dopen/'e:\grip'
jump/l60:

$$若目录e:\grip下文件file3.dat存在，则删除此文件，同时在此目录下新建文件
$$file3.dat，并转向语句标号l70:。
err6:
fdel/'e:\grip\file3.dat'
create/txt,1,'e:\grip\file3.dat',iferr,err6:
file/txt,1,'e:\grip\file3.dat'
jump/l70:

$$若文件执行到末尾，则转向语句标号l90:。
err7:
jump/l90: