在线求助，急！！！

zhaogang110 2003-03-30 08:36:00

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)=""
如此这样，直到把该行的记录都取完

...全文

40 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

用户　昵称 2003-03-31

打赏
举报

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

lsftest 2003-03-30

打赏
举报

试一试：
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))
endif

str=right(str,(len(str)-x))
k=k+1

loop until len(str)=0

northwolves 2003-03-30

打赏
举报

可以：

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

zhuyuantan 2003-03-30