有一个字符串，比如"adc,adsf,cce,frtye"这样一个大字符串，生成大字符串的时候，我并不知道每个小字符串有多长，我想实现以下功能 一 能否把以逗号分隔的小字符串分离出来，存入到数据表里面，数据表里面分别有adc adsf cce frtye这几条记录。
二 比如我想删除大字符串里面adsf的小字符串，变成"adc,cce,frtye" ，如何实现。

aa = "adc,adsf,cce,frtye"
* 问题一：
lnCnt = alines(la, aa, ",")
dimension la[1, alen(la)]
lcStr = "a1 c(10)"
for lnj = 2 to lnCnt
    lcStr = lcStr + ", a" + transform(lnj) + " c(10)"
endfor
create cursor test (&lcStr)
insert into test from array la
browse
* 问题二：
aa = strtran(aa, "adsf,", "")
?aa

sdta师傅真是神啊，这些函数我都没见过

sdta师傅，非常感谢您的解答，但是我还有问题三，就是有时还要往里面大字符串添加小字符串，在"adc,adsf,cce,frtye"里添加"yyy", 添加之前，先要判断"yyy"是否在大字符串里面，如果不在，就添加，如果在，就不添加，如何做这个判断呢？

* 问题三：
aa = "adc,adsf,cce,frtye, byyyc"
bb = "yyy"
alines(la, aa, ",")
*防止aa中有类似byyyc情况出现，不能使用$,at()等
if ascan(la,bb)=0
    aa = aa + "," + bb
endif
? aa

inlist(aa,bb)

local xresult[1],xchr
xchr = 'adc,adsf,cce,frtye'
alines(xresult,xchr,2,',')

messagebox(xresult[1])
messagebox(xretult[2])
messagebox(xretult[3])

回帖的内容最好经过验证后再发出

非常感谢sdta师傅的解答，我今天在做别的模块，明天来弄这个，有疑问再来问，今天先结贴，再次感谢。

变量名写错了，多谢指正

local xresult[1],xchr
xchr = 'adc,adsf,cce,frtye'
alines(xresult,xchr,2,',')

messagebox(xresult[1])
messagebox(xresult[2])
messagebox(xresult[3])