Question

示例：条形码内容为1 | 123456 | 78910，但我只想检索123456 这是我的代码：目前我的代码检索所有条形码内容。

Private Sub TextVendorID_TextChanged(sender As Object, e As EventArgs) Handles 
TextVendorID.TextChanged
        Dim s As String = TextVendorID.Text
        s = Mid(s, 3, 5)

    End Sub

Answer 1

试试这个：

这段代码将完成这项工作，假设所有条形码都有三个部分用“|”分隔字符。

供应商ID的长度（我假设它是“|”字符之间的中间字符串）不相关。

您的输入字符串将根据“|”拆分为数组字符。 strSplit（0）将= 1，strSplit（1）将= 123456，strSplit（2）将= 78910。管道（“|”）将被删除。

Private Sub TextVendorID_TextChanged(sender As Object, e As EventArgs) Handles TextVendorID.TextChanged
    Try
        Dim strSplit() As String = TextVendorID.Text.Split("|")
        If strSplit.Count > 2 Then
            TextVendorID.Text = strSplit(1)
        End If
    Catch ex As Exception

    End Try
End Sub

如何从条形码扫描仪读取输入并仅显示所需内容？

1 个答案: