现有表文件gem xx.dbf,如何从“购物清单”字段中统计每天购物共用了多少元，并写入统计字段中。请高手赐教，万分感谢！！！

思路：
1、先找“元”出现的次数
2、根据“元”，往左循环截取 1 字符，不是数字，就停止，此时应该能取出金额数字

你这表格设计的比小学生好一点

这样设计表格是灾难性的，一旦用户输入错误的数字，根本无法查找出错原因~

[此贴子已经被作者于2025-10-16 08:27编辑过]

更正：从“购物明细”字段中统计每天购物用了多少元，并写入“合计”字段中

正则

Clear
?RegExpTest("([.0-9_-])+(元)","黄鳝40元牛肉61元鸡蛋11元冷菜75元蔬菜53元肉10.30元")
      
Function RegExpTest(patrn, strng)
regEx = CreateObject("VBScript.RegExp")   &&建立正则表达式对象
regEx.Pattern = patrn                      &&设置模式
regEx.IgnoreCase = .T.                     &&设置是否区分字符大小写
regEx.Global = .T.                         &&设置全局可用性
Matches = regEx.Execute(strng)            &&执行搜索
RetStr=0
For Each Match in Matches               &&遍历匹配集合
  RetStr=RetStr+VAL(Match.Value)
Next
Return RetStr

[此贴子已经被作者于2025-10-15 20:46编辑过]

CLOSE DATABASES ALL
SELECT 0
USE gwmxz
REPLACE ALL 合计 WITH RegExpTest("([.0-9_-])+(元)",购物明细)
      
Function RegExpTest(patrn, strng)
regEx = CreateObject("VBScript.RegExp")   &&建立正则表达式对象
regEx.Pattern = patrn                      &&设置模式
regEx.IgnoreCase = .T.                     &&设置是否区分字符大小写
regEx.Global = .T.                         &&设置全局可用性
Matches = regEx.Execute(strng)            &&执行搜索
RetStr=0
For Each Match in Matches               &&遍历匹配集合
  RetStr=RetStr+VAL(Match.Value)
Next
Return RetStr

谢谢！

DECLARE long sscanf IN msvcr71 long, string, single@, long@
DECLARE long strcpy IN msvcr71 string@, string
购物明细 = "黄鳝40元牛肉61元鸡蛋11元冷菜75元蔬菜53元肉10.30元"
buffer = REPLICATE(0h00,256)
p = strcpy(@buffer, 购物明细)
a = 0.00
n = 0
t = 0
DO WHILE SYS(2600,p,1) != 0h00
    IF sscanf(p,"%f%n",@a,@n) == 1
        ? a
        t = t+a
        p = p+n
    ELSE
        p = p+1
    ENDIF
ENDDO
? t

@吹水佬 谢谢！如何将gwmxz.dbf中“购物明细”统计结果写入“合计”字段中，还请加以指导！谢谢！

[此贴子已经被作者于2025-10-16 00:58编辑过]