化学式提取原子个数的模块

hiscul · 发表于 2024-3-5 13:57

yynrzwh 发表于 2024-3-4 22:53
生成等效化学式，计算分子量
我这夹生的正则

试了一下，非常牛的，一下子都得到了。

yynrzwh · 发表于 2024-3-5 16:20

'去掉化学价
      reg.Pattern = "\d*\+"
      If reg.test(s) Then
         s = reg.Replace(s, "")
      End If

qlmgu · 发表于 2024-3-5 16:23

yynrzwh 发表于 2024-3-4 22:53
生成等效化学式，计算分子量
我这夹生的正则

确实专业、高效，保存学习。再次感谢。

byhyxb · 发表于 2024-3-5 16:57

路过学习...............

飞天篮球猪 · 发表于 2024-3-5 18:16

hiscul 发表于 2024-3-5 13:57
试了一下，非常牛的，一下子都得到了。

那个算法不严谨，试试这个: K4(ON(SO3)2)2

飞天篮球猪 · 发表于 2024-3-5 22:15

供参考...

VBA-矿物化学成分(原子数量).xlsm.zip (65.12 KB, 下载次数: 15)

hiscul · 发表于 2024-3-6 07:38

飞天篮球猪发表于 2024-3-5 22:15
供参考...

牛逼，谢谢大神！我好好看您代码，好好学习。

飞天篮球猪 · 发表于 2024-3-6 09:12

hiscul 发表于 2024-3-6 07:38
牛逼，谢谢大神！我好好看您代码，好好学习。

也只能仅供参考....
因为化学式不是范式，也不知道还有没有其它的书写形式，所以很难适应所有场景。
目前是对已知书写形式尽可能清洗成范式。带电化合价清除，.5-7H2O或者.5~7H2O就识别成(H2O)5按左边较小的数来统计，单独的x和n不能识别为原子或者数量的认为是错误，不能识别的字符方框或者？认为不提取...但代码后续倒序遍历这部分算法以及模拟栈的运用还是能经得起考验的，有兴趣搞明白的话建议参考力扣726。你若熟悉JS或者其它编程语言，理解起来会比较容易。

yynrzwh · 发表于 2024-3-6 15:27

向大佬学习！

		自动登录	找回密码
密码			免费注册

[求助] 化学式提取原子个数的模块

评分