谁能像这样给文件命名？

不够再添

*DIM,STRESS,ARRAY,12
.......
.......
来一提结果的循环：
*GET,STRESS(i),node,i,s,x
.......
.......
*cfopen,china,txt,
*vwrite,STRESS(1)
(5X,f6.4)

运行一下，就可以在工作路径下生成一个china.txt的文件
文件中是一列12行的数

我很喜欢用*cfopen、*vwrite来提结果
以上是题外话。

现有一个比较急切的问题：我想用*cfopen开辟一系列的txt,文件名是有规律的：
china1.txt
china2.txt
china3.txt
china4.txt
china5.txt
china6.txt
......
china100.txt
这样的文件名怎么用一个循环取得？
我想这样取文件名的原因是我想用一个循环来提取同一类结果：

*DIM,ABC,CHAR,100
......
.....
......

*do,i,1,100,1
*cfopen,ABC(i),txt
*vwrite.......
(5X,f6.4)
*ENDDO
然后，我的工作路径下就会产生：
china1.txt
china2.txt
china3.txt
china4.txt
china5.txt
china6.txt
......
china100.txt

啰嗦了半天，就是想请教高手写个循环把china“i”依次赋给ABC(i)。
当然，要是能生成：
china001.txt
china002.txt
china003.txt
china004.txt
china005.txt
china006.txt
......
china012.txt
china013.txt
......
china099.txt
china100.txt
那我就更求之不得了。谢谢大家帮帮忙！老夫我N年没写这样的语句了。

[ 本帖最后由 不够再添 于 2008-11-17 20:52 编辑 ]

iamperisher

是这个吗？
*do,i,1,20
*cfopen,china%i%,txt
*vwrite,i
(f10.1)
*cfclos
*enddo

不够再添

非常感谢谢网友iamperisher！你让我领略了%i%的巨大威力！
不过，我还是想走走
*DIM,ABC,CHAR,100这条道路
我觉得这样更通用一些。希望仁兄指点指点。

iamperisher

可以啊，不过是多些手续而已，例如：
*dim,abc,char,120
*do,i,1,120
str=chrval(i)
nloc=strleng(str)
*if,nloc,eq,1,then
strna=strcat('00',str)
*else if,nloc,eq,2,then
strna=strcat('0',str)
*else,if,nloc,eq,3,then
strna=str
*endif
strna=strcat('china',strna)
abc(i)=strna
*cfopen,abc(i),txt
*vwrite,i
(f10.1)
*cfclos
*enddo

不够再添

网友iamperisher至少是高级程序员。五分钟就把问题解决了。
谢谢！

[ 本帖最后由 不够再添 于 2008-11-17 22:05 编辑 ]