这个很简单,使用Left和Len函数就可以做到了: Dim TXT as String '用于存放初始字符串 Dim Tx as String '用于存放比初始字符串少最后一个字符的新字符串 Dim L as long '初始字符串的长度 Txt="ijafpoau90320rpoifjapofjasopfqw039ru-0rapsoaspofwq093u94ojf" '任意初始字符串 L=Len(Txt) '取得初始字符串长度 Tx=Left(Txt,L-1) '取得新字符串,从初始字符串左边开始取,长度比初始字符串少一个 '为了解释给你看才写这么多,简单的写法就是:Tx=Left(Txt,Len(TxT)-1),连L都省了。
Dim TXT as String '用于存放初始字符串
Dim Tx as String '用于存放比初始字符串少最后一个字符的新字符串
Dim L as long '初始字符串的长度
Txt="ijafpoau90320rpoifjapofjasopfqw039ru-0rapsoaspofwq093u94ojf" '任意初始字符串
L=Len(Txt) '取得初始字符串长度
Tx=Left(Txt,L-1) '取得新字符串,从初始字符串左边开始取,长度比初始字符串少一个
'为了解释给你看才写这么多,简单的写法就是:Tx=Left(Txt,Len(TxT)-1),连L都省了。