求助:一行如何结构不变情况拆分多行?
表的情况是文件名 列1 列2
1 A1;A2 B1;B2
2 A3 B3
3 A4;A5;A6 D4;D5;D6
4 A7 D7
......
列1和列2的带分号数是一样的
现在要拆成
文件名 列1 列2
1 A1 B1
1 A2 B2
2 A3 B3
3 A4 D4
3 A5 D5
3 A6 D6
4 A7 D7
可以通过SCAN原始表的每一条记录,然后一条条添加到新表么?刚接触循环语句不太熟悉,请大家多多指教
CREATE CURSOR S (文件名 N(2),列1 C(20),列2 C(20)) CREATE CURSOR T (文件名 N(2),列1 C(20),列2 C(20)) INSERT INTO T VALUES (1,[A1;A2],[B1;B2]) INSERT INTO T VALUES (2,[A3],[B3]) INSERT INTO T VALUES (3,[A4;A5;A6],[B4;B5;B6]) INSERT INTO T VALUES (4,[A7],[B7]) SCAN ALINES(BB,CHRTRAN(T.列2,[;],CHR(13))) FOR I=1 TO ALINES(AA,CHRTRAN(T.列1,[;],CHR(13))) INSERT INTO S VALUES(T.文件名,AA(I),BB(I)) ENDFOR ENDSCAN SELECT S BROWSE