普通文本转换成化学分子式

时　间:2015-12-24 11:23:20
作　者:lzk   ID：45191  城市：晋江
摘　要:化学分子式转换.已实现右下角标1234567890,和右上角标+-的转换.
正　文:

'以下函数将文本转换成化学分子式

Function TFormat(Strvalue As Variant) As String
Strvalue = Strvalue & ""
For i = 1 To Len(Strvalue)
Select Case Asc(Mid(Strvalue, i, 1))
Case 48 To 48 + 9 '数字
TFormat = TFormat & ChrW(Asc((Mid(Strvalue, i, 1))) + 8272)
Case 43   '减号
TFormat = TFormat & ChrW(Asc((Mid(Strvalue, i, 1))) + 8271)
Case 45   '加号
TFormat = TFormat & ChrW(Asc((Mid(Strvalue, i, 1))) + 8270)
Case Else
TFormat = TFormat & Mid(Strvalue, i, 1)
End Select
Next
End Function