integer num; for i=0 To str.len-1 if mid(str,i,i+1)="'" then num=num+1 next i
dim s as string s="sfdf,ds,ds,df,df,dfe,,fe"dim i as integer dim ii as integer dim dd as integerdim k as integerfor i=0 to len(s) ii=InStr(ii,s, ",") if ii<>dd then dd=ii k=k+1 end if nextmsgbox k
for i=0 To str.len-1
if mid(str,i,i+1)="'" then
num=num+1
next i
s="sfdf,ds,ds,df,df,dfe,,fe"dim i as integer
dim ii as integer
dim dd as integerdim k as integerfor i=0 to len(s)
ii=InStr(ii,s, ",")
if ii<>dd then
dd=ii
k=k+1
end if
nextmsgbox k