您所在位置：主题：臭石头雪球请进！我还是没有解决！所以我打算先简化问题！
nigel332
[专家分：40] 发布于 2012-11-20 22:42:00
我之前曾经有过一个关于数据读取的问题，您给了我一个代码（http://bbs.pfan.cn/post-395159.html），通用性很强，非常感谢！
现在我想让代码更加通用一些。
代码将读取将下列数据
$GLOBLE
NAME = ‘cylinder‘，
$END
$BCINP
NBC= 6,
IBTYP( 1)= 5, IBDIR( 1)= 2,
JBCS( 1)= 1, JBCE( 1)= 31
KBCS( 1)= 1, KBCE( 1)= 1
LBCS( 1)= 1, LBCE( 1)= 3
IBTYP( 2)= 5, IBDIR( 2)= 2,
JBCS( 2)= 31, JBCE( 2)= 61
KBCS( 2)= 1, KBCE( 2)= 1
LBCS( 2)= 1, LBCE( 2)= 3
IBTYP( 3)= 31, IBDIR( 3)= -3,
JBCS( 3)= 1, JBCE( 3)= 31
KBCS( 3)= 1, KBCE( 3)= 31
LBCS( 3)= 3, LBCE( 3)= 3
IBTYP( 4)= 31, IBDIR( 4)= -3,
JBCS( 4)= 31, JBCE( 4)= 61
KBCS( 4)= 1, KBCE( 4)= 31
LBCS( 4)= 3, LBCE( 4)= 3
IBTYP( 5)= 5, IBDIR( 5)= -2,
JBCS( 5)= 1, JBCE( 5)= 31
KBCS( 5)= 31, KBCE( 5)= 31
LBCS( 5)= 1, LBCE( 5)= 3
IBTYP( 6)= 5, IBDIR( 6)= -2,
JBCS( 6)= 31, JBCE( 6)= 61
KBCS( 6)= 31, KBCE( 6)= 31
LBCS( 6)= 1, LBCE( 6)= 3
$END
$GLOBLE
NAME = ‘box‘，
$END
$BCINP
NBC= 5,
IBTYP( 1)= 40, IBDIR( 1)= -1,
JBCS( 1)= 51, JBCE( 1)= 51
KBCS( 1)= 1, KBCE( 1)= 51
LBCS( 1)= 1, LBCE( 1)= 3
IBTYP( 2)= 31, IBDIR( 2)= -3,
JBCS( 2)= 1, JBCE( 2)= 51
KBCS( 2)= 1, KBCE( 2)= 51
LBCS( 2)= 3, LBCE( 2)= 3
IBTYP( 3)= 40, IBDIR( 3)= 2,
JBCS( 3)= 1, JBCE( 3)= 51
KBCS( 3)= 1, KBCE( 3)= 1
LBCS( 3)= 1, LBCE( 3)= 3
IBTYP( 4)= 40, IBDIR( 4)= -2,
JBCS( 4)= 1, JBCE( 4)= 51
KBCS( 4)= 51, KBCE( 4)= 51
LBCS( 4)= 1, LBCE( 4)= 3
IBTYP( 5)= 40, IBDIR( 5)= 1,
JBCS( 5)= 1, JBCE( 5)= 1
KBCS( 5)= 1, KBCE( 5)= 51
LBCS( 5)= 1, LBCE( 5)= 3
$END
然后写成：
$BCINP
ISPARTOF = 'cylinder',
IBTYP = 5, 5, 31, 31, 5, 5,
IBDIR = 2, 2, -3, -3, -2, -2,
JBCS = 1, 31, 1, 31, 1, 31,
JBCE = 31, 61, 31, 61, 31, 61,
KBCS = 1, 1, 1, 1, 31, 31,
KBCE = 1, 1, 31, 31, 31, 31,
LBCS = 1, 1, 3, 3, 1, 1,
LBCE = 3, 3, 3, 3, 3, 3,
$END
$BCINP
ISPARTOF = 'box',
IBTYP = 40, 31, 40, 40, 40,
IBDIR = -1, -3, 2, -2, 1,
JBCS = 51, 1, 1, 1, 1,
JBCE = 51, 51, 51, 51, 1,
KBCS = 1, 1, 1, 51, 1,
KBCE = 51, 51, 1, 51, 51,
LBCS = 1, 3, 1, 1, 1,
LBCE = 3, 3, 3, 3, 3,
$END
怎么实现？因为数据可能有很多块，所以想写一个更通用的代码！
