如何删除与另一个文本框中相同的第一个字符：vb6

Question

我有2个文本框，text1和text2

我想删除text1中与text2相同的第一个字符

text1 = 1234

text2 = 12

结果

text1 = 34

Answer 1

如果你想说你有三个文本框并且它们有值：

Text1.Text = "1234"
Text2.Text = "12"

并且您希望Text3包含Text2中不常见的Text1的剩余文本：那么这就是您需要做的事情：

Text1.Text = "1234"
Text2.Text = "12"
Text3.Text = Mid(Text1.Text, InStr(Text1.Text, Text2.Text) + Len(Text2.Text))
'The value in Text3.Text will be "34"

否则，如果您希望将结果再次存储到Text1中，只需将结果分配给Text1而不是Text3

Text1.Text = Mid(Text1.Text, InStr(Text1.Text, Text2.Text) + Len(Text2.Text))
'The value in Text1.Text will be replaced with "34"