怎么将一个字段分开几个字段

如何将一个字段分开几个字段？
字段的内容是  
key text 
1 1001现金_借
2 1002银行存款_借
3 100201农行_借
如何变为
key 科目代码 科目名称 借或贷
1 1001 现金 _借
2 1002 银行存款 _借
3 100201 农行 _借

如何实现？

------解决方案--------------------
Select *,Space(20) 科目代码,Space(20) 科目名称,Space(20) 借或贷 Into Table 结果表 From 原表
读取原表将在原表基本上再加3个字段，每个字段都是字符型，长度为20。


Update 结果表 Set 科目代码=Chrtranc(Text,Chrtran(Text,'0123456789',''),''),借或贷=Substr(Text,At('_',Text)),科目名称=Chrtranc(Text,科目代码+借或贷,'')
科目代码=Chrtranc(Text,Chrtran(Text,'0123456789',''),'')
将text字段中的数字替换掉，得到除了数字之外的字符，再将text字段中的数字之外的字符替换掉，得到你要的数字。

借或贷=Substr(Text,At('_',Text))
读取text字段从字符'_'开始，读到字符尾。

科目名称=Chrtranc(Text,科目代码+借或贷,'')
将text字段中的数字（科目代码）和'_'之后的字符（借或贷）替换掉，得到中间的科目名称



Alter Table 结果表 Drop Column Text
删除结果表中的 text 字段


这些你都可以在VFP自带的帮助文件中查找到，那个函数不明白就查一下帮助文件即可。