各位大俠，趕緊救命

在 VB里面截取數據的函數MID。不區分，全半角我有一個數據是30位，可以為全角，可以為半角，前提是都是滿位的，
例：
一條數據
abcde123456789012345678901234567890defag我要截取123456789012345678901234567890，
123456789012345678901234567890 可以為１２３４５６７８９０１２３４５
謝謝啦

解决方案 »

  1.   

    constrv可以全角半角转化，转完再处理
      

  2.   

    Private Sub Command1_Click()
    s = "abcde123456789012345678901234567890defag "
    s1 = Mid(s, 6, 30)
    MsgBox s1
    End Sub
      

  3.   

    Private Sub Command1_Click()
    a = InStr(1, s, 1)s = "abcde123456789012345678901234567890defag "
    a = InStr(1, s, 1)s1 = Mid(s, 6, 30)MsgBox s1
    End Sub
      

  4.   

    s1 = Mid(s, a, 30) 
    打错了