一个取小数点后面几位的源码分享

hack_koko

  

子程序名	返回值类型	公开	备 注
取小数点后面位数	整数型
参数名	类 型	参考	可空	数组	备 注
数	文本型				输入一个文本型数值

变量名	类 型	静态	数组	备 注
长度	整数型

判断 (寻找文本 (数, “.”, , 假) ＝ -1)
返回 (0)
长度 ＝ 取文本长度 (文本_取出中间文本 (数 ＋ “#”, “.”, “#”, ))
返回 (长度)

.版本 2<br /> <br /> .子程序 取小数点后面位数, 整数型<br /> .参数 数, 文本型, , 输入一个文本型数值<br /> .局部变量 长度, 整数型<br /> <br /> .判断开始 (寻找文本 (数, “.”, , 假) ＝ -1)<br />     返回 (0)<br /> .默认<br />     长度 ＝ 取文本长度 (文本_取出中间文本 (数 ＋ “#”, “.”, “#”, ))<br />     返回 (长度)

nnqtdf

条条道路通罗马

by百伯

张升

感谢您对论坛的支持！

lxn2wyf

大神，请收下我的膝盖，膜拜你，真的很厉害！

APPLEUFO

  

子程序名	返回值类型	公开	备 注
数值格式化_文本数值取小数点后位数	文本型
参数名	类 型	参考	可空	数组	备 注
参数_数值	文本型
参数_位数	整数型

变量名	类 型	静态	数组	备 注
ls	整数型
局变_子文本	文本型		0
局变_小数点后	文本型

ls ＝ 寻找文本 (参数_数值, “.”, , 假)
如果真 (ls ≤ 0)  ' =-1以后的不存在  =0 返回
返回 (参数_数值)

如果 (参数_位数 ≤ 0)
局变_小数点后 ＝ 文本模块_取文本中间_位置 (参数_数值, 1, ls － 1)  ' 不包括小数点本身


局变_小数点后 ＝ 文本模块_取文本中间_位置 (参数_数值, 1, ls ＋ 参数_位数)

返回 (局变_小数点后)

子程序名	返回值类型	公开	备 注
文本模块_取文本中间_位置	文本型		取出符号位置内的文本（包含符号本身）。参数开始位置：1为首位置!!，2为第2个位置，如此类推。 注意：需注意,如果是双字符，第二个位置需要加1,才能取得第二个的文本尾部位置.需注意单字符还是双字符
参数名	类 型	参考	可空	数组	备 注
参数文本	文本型
参数开始位置	整数型				1为首位置，2为第2个位置，如此类推。
参数结束位置	整数型

变量名	类 型	静态	数组	备 注
局变结果文本	文本型

如果真 (参数开始位置 ＝ -1 或 参数结束位置 ＝ -1)
' 调试输出 (“模块_取文本中间_根据位置”, 参数文本, 参数开始位置, 参数结束位置)
返回 (“”)

局变结果文本 ＝ 取文本中间 (参数文本, 参数开始位置, 参数结束位置 ��� (参数开始位置 － 1))  ' 开始位置也算一位
返回 (局变结果文本)
' 总觉得  取文本中间（）  第三个参数有些变扭 ，欲取出字符的数目
' 若是不知道文本字符数目的话，还得倒过头来算一遍字符数目，绕弯～～、
' 刚好写某软要取引号中的文本，想到了个办法
' 和原来的取文本中间相比，整个的代码简练多了 ，下面是与取文本中间的对比
' 例如  ’你好"旧时光"八月长安     ' 取出引号中的内容
' 模块_取文本中间_根据位置（文本，引号开始位置+1，引号结束位置-1）
' 例程，单个字符与双字符很不一样，需注意
' 局变_文本 ＝ “★☆插件  AddMoonProject.dll 加载成功☆★”
' 局变_位置1 ＝ 寻找文本 (局变_文本, “☆”, , 假)
' 局变_位置2 ＝ 寻找文本 (局变_文本, “☆”, 局变_位置1 ＋ 1, 假)
' 文本模块_取文本中间_位置(局变_文本,局变_位置1,局变_位置2)

.版本 2<br /> <br /> .子程序 数值格式化_文本数值取小数点后位数, 文本型, 公开<br /> .参数 参数_数值, 文本型<br /> .参数 参数_位数, 整数型<br /> .局部变量 ls, 整数型<br /> .局部变量 局变_子文本, 文本型, , "0"<br /> .局部变量 局变_小数点后, 文本型<br /> <br /> ls ＝ 寻找文本 (参数_数值, “.”, , 假)<br /> <br /> .如果真 (ls ≤ 0)  ' =-1以后的不存在  =0 返回<br />     返回 (参数_数值)<br /> .如果真结束<br /> <br /> <br /> .如果 (参数_位数 ≤ 0)<br /> <br />     局变_小数点后 ＝ 文本模块_取文本中间_位置 (参数_数值, 1, ls － 1)  ' 不包括小数点本身<br /> .否则<br /> <br />     局变_小数点后 ＝ 文本模块_取文本中间_位置 (参数_数值, 1, ls ＋ 参数_位数)<br /> <br /> .如果结束<br /> <br /> <br /> 返回 (局变_小数点后)<br /> <br /> .版本 2<br /> <br /> .子程序 文本模块_取文本中间_位置, 文本型, 公开, 取出符号位置内的文本（包含符号本身）。参数开始位置：1为首位置!!，2为第2个位置，如此类推。 注意：需注意,如果是双字符，第二个位置需要加1,才能取得第二个的文本尾部位置.需注意单字符还是双字符<br /> .参数 参数文本, 文本型<br /> .参数 参数开始位置, 整数型, , 1为首位置，2为第2个位置，如此类推。<br /> .参数 参数结束位置, 整数型<br /> .局部变量 局变结果文本, 文本型<br /> <br /> .如果真 (参数开始位置 ＝ -1 或 参数结束位置 ＝ -1)<br />     ' 调试输出 (“模块_取文本中间_根据位置”, 参数文本, 参数开始位置, 参数结束位置)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> <br /> 局变结果文本 ＝ 取文本中间 (参数文本, 参数开始位置, 参数结束位置 － (参数开始位置 － 1))  ' 开始位置也算一位<br /> 返回 (局变结果文本)<br /> <br /> ' 总觉得  取文本中间（）  第三个参数有些变扭 ，欲取出字符的数目<br /> ' 若是不知道文本字符数目的话，还得倒过头来算一遍字符数目，绕弯～～、<br /> ' 刚好写某软要取引号中的文本，想到了个办法<br /> ' 和原来的取文本中间相比，整个的代码简练多了 ，下面是与取文本中间的对比<br /> ' 例如  ’你好"旧时光"八月长安     ' 取出引号中的内容<br /> ' 模块_取文本中间_根据位置（文本，引号开始位置+1，引号结束位置-1）<br /> <br /> ' 例程，单个字符与双字符很不一样，需注意<br /> ' 局变_文本 ＝ “★☆插件  AddMoonProject.dll 加载成功☆★”<br /> ' 局变_位置1 ＝ 寻找文本 (局变_文本, “☆”, , 假)<br /> ' 局变_位置2 ＝ 寻找文本 (局变_文本, “☆”, 局变_位置1 ＋ 1, 假)<br /> ' 文本模块_取文本中间_位置(局变_文本,局变_位置1,局变_位置2)

please

感谢分享，支持开源！！！

zhyl8888

Hoibben

hack_koko 发表于 2025-7-25 10:54
大佬，我就是简单弄下，我没看懂你说的啥 啊。。。但是肯定是我的错。

大佬不敢当啊 我看你是2010注册的老人了（注册时间都比我早几年）看到才顺便回帖说一下 没别的意思~

简单点说 比如随便打个参数为“.4.484510484169874104848484894894151564987981561548484510484169874104848484894894151564987981561548.159753879815615484845104841698741048484848948941515649846.2801” 结果就有问题了吧 目测效率也不太行啊 随便循环千八百万次估计得到猴年马月才能出结果吧~

hack_koko

Hoibben 发表于 2025-7-23 15:30
这玩意儿不严谨吧 如果是数字的文本内部也没啥判断 如果是其他字符也包含则无所谓~
而且 既然是取后面的不 ...

大佬，我就是简单弄下，我没看懂你说的啥 啊。。。但是肯定是我的错。