程序代码：

x="AWJ语文|0|AZJ机械制图|59|AWJ英语|60|AWJ政治|0|BWJ体育|0|BWJ音乐|0|BSX电子技术|0|BWJ物理|0|BWJ艺术体操|0|"
把上述字符串分解成下面的格式
y(1,1)=AWJ语文
y(1,2)=0
y(2,1)=AZJ机械制图
y(2,2)=59
y(3,1)=AWJ英语
y(3,2)=60
...................
*-----------------------------------------------------------------------------------------------------------
x="AWJ语文|0|AZJ机械制图|59|AWJ英语|60|AWJ政治|0|BWJ体育|0|BWJ音乐|0|BSX电子技术|0|BWJ物理|0|BWJ艺术体操|0|"
x1=ALINES(AX,X,"|")
DIMENSION AX(X1/2,2)
LIST MEMORY LIKE AX
*--- 上述方法在VFP9.0中实现