Office中国论坛/Access中国论坛

标题: 竞赛[中1]如果在Access中显示和输入化学符号 [打印本页]

作者: tmtony 时间: 2008-3-6 01:07
标题: 竞赛[中1]如果在Access中显示和输入化学符号
如果在Access中显示和输入化学符号
(CH₃)₂CHCH₂COOC₂H₅
同时类推,也可输入分数形式

最佳答案可获得30分

答案一个星期后公布

作者: 咱家是猫 时间: 2008-3-6 01:07
昨天做的那个版本实在是有点复杂了.现做一个支持键盘直接输入的版本.

作者: liwen 时间: 2008-3-6 13:55
上标如²³¼½¾还可以通过ALT+小键盘输入，这个下标还真不知怎么输入了。

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

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

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

作者: xinbao 时间: 2008-3-6 16:27
小键盘是个不错的方法

作者: andymark 时间: 2008-3-18 15:00
老大一个星期已经过去, 还没公布答案

作者: tmtony 时间: 2008-3-18 18:17
呵呵,给忘了,谢谢提醒, 使用下面的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 时间: 2008-3-20 11:56
这个函数没能考虑输入的数字中不必转为下标的情况，在使用时会受到限制，或许要做一个变通处理，增加转义字符才行。

作者: rjacky 时间: 2008-3-20 16:03
在化学式中，数字都是下标来的

作者: tmtony 时间: 2008-3-20 21:05

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

是的,所以还需改善才行

作者: Victor_Duane 时间: 2008-3-25 09:59
嘻,这些字符可以到字符映射表里找到然后把十六进制转为十进制就可以使用了,所以我们还可以做出上标的数字

作者: 咱家是猫 时间: 2008-4-24 22:31
做了个工具,希望可以一次性解决这些问题.

作者: tmtony 时间: 2008-4-25 21:16
非常好的思路,不能不佩服.结贴,马上散分

作者: Grant 时间: 2008-4-26 00:37
Good..每次都错过，最近时间不够用 [:30]

作者: liaug 时间: 2008-6-27 03:18
支持一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)