数组字符串合并(化学式、分子量)(已解决)

解0人

1. Function J0r_fzs(hxs$)
   
2. Dim str, c As String, arr, arr_s, i%, dic
   
3. 
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     arr = Split("H=1;He=2;C=12;N=14;O=16;F=19;Ne=20;Na=23;Mg=24;Al=27;Si=28;P=31;S=32;Cl=35.5;Ar=40;K=39;Ca=40;Mn=55;Fe=56;Cu=64;Zn=65;Ag=108;I=127;Ba=137;Pt=195;Au=197;Hg=201", ";")
   
6.     For i = 0 To UBound(arr)
   
7.         arr_s = Split(arr(i), "=")
   
8.         dic.Add arr_s(0), arr_s(1)
   
9.     Next
   
10.    
    
11.     str = Left(hxs, 1)
    
12.     For i = 2 To Len(hxs)
    
13.         c = Mid(hxs, i, 1)
    
14.         Select Case c
    
15.             Case "A" To "Z", "("
    
16.                 str = str & IIf(Right(str, 1) = "(", " ", " + ") & c
    
17.             Case "a" To "z", ")"
    
18.                 str = str & IIf(c = ")", " ", "") & c
    
19.             Case "0" To "9"
    
20.                 str = str & " * " & c
    
21.         End Select
    
22.     Next
    
23.    
    
24.     arr = Split(str, " ")
    
25.     For i = 0 To UBound(arr)
    
26.         If dic.Exists(arr(i)) Then arr(i) = dic(arr(i))
    
27.     Next
    
28.    
    
29.     J0r_fzs = Evaluate(Join(arr))
    
30.     Debug.Print str & " = " & Evaluate(Join(arr))
    
31. End Function

复制代码

测试：
?J0r_fzs("Cu(NO3)2")
Cu + ( N + O * 3 ) * 2 = 188
188
?J0r_fzs("Ca3(PO4)2")
Ca * 3 + ( P + O * 4 ) * 2 = 310
310
?J0r_fzs("Na2SO4")
Na * 2 + S + O * 4 = 142
142

dongdonggege

解0人 发表于 2017-3-9 22:08
测试：
?J0r_fzs("Cu(NO3)2")
Cu + ( N + O * 3 ) * 2 = 188

大侠，Evaluate子过程或函数未定义！

dongdonggege

解0人 发表于 2017-3-9 22:08
测试：
?J0r_fzs("Cu(NO3)2")
Cu + ( N + O * 3 ) * 2 = 188

能否给个完整的程序？

解0人

dongdonggege 发表于 2017-3-9 22:39
能否给个完整的程序？

Evaluate是application的方法，怎么会未定义呢？
你写application.Evaluate试试

dongdonggege

解0人 发表于 2017-3-9 22:08
测试：
?J0r_fzs("Cu(NO3)2")
Cu + ( N + O * 3 ) * 2 = 188

刚才我在使用ppt，好像不能使用Evaluate，现在改成excel可以了，但是有机化学后面的数字都是2位的好像不行，请试试C10H16N2O2

解0人

稍加改动即可：

1. Function J0r_fzs(hxs$)
   
2. Dim str, c As String, arr, arr_s, i%, dic
   
3. 
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     arr = Split("H=1;He=2;C=12;N=14;O=16;F=19;Ne=20;Na=23;Mg=24;Al=27;Si=28;P=31;S=32;Cl=35.5;Ar=40;K=39;Ca=40;Mn=55;Fe=56;Cu=64;Zn=65;Ag=108;I=127;Ba=137;Pt=195;Au=197;Hg=201", ";")
   
6.     For i = 0 To UBound(arr)
   
7.         arr_s = Split(arr(i), "=")
   
8.         dic.Add arr_s(0), arr_s(1)
   
9.     Next
   
10.    
    
11.     str = Left(hxs, 1)
    
12.     For i = 2 To Len(hxs)
    
13.         c = Mid(hxs, i, 1)
    
14.         Select Case c
    
15.             Case "A" To "Z", "("
    
16.                 str = str & IIf(Right(str, 1) = "(", " ", " + ") & c
    
17.             Case "a" To "z", ")"
    
18.                 str = str & IIf(c = ")", " ", "") & c
    
19.             Case "0" To "9"
    
20.                 str = str & IIf(Right(str, 1) > "0" And Right(str, 1) <= "9", "", " * ") & c
    
21.         End Select
    
22.     Next
    
23.    
    
24.     arr = Split(str, " ")
    
25.     For i = 0 To UBound(arr)
    
26.         If dic.Exists(arr(i)) Then arr(i) = dic(arr(i))
    
27.     Next
    
28.    
    
29.     J0r_fzs = Application.Evaluate(Join(arr))
    
30.     Debug.Print str & " = " & Application.Evaluate(Join(arr))
    
31. End Function

复制代码

测试：
?J0r_fzs("C10H16N2O2")
C * 10 + H * 16 + N * 2 + O * 2 = 196
196

dongdonggege

解0人 发表于 2017-3-9 23:07
稍加改动即可：

测试：

真乃高手也，特别感谢，谢谢。

dongdonggege

chxw68 发表于 2017-3-9 19:20
提供一个正则表达式的。

大侠，你好，这个主题的11楼的代码解决了分子量的计算公式，不过，我一般喜欢ppt的。所以，11楼的这个程序Evaluate或Application.Evaluate在ppt都不适用，我把最后两句改成了J0r_fzs = Join(arr)，MsgBox str & " = " & Join(arr)，结果是：Cu + (N + O * 3) * 2  = 64 + (14 + 16 * 3) * 2，我想在后面添上“= 188”，这个188出不来，我不知道，我的最后一句怎么改，麻烦你再帮下忙，谢谢了。

dongdonggege

解0人 发表于 2017-3-9 22:08
测试：
?J0r_fzs("Cu(NO3)2")
Cu + ( N + O * 3 ) * 2 = 188

大侠，你好
第1个问题：我一般喜欢ppt vba的， 11楼或16楼的这个程序Evaluate或Application.Evaluate在ppt不适用，我把最后两句改成了J0r_fzs = Join(arr)，MsgBox str & " = " & Join(arr)，结果是：Cu + (N + O * 3) * 2  = 64 + (14 + 16 * 3) * 2，我想在后面添上“= 188”，这个188出不来。
第2个问题：针对11楼或16楼的代码，分子量计算，还有个特殊情况，就是水合物的分子量。CuSO4&#8226;5H2O（5水硫酸铜,俗称胆矾），Na2SO4&#8226;10H2O（10水硫酸钠, 俗称芒硝），像这样，把两个分子式用“&#8226;”分隔开，“&#8226;”后有数字且带分子式，产生错误算式，正确的算式为CuSO4&#8226;5H2O= Cu+S+O*4+5*（H*2+O）。请写个水合物分子量计算的程序。
第3个问题：我另写的文章《配平化学方程式》
（http://club.excelhome.net/thread-1333266-1-1.html），这个程序，已能达到一般的化学方程式都能配平，但是对离子方程式还不行，如H(+) + NH4(+) + OH(-)=NH3 + H2O，配平后为H(+) + NH4(+) + 2OH(-) =NH3 + 2H2O，又如MnO(4-) + H(+) + Cl(-) =Mn(2+)+ Cl2 + H2O，最后结果为2MnO(4-) + 16H(+) + 10Cl(-) = 2Mn(2+) + 5Cl2 + 8H2O，我不知道怎么提取括号里数字与前面的原子相乘。请写个离子方程式的程序。
麻烦大侠能抽空看看，再次麻烦，感谢。

dongdonggege

解0人 发表于 2017-3-9 22:08
测试：
?J0r_fzs("Cu(NO3)2")
Cu + ( N + O * 3 ) * 2 = 188

大侠，请再次出手，谢谢了。