【思路学习向】将数值转为科学计数法

StarAdmire

【思路学习向】将数值转为科学计数法
（PS：已封入懒人模块）


啰嗦：
本贴全贴可能就只提到了一个子程序————数值_科学计数法：将一串数值转为科学计数法



那我为什么要单发贴呢？
绝对绝对不是(是)为了水贴，只是很单纯（有想法）的想给大家分享一下实现思路，因为做的过程中感觉这个算法真的很值得学习
示例：


讲解：
（PS：第一次尝试讲解思路，讲的不好请见谅）


（分类讨论）：
首先，我们需要知道，将数值转换为科学计数法时，有几种可能
1.数值无需过多操作，本身已经满足科学计数法=》a.b
2.数值本身就是整数，无需科学计数法=》a
3.数值的整数部分是0，科学计数法为=》a.bbbb * 10^-n
4.一般情况，科学计数法为=》a.bbbbb * 10^n


OK，开始之前我们先对需要的数据进行简单的处理



接下来，对每一种可能进行单独处理
（第一种情况下）： 判断方法：整数部分长度为1，并且整数部分不为”0“
直接返回


（第二种情况下）：判断方法：整数部分取值失败，为“”
直接返回


（第三种情况下）：判断方法：整数部分为0
我们可以先取到小数部分，然后通过判断循环来删除开头的所有0，直到删干净为止，每次删除记录一次
每次记录，代表原值 * 10^-1 ，再算上刚开始取小数部分时也相当于* 10^-1，所以最后的n=计次+1，
然后n需要为次数的相反数，则n=0-n，整理 n ＝ 0 － 计次 － 1


（第四种情况下）：判断方法：万能的排除法
n=整数部分的长度减去一个


综上：



接下来就比较简单了，已经有了n，那我们可以不管不顾，直接把 abbbbb.b 转换成 a.bbbbbbb 就好

  

' 将 acccccc.b 转换成 a.cccccccb
文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)  ' 删除小数点
文_数值 ＝ 文本_取索引_LR (文_数值, 1, 2) ＋ “.” ＋ 文本_删除_索引_LR (文_数值, 1, 2)

.版本 2<br /> <br /> ' 将 acccccc.b 转换成 a.cccccccb<br /> 文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)  ' 删除小数点<br /> 文_数值 ＝ 文本_取索引_LR (文_数值, 1, 2) ＋ “.” ＋ 文本_删除_索引_LR (文_数值, 1, 2)

但是，当传入的数据为a.b时，这样去操作就会发现，返回值为 a.  
所以我们需要单独判断单独处理

  

' 将 acccccc.b 转换成 a.cccccccb
文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)  ' 删除小数点
文_数值 ＝ 文本_取索引_LR (文_数值, 1, 2) ＋ “.” ＋ 文本_删除_索引_LR (文_数值, 1, 2)
如果真 (文本_取右边 (文_数值, “.”, , ) ＝ “”)  ' 如果说返回的数据为 a.  那么删除.
文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)

.版本 2<br /> <br /> ' 将 acccccc.b 转换成 a.cccccccb<br /> 文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)  ' 删除小数点<br /> 文_数值 ＝ 文本_取索引_LR (文_数值, 1, 2) ＋ “.” ＋ 文本_删除_索引_LR (文_数值, 1, 2)<br /> .如果真 (文本_取右边 (文_数值, “.”, , ) ＝ “”)  ' 如果说返回的数据为 a.  那么删除.<br />     文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)<br /> .如果真结束

至此，我们只是处理了整数部分，接下来是 * 10^n ，n已经得到，剩下的不必多说

  

' 加上 ×10^n
如果 (n ＝ 1)
文_数值 ＝ 文_数值 ＋ #乘 ＋ “10”
如果真 (n ≠ 0)
文_数值 ＝ 文_数值 ＋ #乘 ＋ “10^” ＋ 到文本 (n)

.版本 2<br /> <br /> ' 加上 ×10^n<br /> .如果 (n ＝ 1)<br />     文_数值 ＝ 文_数值 ＋ #乘 ＋ “10”<br /> .否则<br />     .如果真 (n ≠ 0)<br />         文_数值 ＝ 文_数值 ＋ #乘 ＋ “10^” ＋ 到文本 (n)<br />     .如果真结束

完整源码：

  

子程序名	返回值类型	公开	备 注
数值_科学计数法	文本型		将一串数值转为科学计数法
参数名	类 型	参考	可空	数组	备 注
数值	小数型

变量名	类 型	静态	数组	备 注
文_数值	文本型
局_整数部分	文本型
n	整数型
计次	整数型

' a.b×10^n
文_数值 ＝ 到文本 (数值)
局_整数部分 ＝ 文本_取左边 (文_数值, “.”, , )
' 分类讨论【点赞】
判断 (文本_取长度_LR (局_整数部分) ＝ 1 且 局_整数部分 ≠ “0”)  ' 1.无需科学计数法操作，本身就满足科学计数法
返回 (文_数值)
判断 (局_整数部分 ＝ “”)  ' 2.本身就是整数
局_整数部分 ＝ 文_数值
n ＝ 0
判断 (局_整数部分 ＝ “0”)  ' 3.整数部分为0
文_数值 ＝ 子文本替换 (文_数值, “0.”, , , , 真)  ' 取到小数部分
判断循环首 (文本_取索引_LR (文_数值, 1, 2) ＝ “0”)  ' 如果开头是0，则删掉这个0,直到开头不是0为止
计次 ＝ 计次 ＋ 1
文_数值 ＝ 文本_删除首个_LR (文_数值, “0”, )
判断循环尾 ()
n ＝ 0 － 计次 － 1  ' 原先就减少了一位，所以先减一个
' 4.一般情况
n ＝ 文本_取长度_LR (局_整数部分) － 1

' 将 acccccc.b 转换成 a.cccccccb
文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)  ' 删除小数点
文_数值 ＝ 文本_取索引_LR (文_数值, 1, 2) ＋ “.” ＋ 文本_删除_索引_LR (文_数值, 1, 2)
如果真 (文本_取右边 (文_数值, “.”, , ) ＝ “”)  ' 如果说返回的数据为 a.  那么删除.
文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)

' 加上 ×10^n
如果 (n ＝ 1)
文_数值 ＝ 文_数值 ＋ #乘 ＋ “10”
如果真 (n ≠ 0)
文_数值 ＝ 文_数值 ＋ #乘 ＋ “10^” ＋ 到文本 (n)


返回 (文_数值)

.版本 2<br /> <br /> .子程序 数值_科学计数法, 文本型, 公开, 将一串数值转为科学计数法<br /> .参数 数值, 小数型<br /> .局部变量 文_数值, 文本型<br /> .局部变量 局_整数部分, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> ' a.b×10^n<br /> <br /> 文_数值 ＝ 到文本 (数值)<br /> 局_整数部分 ＝ 文本_取左边 (文_数值, “.”, , )<br /> <br /> ' 分类讨论【点赞】<br /> .判断开始 (文本_取长度_LR (局_整数部分) ＝ 1 且 局_整数部分 ≠ “0”)  ' 1.无需科学计数法操作，本身就满足科学计数法<br />     返回 (文_数值)<br /> .判断 (局_整数部分 ＝ “”)  ' 2.本身就是整数<br />     局_整数部分 ＝ 文_数值<br />     n ＝ 0<br /> .判断 (局_整数部分 ＝ “0”)  ' 3.整数部分为0<br />     文_数值 ＝ 子文本替换 (文_数值, “0.”, , , , 真)  ' 取到小数部分<br />     .判断循环首 (文本_取索引_LR (文_数值, 1, 2) ＝ “0”)  ' 如果开头是0，则删掉这个0,直到开头不是0为止<br />         计次 ＝ 计次 ＋ 1<br />         文_数值 ＝ 文本_删除首个_LR (文_数值, “0”, )<br />     .判断循环尾 ()<br />     n ＝ 0 － 计次 － 1  ' 原先就减少了一位，所以先减一个<br /> .默认<br />     ' 4.一般情况<br />     n ＝ 文本_取长度_LR (局_整数部分) － 1<br /> .判断结束<br /> <br /> <br /> ' 将 acccccc.b 转换成 a.cccccccb<br /> 文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)  ' 删除小数点<br /> 文_数值 ＝ 文本_取索引_LR (文_数值, 1, 2) ＋ “.” ＋ 文本_删除_索引_LR (文_数值, 1, 2)<br /> .如果真 (文本_取右边 (文_数值, “.”, , ) ＝ “”)  ' 如果说返回的数据为 a.  那么删除.<br />     文_数值 ＝ 子文本替换 (文_数值, “.”, “”, , , 真)<br /> .如果真结束<br /> <br /> <br /> ' 加上 ×10^n<br /> .如果 (n ＝ 1)<br />     文_数值 ＝ 文_数值 ＋ #乘 ＋ “10”<br /> .否则<br />     .如果真 (n ≠ 0)<br />         文_数值 ＝ 文_数值 ＋ #乘 ＋ “10^” ＋ 到文本 (n)<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> 返回 (文_数值)

jysoft2022

谢谢分享

星辰ovo

6666666666666666666

小白弟弟

感谢分享