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

hiscul · 发表于 2024-3-4 08:07

需要从化学式计算其中原子的质量分数，第一步要提取原子的个数。
我从网上搜了个vba的代码，见附件，但有一个bug。
对于C开头的两位数的元素，比如Ce，会被识别为C。
以B开头的，比如Ba，Br，会被识别为B。
有没有大佬可以帮着改一下？谢谢。

孤独的漫游 · 发表于 2024-3-4 08:18

估计没有，这个需要化学专业的人会IT，而让IT会化学很难

wanghan519 · 发表于 2024-3-4 09:15

哪列是数据源，等效化学式是原来就有还是生成的

hiscul · 发表于 2024-3-4 09:33

wanghan519 发表于 2024-3-4 09:15
哪列是数据源，等效化学式是原来就有还是生成的

化学式那一列是数据源，等效化学式是我用模块的函数得到后，选择性粘贴的结果。

hiscul · 发表于 2024-3-4 09:35

wanghan519 发表于 2024-3-4 09:15
哪列是数据源，等效化学式是原来就有还是生成的

能否把代码贴一下，看起来可以得到结果，谢谢。

wanghan519 · 发表于 2024-3-4 09:39

hiscul 发表于 2024-3-4 09:35
能否把代码贴一下，看起来可以得到结果，谢谢。

那就得重新基于化学式写
水前面有个点那种情况，都只按一个水算吗，还是应该乘上水的个数，现在的等价化学式好像不正确

qlmgu · 发表于 2024-3-4 09:48

留个脚印学习学习

蓝桥玄霜 · 发表于 2024-3-4 09:56

把F1：DS1按字符串长度排序即可。也就是把单个字符的排到后面。

hiscul · 发表于 2024-3-4 10:04

wanghan519 发表于 2024-3-4 09:39
那就得重新基于化学式写
水前面有个点那种情况，都只按一个水算吗，还是应该乘上水的个数，现在的等价化 ...

是的，现在的等效化学式不正确，很多特殊情况处理的有问题。
.18H2O理论上是18个水，水合物通常写成这样。
但也可以手动改成（H2O）18

hiscul · 发表于 2024-3-4 10:15

蓝桥玄霜发表于 2024-3-4 09:56
把F1：DS1按字符串长度排序即可。也就是把单个字符的排到后面。

您好，我按您说的重新排序，Ba还是会识别为B，Si还是会识别为S。

如图

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

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