VB怎样用通配符删除字符例如文本
instr() 函数返回字符的位置
找到 共 字之后 再查找 次 字
从字符串中 去掉 共 和 次 之间 的字符
再找 找到 共 字之后 再查找 次 字
从字符串中 去掉 共 和 次 之间 的字符
循环到字符串结尾
得到一个新的字符串就不包含 共计*次 了
写好了
你看看
Private Sub Command1_Click()
Dim strTemp As String
strTemp = Text1。 Text '从text中得到字符串
Dim L As Integer
Dim i As Integer, j As Integer
Di...全部
instr() 函数返回字符的位置
找到 共 字之后 再查找 次 字
从字符串中 去掉 共 和 次 之间 的字符
再找 找到 共 字之后 再查找 次 字
从字符串中 去掉 共 和 次 之间 的字符
循环到字符串结尾
得到一个新的字符串就不包含 共计*次 了
写好了
你看看
Private Sub Command1_Click()
Dim strTemp As String
strTemp = Text1。
Text '从text中得到字符串
Dim L As Integer
Dim i As Integer, j As Integer
Dim strTemp1 As String
L = Len(strTemp) '返回字符串长度
strTemp1 = strTemp '起初将字符串strTemp全部传给字符串strTemp1
Do '进入循环
i = InStr(strTemp1, "共") '在字符串中查找 “共” 返回共字所在的位置
If i = 0 Then Exit Do '如果字符串中没有了“共” 即返回0，退出循环
j = InStr(i, strTemp, "次") '从 共 字所在的位置开始查找 次 字，返回 次子 所在的位置。
strTemp1 = Left(strTemp1, i - 1) & Mid(strTemp1, j + 1, L - j) '把 共 字前面的字符 和 次 字后面的字符 截取 从新组合成一个新的字符串，仍然这个新的字符串传给strTemp1
L = Len(strTemp1) '得到新字符串的长度
Loop
'退出循环了。
将得到的新字符串传给text2。
Text2。Text = strTemp1
End Sub
。收起
