- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 函数值替代 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184622)
-- 发布时间：2022/12/17 8:53:00
-- 函数值替代
dim s as string = ABC(1,2,3)+ABC(2,3,5)-ABC(8,7,5)*ABC(1,0,2)/ABC(9,7,2)
Dim sps() As Char = {"+", "-", "/", "*"}
Dim Names() As String = s.Split(sps)
假设：S字符串的值的ABC函数个数随机不限定个数，求出每个ABC（，，，）函数值后，如何进行替代进去呢
-- 发布时间：2022/12/17 9:00:00
--
Dim Names() As String = s.Split(sps)
Dim 对应的结果() As String = .....
dim s1 as string
for i as integer = 0 to Names.length - 1
s1 = s.replace(Names(i),对应的结果(i))next
-- 发布时间：2023/1/6 16:22:00
--
Dim s As String = ABC(1, 2, 3) + ABC(2, 3, 5) - ABC(8, 7, 5) * ABC(1, 0, 2) / ABC(9, 7, 2)
Dim sps() As Char = {"+", "-", "/", "*"}
Dim Names() As String = s.Split(sps)
For k = 1 To Names.Length - 1
Dim va() As Single
va(k) = Names(k)
Next
Dim s1 As Single
For i As Integer = 0 To Names.length - 1
s1 = s.replace(Names(i), va(i))
Next
-- 发布时间：2023/2/9 11:46:00
--
|
Dim Names() As String = s.Split(sps)
Dim 对应的结果() As String = .....
dim s1 as string
for i as integer = 0 to Names.length - 1 s1 = s.replace(Names(i),对应的结果(i))
next |
此主题相关图片如下：qq截图20230209114426.png
使用上面的代码求出来的是字符值，要转化成合计数值怎样处理
-- 发布时间：2023/2/9 11:49:00
--
参考：http://www.foxtable.com/webhelp/topics/1277.htm
-- 发布时间：2023/2/9 12:06:00
--
返回的值是：True，否则返回False。不是数值来的
-- 发布时间：2023/2/9 12:12:00
--
完整代码？
-- 发布时间：2023/2/9 14:07:00
--
Dim qq1 As String
For l As Integer = 0 To Names.length
qq1 = rg.replace(Names(l), va(l))
Next
这个求出来的结果都是逻辑型的、
我想出求出来数值
-- 发布时间：2023/2/9 14:15:00
--
请上传实例说明
-- 发布时间：2023/2/9 14:20:00
--
就是上面的代码出问题，其他测试过显示出来都正常