取字符

Question

有一个变量“本厂编号”其中必定有字符“-”，例如"U1.5-10",现在分别要取“-”前和“-”后的字符，有这样的函数能直接做到吗，如果没有还可以怎么做。谢谢！！

Answer 1

如果在VB里完成replit(本厂编号,"-")(0)和replit(本厂编号,"-")(1)
如果访问Access里:left(本厂编号,instr(本厂编号,"-")-1)和mid(本厂编号,instr(本厂编号,"-")+1)
如果访问SQL Server:left(本厂编号,charindex('-',本厂编号,0)-1)和substring(本厂编号,charindex('-',本厂编号,0)+1,len(本厂编号))

Answer 2

Dim s, s1, s2 As String
s = "U1.5-10"
i% = InStr(s, "-")      ' - 在第几个字符
s1 = Left(s, i% - 1)    ' U1.5
s2 = Right(s, Len(s) - i%)   ' 10

Answer 3

dim a() as string
a = Split("U1.5-10", "-")
debug.print a(0),a(1)

Answer 4

Dim 本厂编号 As String, SubString() As String
本厂编号 = "U1.5-10"SubString = Split(本厂编号, "-")Debug.Print SubString(0)
Debug.Print SubString(1)

Answer 5

private sub SplitString (byval sCode as string ,byref lStr as string ,byref rStr as string)
    dim sTemp() as string 
    dim i as integer
    
    if len(sCode ) >0 then 
        sTemp = split(sCode ,"-")
        if ubound(sTemp)>0 then 
            lStr = Trim(sTemp(0))
            rStr = Trim(sTemp(1))
        endif
    else
        lStr =""
        rStr =""
    endif
end sub
'调用语句
dim b as string ,c as string 
SplitString "U1.5-10",b,c
msgbox b & vbcrlf & c