在线求助，急！！！

Question

dim str as string
dim p()as string 
str="CG_TFBH,CG_GXZL,CG_TSDH,CG_WTDH,CG_GXCL,CG_DTZ,,CG_FSW,,CG_X,CG_Y,"
其中连续的两个逗号之间属于空记录
我想用一个通用过程
使得这些用逗号分割的记录能够用一个动态数组表示
如：p(1)="CG_TFBH"
    p(2)="CG_GXZL"
    p(3)="CG_TSDH"
取到连续两个逗号p(i)=""
如此这样，直到把该行的记录都取完

Answer 1

可以：Private Sub Command1_Click()
Dim p() As String
Dim str As String
str = "CG_TFBH,CG_GXZL,CG_TSDH,CG_WTDH,CG_GXCL,CG_DTZ,,CG_FSW,,CG_X,CG_Y,"
p = Split(IIf(InStr(str, ",,") > 0, Split(str, ",,")(0), str), ",")
MsgBox Join(p, ",")
End Sub

Answer 2

试一试：
dim str as string
dim p()as string 
dim k as integer '记录动态数组的下标
k=1
str="CG_TFBH,CG_GXZL,CG_TSDH,CG_WTDH,CG_GXCL,CG_DTZ,,CG_FSW,,CG_X,CG_Y,"do
x=instr(1,str,",")if x=1 then
p(k)=""
else
p(k)=left(str,(x-1))
endifstr=right(str,(len(str)-x)) 
k=k+1loop until len(str)=0

Answer 3

笨方法，把,换成空格，然后写入临时文件，再按input方式打开，读取字符串