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

benny888

chxw68 发表于 2017-3-9 19:41
先将括号替换掉。

大神，你好，能否转步，看看我这个问题，跟这个差不多的，能否帮忙一下，万分感谢

http://club.excelhome.net/thread-1333313-1-1.html

yjh_27

部分代码11L的

1. Sub fzl() '化学式、分子量
   
2. s = "12H2O"
   
3. 's = "Na2SO4"
   
4. 
   
5. Set dic = CreateObject("scripting.dictionary")
   
6.     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", ";")
   
7.     For i = 0 To UBound(arr)
   
8.         arr_s = Split(arr(i), "=")
   
9.         dic.Add arr_s(0), arr_s(1)
   
10.     Next
    
11.    
    
12. Set reg = CreateObject("vbscript.regexp")
    
13. reg.Pattern = "\d+|[A-Z][a-z]|\w"
    
14. reg.Global = True
    
15. Set mh = reg.Execute(s)
    
16. 
    
17. ss = ""
    
18. sj = ""
    
19. s1 = ""
    
20. s2 = ""
    
21. 
    
22. For Each mh1 In mh
    
23.     If IsNumeric(mh1) Then
    
24.         If ss = "" Then
    
25.             s1 = mh1 & "*("
    
26.             s2 = ")"
    
27.         Else
    
28.             ss = ss & "*" & mh1
    
29.             sj = sj & "*" & mh1
    
30.             
    
31.         End If
    
32.     Else
    
33.         If ss = "" Then
    
34.             ss = mh1
    
35.             sj = dic(mh1.Value)
    
36.         Else
    
37.             ss = ss & "+" & mh1
    
38.             sj = sj & "+" & dic(mh1.Value)
    
39.         End If
    
40.     End If
    
41. Next
    
42.     ss = s1 & ss & s2
    
43.     sj = s1 & sj & s2
    
44.    
    
45. 
    
46. MsgBox ss & "=" & Evaluate(sj)
    
47. End Sub

复制代码

dongdonggege

yjh_27 发表于 2017-3-14 13:37
部分代码11L的

大侠辛苦了，
1、现在字符串变换成 “Na2SO4·10H2O”，能不能以这个“·”为分隔线，分隔线前面的，公式=Na*2+S+O*4。分隔线后面的=10*（H*2+O），最终结果为=Na*2+S+O*4+10*（H*2+O）
2、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", ";")，根据arr的值计算第一个公式的值。
不好意思，分开来问，是为了好解决问题，麻烦大侠了。

blackttea1

谢谢楼主分享！

yjh_27

dongdonggege 发表于 2017-3-14 13:48
大侠辛苦了，
1、现在字符串变换成 “Na2SO4·10H2O”，能不能以这个“·”为分隔线，分隔线前面的，公 ...

1. Sub aa()
   
2. s = "Na2SO4·10H2O"
   
3. MsgBox YjhFZL(s, 2)
   
4. 
   
5. End Sub
   
6. 
   
7. Function YjhFZL(fzs, mode)    '化学式、分子量
   
8. 
   
9.     Set dic = CreateObject("scripting.dictionary")
   
10.     fzb = "H=1;He=2;C=12;N=14;O=16;F=19;Ne=20;Na=23;Mg=24;Al=27;Si=28;P=31"
    
11.     fzb = fzb & ";S=32;Cl=35.5;Ar=40;K=39;Ca=40;Mn=55;Fe=56;Cu=64;Zn=65"
    
12.     fzb = fzb & ";Ag=108;I=127;Ba=137;Pt=195;Au=197;Hg=201"
    
13.     arr = Split(fzb, ";")
    
14.     For i = 0 To UBound(arr)
    
15.         arr_s = Split(arr(i), "=")
    
16.         dic.Add arr_s(0), arr_s(1)
    
17.     Next
    
18. 
    
19.     Set reg = CreateObject("vbscript.regexp")
    
20.     reg.Pattern = "\d+|[A-Z][a-z]|\w"
    
21.     reg.Global = True
    
22. 
    
23.     s = Split(fzs, "·")
    
24.     ss = ""
    
25.     sj = ""
    
26.     For i = 0 To UBound(s)
    
27.         Set mh = reg.Execute(s(i))
    
28.         ssi = ""
    
29.         sji = ""
    
30.         s1 = ""
    
31.         s2 = ""
    
32.         For Each mh1 In mh
    
33.             s0 = mh1.Value
    
34.             If IsNumeric(s0) Then
    
35.                 If ssi = "" Then
    
36.                     s1 = s0 & "*("
    
37.                     s2 = ")"
    
38.                 Else
    
39.                     ssi = ssi & "*" & s0
    
40.                     sji = sji & "*" & s0
    
41.                 End If
    
42.             Else
    
43.                 If ssi = "" Then
    
44.                     ssi = s0
    
45.                     sji = dic(s0)
    
46.                 Else
    
47.                     ssi = ssi & "+" & s0
    
48.                     sji = sji & "+" & dic(s0)
    
49.                 End If
    
50.             End If
    
51.         Next
    
52.         ss = ss & "+" & s1 & ssi & s2
    
53.         sj = sj & "+" & s1 & sji & s2
    
54.     Next
    
55. 
    
56.     If mode = 1 Then
    
57.         YjhFZL = Mid(ss, 2)
    
58.     ElseIf mode = 2 Then
    
59.         YjhFZL = Mid(ss, 2) & "=" & Evaluate(sj)
    
60.     Else
    
61.         YjhFZL = Evaluate(sj)
    
62.     End If
    
63. 
    
64. End Function
    

复制代码

dongdonggege

yjh_27 发表于 2017-3-14 17:00

辛苦了，大侠，刚测试了几个，都比较正确。
1、不带水合物的正确；
2、纯水合物正确；
但是对带括号的，好像有问题。
比如KAl(SO4)2·12H2O，“·”前因为有括号，计算错误。
再如KAl(SO4)2也错误，11楼带括号的正确，再麻烦大侠，再完善下，谢谢。

dongdonggege

yjh_27 发表于 2017-3-14 17:00

请大侠帮帮忙

yjh_27

dongdonggege 发表于 2017-3-14 17:34
辛苦了，大侠，刚测试了几个，都比较正确。
1、不带水合物的正确；
2、纯水合物正确；

正则只是按另一帖中提到的三个规则处理数字、字母，没有提取括号，所以出错。
还有什么要求一并提出，给出的分子式各类都有，方便测试。

dongdonggege

yjh_27 发表于 2017-3-15 11:21
正则只是按另一帖中提到的三个规则处理数字、字母，没有提取括号，所以出错。
还有什么要求一并提出，给 ...

据我所知，应该没有了。说不定也有特殊的，水合物，可能带有2次“.”。谢谢大侠了。

cbtaja

对于分子式这种格式化的字符串，用正则表达式来分析处理是最合适不过的了，既简洁又高效： 分子量计算函数.rar (14.86 KB, 下载次数: 35)

2017-3-15 16:19 上传

点击文件名下载附件