Office开发/ VBA
怎样获取西欧字符(如Français)的ASCII码值？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区做了个宏脚本导出Excel中的数据，如下函数是为了将字符转换为对应的十六进制表示的ASCII码值。
语句val = Asc(caracter)在caracter的ASCII码值>127时，则val=0。换用val = Ascw(caracter)也是同样结果...
不知道是不是跟系统有关系，使用的是英文版XP SP3， Office 2003
请教怎样得到西欧字符的ASCII码值，多谢了...
Private Function getHexa(caracter As String, nbDigit As Integer) As String
Dim i As Integer
Dim val As Integer
Dim tmp As Integer
Dim digit As Integer
'Get caracter value
val = Asc(caracter)
'Convert value in hexa string
getHexa = ""
'Print required digits
For i = 1 To nbDigit
tmp = Int(val / 16)
digit = val - tmp * 16
If digit < 10 Then
getHexa = Chr(digit + 48) & getHexa
Else
getHexa = Chr(digit + 55) & getHexa
End If
val = tmp
Next
End Function
语句val = Asc(caracter)在caracter的ASCII码值>127时，则val=0。换用val = Ascw(caracter)也是同样结果...
不知道是不是跟系统有关系，使用的是英文版XP SP3， Office 2003
请教怎样得到西欧字符的ASCII码值，多谢了...
Private Function getHexa(caracter As String, nbDigit As Integer) As String
Dim i As Integer
Dim val As Integer
Dim tmp As Integer
Dim digit As Integer
'Get caracter value
val = Asc(caracter)
'Convert value in hexa string
getHexa = ""
'Print required digits
For i = 1 To nbDigit
tmp = Int(val / 16)
digit = val - tmp * 16
If digit < 10 Then
getHexa = Chr(digit + 48) & getHexa
Else
getHexa = Chr(digit + 55) & getHexa
End If
val = tmp
Next
End Function
...全文
相关推荐
ISO 15924 Code Lists.pdf
ISO 15924 Code Lists
Apprentissage du français partie 1
Apprentissage du français partie 1
Apprentissage du français partie 2
Apprentissage du français partie 2
Apprentissage du français partie 3
Apprentissage du français partie 3
国央企创新负责人如何通过平台实现科研成果的快速识别与转化？.docx
科易网基于AI模型+行业大数据，在技术转移、成果转化、技术经纪、知识产权、产业创新、科技招商等垂直领域的多样化应用场景，推出科技创新领域的AI+工具与数智化解决方案，推动科技创新与产业创新智能化发展。
