yuangw1234 发表于 2006-5-6 10:50:00

怎么样去掉字符串最后面的l四位

<P>vba中有只取字符串后面的四位right(str,4)函数，请问有没有去掉后面的四位，如</P>
<P>abcd.dwg或abcdef.prt等，这两个字符串我只要abcd及abcdef,当然点号前面的位数是不定的</P>
<P>因为字符串只能加而不能减，我傻做了下面一个程式，结果在我意料中</P>
<P>请问大师提供一个去掉后面四位的方法，谢谢！</P>
<P>Public Sub caption()<BR>Dim str As String, str1 As String, str2 As String<BR>str = ThisDrawing.Name: str1 = Right(str, 4)<BR>str2 = str - str1<BR>MsgBox str2<BR>End Sub</P>

xinghesnak 发表于 2006-5-6 13:28:00

<P>str = ThisDrawing.Name</P>
<P>str1 = replace(str,right(str,4),"")</P>

mikewolf2k 发表于 2006-5-7 19:24:00

left(str,(len(str)-4))

yuangw1234 发表于 2006-5-8 18:47:00

谢谢两位大师
页: [1]
查看完整版本: 怎么样去掉字符串最后面的l四位