课表转换需求如下：

——————
原课表，如下：

楼主，有点赖，你把你的问题详细的描述出来。转换规则。
这样别人帮你也方便很多。

现有一个数万条的课表库，如下图所示：
   
这里的“时间地点”字段内容繁琐，不便检索查看。
需按照以下流程进行结构转换：
步骤1：将上图中的多时间段的任务记录，按“时间地点”中“,”拆分成多条。如下图所示：
   
步骤2：再把拆分后的“时间地点”分列。如下图所示：
   
步骤3：最后导出成新的DBF表，命名为“转换后课表.DBF”。

很容易啊，VFP有字符拆分的函数。然后就是循环嵌套就能搞定了。算法步骤就是你所列的。

我开始初学，确有困难，还请帮忙！

* VFP9代码

SELECT *,SPACE(20) 教室,SPACE(20) 周数,SPACE(10) 星期,SPACE(10) 节次 FROM 原始课表结构 WHERE .f. INTO CURSOR 转换后课表 READWRITE 
* 如果想保存为自由表，将上面的代码改为如下代码
*SELECT *,SPACE(20) 教室,SPACE(20) 周数,SPACE(10) 节次 FROM 原始课表结构 WHERE .f. INTO DBF 转换后课表
SELECT 原始课表结构
SCAN
    LOCAL astru[12]
    SCATTER TO astru
    *LIST MEMORY LIKE astru
    nrow1=ALINES(asj,astru[8],",")
    FOR i=1 TO nrow1
        =acopy(asj,astru,1,1,8)
        nrow2=ALINES(afd,asj[i]," ")
        =acopy(afd,astru,1,4,9)
        INSERT INTO 转换后课表 FROM ARRAY astru
    ENDFOR 
ENDSCAN
SELECT 转换后课表
BROWSE 

[此贴子已经被作者于2017-2-22 13:32编辑过]

拆分出错：现象是拆分的“时间地点”是完全一样的？
这与后面分列数据不对应！

数据库没有设计的合理或规范

=acopy(asj,astru,1,1,8)
改为
 =acopy(asj,astru,I,1,8)

非常感谢！那如果在导出数据表前，按照主讲教师、任务号、周数、星期、节次进行排序呢？