竞赛[中1]如果在Access中显示和输入化学符号

tmtony

如果在Access中显示和输入化学符号
(CH₃)₂CHCH₂COOC₂H₅
同时类推,也可输入分数形式

最佳答案可获得30分

答案一个星期后公布

咱家是猫

昨天做的那个版本实在是有点复杂了.现做一个支持键盘直接输入的版本.

liwen

上标如²³¼½¾还可以通过ALT+小键盘输入，这个下标还真不知怎么输入了。

原来我想只能用OLE对象来处理这些了，现在我想还可使用输入法中的造词功能，用输入法来输入₃和₂，但这样给自己用还可以，给别人用就不太好了。

ALT+8320-8329₁₂₃₄₅₆₇₈₉₀  这些字符在ACCESS里不能直接输入，但可以在QQ聊天窗口或Word、写字板中输入。

[ 本帖最后由 liwen 于 2008-3-6 16:06 编辑 ]

xinbao

小键盘是个不错的方法

andymark

老大  一个星期已经过去,  还没公布答案

tmtony

呵呵,给忘了,谢谢提醒, 使用下面的swo网友的函数来实现
Private Function Myjm(strA As String) As String

    Dim A, B As Long
    Dim C, E, jm As String

    A = Len(strA)

    For B = 1 To A
        jm = ""
        C = Mid(strA, B, 1)


        If C >= 0 And C <= 9 Then

            If C = 0 Then jm = ChrW(8320)
            If C = 1 Then jm = ChrW(8321)
            If C = 2 Then jm = ChrW(8322)
            If C = 3 Then jm = ChrW(8323)
            If C = 4 Then jm = ChrW(8324)
            If C = 5 Then jm = ChrW(8325)
            If C = 6 Then jm = ChrW(8326)
            If C = 7 Then jm = ChrW(8327)
            If C = 8 Then jm = ChrW(8328)
            If C = 9 Then jm = ChrW(8329)

        Else
            E = E & C
        End If
        E = E & jm

    Next B
   
    Myjm = E
'    Debug.Print E
End Function

liwen

这个函数没能考虑输入的数字中不必转为下标的情况，在使用时会受到限制，或许要做一个变通处理，增加转义字符才行。

rjacky

在化学式中，数字都是下标来的

tmtony

原帖由 liwen 于 2008-3-20 11:56 发表
这个函数没能考虑输入的数字中不必转为下标的情况，在使用时会受到限制，或许要做一个变通处理，增加转义字符才行。

是的,所以还需改善才行

Victor_Duane

嘻,这些字符可以到字符映射表里找到然后把十六进制转为十进制就可以使用了,所以我们还可以做出上标的数字