简单问题！

msgbox mid(code.text,instrrev(code.text,".")+1)

解决方案 »

  1.   

    下面这段代码中没对付值，也不可能运行num=i,所以num=0
    dim (255) as string
    length=len(code.text)
    for i=1 to lenght
    if ()="." then
    num=i
    exit for
    end if
    如果要找文件后缀名可用下面的方法
    MsgBox Right(code.text, Len(code.text) - InStrRev(code.text, "."))
      

  2.   

    真是惨不忍睹，我初学的时候也没有这么菜！
    一句话可以解决！
    debug.print right(code,len(code)-instr(1,code,"."))
      

  3.   

    居然有人叫ThinkEasy,看来我们的名字有异曲同工之妙！楼上的，你好你好！
      

  4.   

    你试用一下Instr这个函数,instr(1,code.text,".")这样就可以返回第一次出现"."的位置了.
      

  5.   

    把if ()="." then改为if (i)="."