競(jìng)賽[中1]如果在Access中顯示和輸入化學(xué)符號(hào)

tmtony

如果在Access中顯示和輸入化學(xué)符號(hào)
(CH₃)₂CHCH₂COOC₂H₅
同時(shí)類推,也可輸入分?jǐn)?shù)形式

最佳答案可獲得30分

答案一個(gè)星期后公布

咱家是貓

昨天做的那個(gè)版本實(shí)在是有點(diǎn)復(fù)雜了.現(xiàn)做一個(gè)支持鍵盤直接輸入的版本.

liwen

上標(biāo)如²³¼½¾還可以通過ALT+小鍵盤輸入，這個(gè)下標(biāo)還真不知怎么輸入了。

原來我想只能用OLE對(duì)象來處理這些了，現(xiàn)在我想還可使用輸入法中的造詞功能，用輸入法來輸入₃和₂，但這樣給自己用還可以，給別人用就不太好了。

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

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

xinbao

小鍵盤是個(gè)不錯(cuò)的方法

andymark

老大  一個(gè)星期已經(jīng)過去,  還沒公布答案

tmtony

呵呵,給忘了,謝謝提醒, 使用下面的swo網(wǎng)友的函數(shù)來實(shí)現(xiàn)
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

這個(gè)函數(shù)沒能考慮輸入的數(shù)字中不必轉(zhuǎn)為下標(biāo)的情況，在使用時(shí)會(huì)受到限制，或許要做一個(gè)變通處理，增加轉(zhuǎn)義字符才行。

rjacky

在化學(xué)式中，數(shù)字都是下標(biāo)來的

tmtony

原帖由 liwen 于 2008-3-20 11:56 發(fā)表
這個(gè)函數(shù)沒能考慮輸入的數(shù)字中不必轉(zhuǎn)為下標(biāo)的情況，在使用時(shí)會(huì)受到限制，或許要做一個(gè)變通處理，增加轉(zhuǎn)義字符才行。

是的,所以還需改善才行

Victor_Duane

嘻,這些字符可以到字符映射表里找到然后把十六進(jìn)制轉(zhuǎn)為十進(jìn)制就可以使用了,所以我們還可以做出上標(biāo)的數(shù)字