相关文章推荐
重情义的黄瓜  ·  View and edit session ...·  1 年前    · 
不要命的伏特加  ·  Python + ...·  1 年前    · 
冷静的牛排  ·  Linux线程属性详解·  1 年前    · 

判断是否为字母:s like "[a-z,A-Z]"

判断是否为符号,是否可用 s like "[!-/ ,:-@,[- `,{-~]"

32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
! " # $ % & ' ( ) * + , - . /
48 49 50 51 52 53 54 55 56 57
0 1 2 3 4 5 6 7 8 9
58 59 60 61 62 63 64
: ; < = > ? @
65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
91 92 93 94 95 96
[ \ ] ^ _ `
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122
a b c d e f g h i j k l m n o p q r s t u v w x y z
123 124 125 126
{ | } ~
iamlaosong文 1、从网站导出的Excel文件单元格内容后面多了 一个 不可见 字符 ,怎么造成的不知道,但不是每一列都有。想要用 VBA 代码去掉,就要先判断出是什么 字符 ,将内容复制到文本环境中(比如编程环境或者UltraEdit中),发现最后面那个是个“?”,Asc()函数取其码值也是63,但奇怪的是截取这个 字符 和“?”或者Chr(63)相比,发现并不相等。 2、实际情况这个 字符 应该不是“?”... 有个网友希望使用代码输入如下“月亮” 字符 ,从截图中可以看出其字体是Segoe UI Symbol。如果文件中已经有这个 字符 ,当然最简单的方法就是复制/粘贴,可以如果空白文档,那么该如何输入呢?是否可以使用 VBA 代码直接输入这个特殊 字符 ? 之前使用使用Dir批量获取指定文件夹下的excel文件的时候,出现了问题。**,导致打开文件的时候出现无法找到的情况。使用FileSystemObject,解决此问题。出现的问题是:文件名中的。 DLL导出函数定义---------------------------------------------------__declspec(dllexport) int __stdcall MyExportFunction(const char * p1, const char * p2, char * const out); VBA 处理 (VB.net的 处理 也类似)要注意的一点是,C语言中的【c... Function UTF16(sHex As String, Optional sMode As String = "HEX") As String Dim lByte, hByte, arrRes If Application.Hex2Dec(sHex) > &H10000 Then '&HDC00 = 56320, &HD800 = 55296 0 到 31 之间的数字与标准的非打印 ASCII 代码相同。例如,Chr(10) 可以返回换行 字符 。charcode 的正常范围为 0 – 255。然而,在 DBCS 系统,charcode 的实际范围为... 正则表达式中的元 字符 特殊 字符 重复 字符 字符 集通配符其它 字符 运算符优先级   正则表达式由若干个 分支 构成,分支之间用符号 | 相连。从逻辑上讲,分支之间是一种“或”的关系, 一个 字符 串只要与正则表达式中的任何 一个 分支相匹配,这个 字符 串就与整个正则表达式相匹配。比如,“第三人称代词”可以用正则表达式表示为 他|她|它|他们|她们|它们 。 特殊 字符 s = Array("+", “^”, “%”, “~”, “(”, “)”) For Each i In s teshu = replace(teshu, i, "{" & i & "}") End Sub sub调用 b = Sheet1. Dim strs As String Dim reg As Object, reg1 As Object Set reg = CreateObject("vbscript.regexp") With reg .Global = True 在Excel中不可见 字符 用ASC查为63,用chr(63)进行替换不成功用正则s匹配也不成实测为unicode 字符 160用ASCW函数可以求 还原用CHRW函数 VBA 可以 对选择单进行替换 代码如下: Selection.Replace What:=ChrW(160), Replacement:="" 也可以对全工作表进行替换 Cells.Replace What:=ChrW(160), R...