怎么这样替换字串

如何这样替换字串？
如何这样替换字串？

有一个memo字段中内容如下：

name="abc"
okokok
name="abcde"
okokok
name="123456789"
okokok
name="xyz"

我需要一个函数把所有name=后的引号中的内容都换成同一个串如"Cnina"
代码怎么写？
------解决方案--------------------------------------------------------
替换法，和 组合法
替换法

Clear 
lcstr = Filetostr("aat.txt")
ns = 1
Do While At('name="',lcstr,ns) != 0
	lcstr = Strtran(lcstr,'"' + Strextract(lcstr,'name="','"',ns) + '"','"Cnina"')
	ns = ns + 1
Enddo
?lcstr

------解决方案--------------------------------------------------------

For lnI=Occurs('name=',备注字段名) To 1 Step -1
	Replace 备注字段名 With Strtran(备注字段名,Strextract(备注字段名,'name="','"',lnI),'Cnina')
Endfor