如何将一个字段分开几个字段?
字段的内容是
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自带的帮助文件中查找到,那个函数不明白就查一下帮助文件即可。