使用扫码枪输入时是一个完整的条码,如何只提取两个# 号之间的内容作为使用,如下图所示:
需要提取出两个#号之间的内容,即:5023058305
示例代码如下:
Sub Test()Dim strText As String '完整条形码Dim strText1 As String '条形码#号后面的内容Dim strText2 As String '不含#号的内容Dim i As Integer'完整条形码strText = "I94900/1025#5023058305#"'获得第一个#的位置i = InStr(strText, "#")'条形码#号后面的内容strText1 = Mid(strText, i + 1)'替换#号为空值strText2 = Replace(strText1, "#", "")End Sub