指定字符在字符串中的个数以及位置数值 - 编程论坛

#2

梦幻倩影2016-12-16 10:50

InStr([start, ]string1, string2[, compare])

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

#3

gowine2016-12-16 12:43

以下是引用梦幻倩影在2016-12-16 10:50:17的发言：

InStr([start, ]string1, string2[, compare])

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

返回的字符串“1,1,1,1,0,1,0,0,1,0,1,1,0,1,1”中有5个字符“0”，如何知道每一个“0”出现的位置呢？

#4

梦幻倩影2016-12-16 15:00

还是利用这个函数，自己写段代码，将起始位置改为前一个0所在的位置，就可以查出下一个0所在位置

#5

梦幻倩影2016-12-16 15:01

或者说来个遍历字串，全显示出来

#6

不说也罢2016-12-16 18:53

程序代码：

        Dim ss As String = "1,1,1,1,0,1,0,0,1,0,1,1,0,1,1"
        Dim ii As Integer = 0
        For i As Integer = 0 To ss.Replace(",", "").Length - 1
            If ss.Replace(",", "").Substring(i, 1) = "0" Then
                ii += 1
                MsgBox("第" & i + 1 & "位是个0")
            End If
        Next
        MsgBox("一共有" & ii & "个0")

#7

gowine2016-12-17 17:09

以下是引用不说也罢在2016-12-16 18:53:02的发言：

        Dim ss As String = "1,1,1,1,0,1,0,0,1,0,1,1,0,1,1"
        Dim ii As Integer = 0
        For i As Integer = 0 To ss.Replace(",", "").Length - 1
            If ss.Replace(",", "").Substring(i, 1) = "0" Then
                ii += 1
                MsgBox("第" & i + 1 & "位是个0")
            End If
        Next
        MsgBox("一共有" & ii & "个0")

群主，谢谢你，关键时刻总能体现你的洪荒援助之手。