Question

VB6帮修改代码如何过滤文本框中的文本（内容是试题）过滤后文本框中变为每行一道题目，其他所有全部过滤

VB6.0 如何过滤文本框1中的文本（内容是试题）过滤后文本框中变为每行一道题目内容，其他所有全部过滤

需要处理的试题文本下载： http://pan.baidu.com/s/1eQEf9AU

待处理的试题文本是这样的

希望处理后的效果是这样的

我想过滤处理后最后txtText1.text 里直接出现处理好的一题一行的内容
代码我是这么写的，但是最后文本框里出现的内容是 原来没处理的文本内容+末尾才是过滤好的一题一行的内容，请问代码如何修改能让文本框最后只显示处理好的一题一行的内容
Dim w1, w2, ww, wt, i, j
w1 =txtText1.text
ww = Split(w1, "】")
For i = 1 To UBound(ww) ''第一个不是题
w2 = Split(ww(i), ")答：")(0) ''去掉答案部分
j = InStrRev(w2, "(") ''反向找第一个(
w2 = Left$(w2, j - 1) ''得到纯题目
w1 = w1 & IIf(w1 <> "", vbCrLf, "") & w2
Next
txtText1.Text = w1





Answer 1

Private Sub Command1_Click()
Dim w1, w2, ww, wt, i, j
w1 = txtText1.Text
ww = Split(w1, "】")

w1 = ""

For i = 1 To UBound(ww) ''第一个不是题
w2 = Split(ww(i), ")答：")(0) ''去掉答案部分
j = InStrRev(w2, "(") ''反向找第一个(
w2 = Left$(w2, j - 1) ''得到纯题目
w1 = w1 & IIf(w1 <> "", vbCrLf, "") & w2
Next
txtText1.Text = w1
End Sub