去数值尾部的0，如果数值字段多记录多，转json很有用
? ALLTRIM("12.0", "0",".")
? RTRIM("12.100", "0")
? TRIM(TRANSFORM(-012.00), "0")

2万记录5字段测试：TRIM(TRANSFORM(-012.00), "0")
自定义函数 0.328 秒
TRIM命令   0.064 秒
速度大约提高 5 倍

有这么用的吗？1200 全变 12 了
? ALLTRIM("1200.00", "0",".")
? ALLTRIM("1200", "0",".")

这么用确实有BUG

这样可以：
a = "1200"
b = "1200.00"

? LTRIM(RTRIM(RTRIM(STR(VAL(a),20,4), '0'), '.'))
? LTRIM(RTRIM(RTRIM(STR(VAL(b),20,4), '0'), '.'))

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

主要原因是不能用“TRANSFORM”，必须要保留小数点“定位”

?TRIM(ALLTRIM(TRANSFORM(1200.00,"99999999.99"),"0"," "),".")
?TRIM(ALLTRIM(TRANSFORM(1200,"99999999.99"),"0"," "),".")

字符型数值、数值型数值，这样就完美了

[此贴子已经被作者于2025-10-22 10:48编辑过]

完美吗？试试
?TRIM(ALLTRIM(TRANSFORM(0,"99999999.99"),"0"," "),".")

印象中，我以前不得不写的函数是：

LTrim0x00()
RTrim0x00()
AllTrim0x00()

用来Trim()干净那些C返回的以0x00结尾的字符串。
事关，C对待字符串很随意，直接加一个0x00，就粗暴截断，根本不会管后边有无垃圾字符。
"Hello World!" + 0h00 + "巴拉巴拉……"
VFP是无法直接Trim()干净的。

[此贴子已经被作者于2025-10-22 11:31编辑过]

你这个测试的非常好

a = "0"
b = "1200"
c = "1200.00"

? LTRIM(RTRIM(RTRIM(STR(VAL(a),20,4), '0'), '.'))
? LTRIM(RTRIM(RTRIM(STR(VAL(b),20,4), '0'), '.'))
? LTRIM(RTRIM(RTRIM(STR(VAL(c),20,4), '0'), '.'))

去掉尾部的0主要用于字符型显示，转成json字符串：还是要保留小数点定位
1、dbf中的数值字段，去掉尾部0转成字符型，用：LTRIM(RTRIM(RTRIM(STR(jinjia,20,4), '0'), '.'))
2、字符型字段或字符串：去掉尾部0转成字符型，用：LTRIM(RTRIM(RTRIM(STR(VAL(a),20,4), '0'), '.'))

用这种方法只能只抽
? TRIM(TRIM(LTRIM(TRANSFORM(0,"99999999.99")," "),"0"),".")