VB 6列表视图SUBSTRING_INDEX(Vb 6 listview substring_in

我在包含列ID VB6一个列表视图，ID的值是PID-id其中id是在我的数据库等于ID。 防爆。 PID-56，PID-57。 我想要的是当我得到列id的值，在我的列表视图第一个值，假设PID-56，我只想要ID部分等于56。

防爆。

 value=.text --> PID-56
 newvalue=56 --> PID- is not included so 56 now can be a integer.

我怎样才能去除“PID-”考虑到我在VB6中使用的ListView。

建议立即进行删除我使用什么功能？

Answer 1:

如果您知道该字符串总是开头PID-和格式永远不会改变，那么你可以使用的基本字符串处理函数之一。 在这种情况下，你可能要配对的Right功能与Len功能。 该Len函数将返回字符串的长度（字符的总数，它包含），以及Right函数将返回指定长度的字符串，从整个字符串的右侧开始。

最后，你需要使用标准值的转换中的一个字符串的值转换成数值。 在这种情况下，当然，你想要的CInt操作。

例如：

Private Function ExtractIDFromString(ByRef str As String) As Integer
    Const prefixLength As Long = 4  ' length of the "PID-" prefix

    Dim strID As String
    strID = Right$(str, Len(str) - prefixLength)

    Return CInt(strID)
End Function

文章来源: Vb 6 listview substring_index