表A:
准考证号     选项
  1        a,b,bc,d
  2        a,b,c,d
  3        b,c,b,bcd

拆成

表B：
准考证号 选项1 选项2 选项3 选项4
  1       a      b     bc    d
  2       a      b     c     d
  3       b      c     b    bcd

如何实现？

烦请达人指教，此处先行谢过！

a='a,b,bc,d'
d=1
Dimension cstring(4)
cstring=''
For i =1 To Len(a)
    cc=Substr(a,i,1)
    If cc<>','
        cstring(d)=cstring(d)-cc
    Else
        d=d+1
    Endif
Endfor
?cstring(1)
?cstring(2)
?cstring(3)
?cstring(4)

SELECT 准考证号,left(选项,AT(',',选项)-1) as 选项1,STREXTRACT( 选项,",",",",1) as 选项2,STREXTRACT( 选项,",",",",2) as 选项3,RIGHT(选项,LEN(选项)-RAT(',',选项)) as 选项4 from 表A into table 表b


[ 本帖最后由 qjbzjp 于 2010-5-18 22:07 编辑 ]

3楼正解, STREXTRACT()用得很好~

二楼代码通用性非常好

谢谢各位大大！

[ 本帖最后由 lypvlxy 于 2010-5-20 08:52 编辑 ]

SELECT 准考证号,GETWORDNUM(选项,1,[,]) 选项1,GETWORDNUM(选项,2,[,]) 选项2,GETWORDNUM(选项,3,[,]) 选项3,GETWORDNUM(选项,4,[,]) 选项4 FROM 表A