字串將某些字做改變

Question

請問一下

如果我有一串字串

例如

101011011

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

也就是變成

100010011

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

Answer 1

最佳解答

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

Answer 2

看你要用 and 或 xor 都可以