可以用left、mid、right函数实现。
(1)函数介绍
①left函数
基本语法:left(text,num_chars)
参数含义:
text
是包含要提取字符的文本字符串。
num_chars
指定要由
left
所提取的字符数。
num_chars
必须大于或等于
0。
如果
num_chars
大于文本长度,则
left
返回所有文本。
如果省略
num_chars,则假定其为
1。
num_bytes
按字节指定要由
leftb
所提取的字符数。
②mid函数
基本语法:mid(text,start_num,num_chars)
参数含义:text是包含要提取字符的文本串。start_num是文本中要提取的第一个字符的位置,文本中第一个字符的start_num为1,以此类推;num_chars指定希望mid从文本中返回字符的个数。
③right函数
基本语法:right(text,num_chars)
参数含义:text
是包含要提取字符的文本字符串;num_chars
指定希望
right
提取的字符数;num_bytes
指定希望
rightb
根据字节所提取的字符数。num_chars
必须大于或等于
0。
如果
num_chars
大于文本长度,则
right
返回所有文本。
如果忽略
num_chars,则假定其为
1
(2)特别说明
由于这三个函数提取的是字符,因此提取后的内容为文本格式,利用“*1”公式可以将其转换成数字格式。
(3)实例
①a1=“12345”,a2=left(a1,3)*1,则a2=“123”
②a1=“12345”,a2=mid(a1,2,3)*1,则a2=“234”
③a1=“12345”,a2=right(a1,3)*1,则a2=“345”
具体方法是:
sub
z()
dim
s
as
string,
i
as
long
s
=
"aa往ddd往aa"
i
=
1
do
while
i
<
len(s)
-
1
if
(asc(mid(s,
i,
1))
and
128)
<>
(asc(mid(s,
i
+
1,
1))
and
128)
then
s
=
left(s,
i)
&
"^"
&
right(s,
len(s)
-
i)
i
=
i
+
1
'1为插入字符"^"的长度,注意要一致,否则进入死循环
end
if
i
=
i
+
1
loop
msgbox
s
end
sub