字串將某些字做改變

請問一下

如果我有一串字串

例如

101011011

我想將其中第二個1第四個1變成0

也就是變成

100010011

在VB6 有什麼方法可以做到呢?

2 個解答

評分
  • 1 0 年前
    最佳解答

    Private Sub Form_Load()

      Dim s As String

      s = "101011011"

      

      Mid(s, find(2, s, "1"), 1) = "0"

      Mid(s, find(3, s, "1"), 1) = "0" '原本的第2個被去掉了,所以理所當然,原本的第4個變成了第3個。

    End Sub

    Function find(index_sequence As Integer, s1 As String, s2 As String) As Integer

      Dim index_star As Integer

      index_star = 1

      

      Dim i As Integer

      For i = 1 To index_sequence

        find = InStr(index_star, s1, s2)

        If find < 1 Then Exit Function

        

        index_star = find + 1

      Next

    End Function

  • 1 0 年前

    看你要用 and 或 xor 都可以

還有問題?馬上發問,尋求解答。