取字符
有一个变量“本厂编号”其中必定有字符“-”，例如"U1.5-10",现在分别要取“-”前和“-”后的字符，有这样的函数能直接做到吗，如果没有还可以怎么做。谢谢！！ --------------------编程问答-------------------- 如果在VB里完成replit(本厂编号,"-")(0)和replit(本厂编号,"-")(1)如果访问Access里:left(本厂编号,instr(本厂编号,"-")-1)和mid(本厂编号,instr(本厂编号,"-")+1)
如果访问SQL Server:left(本厂编号,charindex('-',本厂编号,0)-1)和substring(本厂编号,charindex('-',本厂编号,0)+1,len(本厂编号)) --------------------编程问答-------------------- 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 --------------------编程问答--------------------
dim a() as string--------------------编程问答-------------------- Dim 本厂编号 As String, SubString() As String
a = Split("U1.5-10", "-")
debug.print a(0),a(1)
本厂编号 = "U1.5-10"
SubString = Split(本厂编号, "-")
Debug.Print SubString(0)
Debug.Print SubString(1) --------------------编程问答--------------------
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
补充：VB , 数据库(包含打印，安装，报表)
