VB函数接口

爱被打了一巴掌 2022-06-15 04:51 156阅读 0赞

## 字符串 ##

Len(X)： 计算字符串X的长度  
\[格式\]：  
P=Len(X)  
\[说明\]：  
空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。

\[范例\]：  
(1) 令X=”” (空字符串)  
Len(X) 输出结果为0  
(2) 令X=”abcd”  
Len(X) 输出结果为4  
(3) 令X=”VB[教程][Link 1]”  
Len(X) 输出结果为4

Mid(X)函数：读取字符串X中间的字符  
\[格式\]：  
P=Mid(X,n)  
由X的第n个字符读起，读取后面的所有字符。  
P=Mid(X,n,m)  
由X的第n个字符读起，读取后面的m个字符。

\[范例\]：  
(1) X=”abcdefg”  
P=Mid(X,5)  
结果为：P=”efg”  
(2) X=”abcdefg”  
P=Mid(X,2,4)  
结果为P=”bcde”

Replace: 将字符串中的某些特定字符串替换为其他字符串  
\[格式\]：  
P=Replace(X,S,R)  
\[说明\]：将字符串X中的字符串S替换为字符串R，然后返回。

\[范例\]：  
X=”VB is very good”  
P=Replace(X,good,nice)  
输出结果为：P=”VB is very nice”

StrReverse：反转字符串  
\[格式\]：  
P=StrReverse(X)  
\[说明\]：  
返回X参数反转后的字符串  
\[范例\]：  
（1）X=”abc”  
P=StrReverse(X)  
输出结果：P=”cba”

Ucase(X)，Lcase(X)：转换英文字母的大小写  
\[格式\]：  
P=Lcase(X)  
‘ 将X字符串中的大写字母转换成小写  
P=Ucase(X)  
‘ 将X字符串中的小写字母转换成大写  
\[说明\]：除了英文字母外，其他字符或中文字都不会受到影响。

\[范例\]：  
（1） 令 X=”VB and VC”  
则Lcase(X)的结果为”vb and vc”，Ucase(X)的结果为”VB AND VC”

InStr函数：寻找字符串  
\[格式\]：  
P=InStr(X,Y)

从X第一个字符起找出Y出现的位置  
P=InStr(n,X,Y)  
从X第n个字符起找出Y出现的位置  
\[说明\]：  
（1） 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。  
（2） InStr(X,Y)相当于InStr(1,X,Y)。  
（3） 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。  
（4） 若Y为空字符串，则返回0。

left(字符串,长度) ByVal 从\[字符串\]的左边开始返回\[长度\]个字符  
例如 Left("小欣无敌,3) 则返回 "小欣无"

right(字符串,长度) ByVal 从\[字符串\]的右边开始返回\[长度\]个字符  
例如 Right("小欣无敌",3) 则返回 "欣无敌"

split函数用法

用法：传回数组 = Split(原始字串, 要找的字串, 拆成几个数组)   
描述  
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。  
语法  
Split(expression\[, delimiter\[, count\[, compare\]\]\])

trim函数用法

trim()是去除字符串头或尾部的空格，但不包含中间的空格

## 数组 ##

LBound函数: 返回一个 Long 型数据，其值为指定数组维可用的最小下标

UBound 函数: UBound(Arr, 2),二维数组，二级下标对应的最大值 返回一个 Long 型数据，其值为指定的数组维可用的最大下标。

## 文件 ##

**GetAttr(***pathname***)**

必要的 *pathname*[参数][Link 2]是用来指定一个文件名的[字符串表达式][Link 3]。*pathname*可以包含目录或文件夹、以及驱动器。

**返回值**

由 **GetAttr**返回的值，是下面这些属性值的总和：

<table> 
 <tbody> 
 <tr> 
 <td>常数</td> 
 <td>值</td> 
 <td>描述</td> 
 </tr> 
 <tr> 
 <td>vbNormal</td> 
 <td>0</td> 
 <td>常规</td> 
 </tr> 
 <tr> 
 <td>vbReadOnly</td> 
 <td>1</td> 
 <td>只读</td> 
 </tr> 
 <tr> 
 <td>vbHidden</td> 
 <td>2</td> 
 <td>隐藏</td> 
 </tr> 
 <tr> 
 <td>vbSystem</td> 
 <td>4</td> 
 <td>系统文件</td> 
 </tr> 
 <tr> 
 <td>vbDirectory</td> 
 <td>16</td> 
 <td>目录或文件夹</td> 
 </tr> 
 <tr> 
 <td>vbArchive</td> 
 <td>32</td> 
 <td>上次备份以后，文件已经改变</td> 
 </tr> 
 <tr> 
 <td>vbalias</td> 
 <td>64</td> 
 <td>指定的文件名是别名。</td> 
 </tr> 
 </tbody> 
</table>

If GetAttr(Sheet1.Cells(2, 2)  And vbReadOnly）<> 0 Then 判断文件是否是只读属性

字符转换

把文件内容转换成unicode字符，然后，以回车作为分隔符，返回文件内容；

Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)

[Link 1]: http://www.gougou.com/search?search=%E6%95%99%E7%A8%8B;&id=24304
[Link 2]: http://www10.zzu.edu.cn/ie_wangjunfeng/daquan/function/contents/getattr.htm#defarg
[Link 3]: http://www10.zzu.edu.cn/ie_wangjunfeng/daquan/function/contents/getattr.htm#defstringexpression