VB6帮修改代码如何过滤文本框中的文本（内容是试题）过滤后文本框中变为每行一道题目，其他所有全部过滤
答案:1 悬赏:0
解决时间 2021-03-09 19:04
- 提问者网友：你挡着我发光了
- 2021-03-09 16:14
VB6帮修改代码如何过滤文本框中的文本（内容是试题）过滤后文本框中变为每行一道题目，其他所有全部过滤
最佳答案
- 二级知识专家网友：神的生死簿
- 2021-03-09 16:28
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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯