有一个TEXTBOX中的内容是 ACF="0" AF="1" CM="0" DISF="0" ERF="" OF="1" SO="3"
现在在登录时需要多这个TEXTBOX中的内容进行CHECK 
1如果含有<> 和单引号 就弹出一个MSGBOX---你输入了非法字符
2如果输入的双引号没有配对,就是输入了奇数个双引号。也弹出个MSGBOX---输入的格式不正确我现在就是对如何判断1和2不清楚。请各位大侠指点下。
谢谢!!!

解决方案 »

  1.   

    用Instr查找是否含指定的字符串,比如:pos% = Instr(textbox1.text,"<>"),
    如果pos不为0则说明内容里有"<>".
      

  2.   


    我试验了一下
    这样写pos% = Instr(textbox1.text," <>"), 
    不行
    pos% = Instr(textbox1.text,"<"),
    这样才可以 
      

  3.   

    问题1解决了  先谢过大家。现在还有问题2
    就是如何判断双引号是否成对出现的问题。
    如果没有成对出现就出MSGBOX
      

  4.   

    if ubound(split((text1), """")) mod 2 <> 0 then
        msgbox "缺少双引号"
    end if