Как сравнить две строки и заменить другой бит на - в другой строке

Question

например, у меня есть две строки 0000 и 0001, затем

         0000
         0001
         ----
result=  000-  here difference is indicated by - sign

Answer 1

Вы можете сравнить каждый символ в строке:

Dim s1 = "0000"
Dim s2 = "0001"

Dim result = ""

If s1.Length = s2.Length Then

    For a = 0 To s1.Length - 1

        If s1(a) <> s2(a) Then
            result &= "-"
        Else
            result &= s1(a)
        End If

    Next

End If

Результат = 000-