UC知道用VB怎样实现关键字的上面一行自动加序号？
来源：百度知道 编辑：UC知道 时间：2024/06/16 17:54:05
比如说，关键字是“哦买瓜”，如果全文有一段是：
呀哦额啊啊啊？哦
嚄啊，哦买瓜
的搭搭的滴读哇读哇读
哦买瓜，额。
......
处理后变成：
1．呀哦额啊啊啊？哦
嚄啊，哦买瓜
2．的搭搭的滴读哇读哇读
哦买瓜，额。
......
注意：是1．2．3．不是1.2.3，看出区别吗？那个间隔大一点的但不是标点后加空格的哦~如果这个实现不了也没多大关系啦。
首先。你们的回答都不行的。。实现不了的。
第二，现在想变成“上一段”前加序号。比上一行加序号简单了把。
呀哦额啊啊啊？哦
嚄啊，哦买瓜
的搭搭的滴读哇读哇读
哦买瓜，额。
......
处理后变成：
1．呀哦额啊啊啊？哦
嚄啊，哦买瓜
2．的搭搭的滴读哇读哇读
哦买瓜，额。
......
注意：是1．2．3．不是1.2.3，看出区别吗？那个间隔大一点的但不是标点后加空格的哦~如果这个实现不了也没多大关系啦。
首先。你们的回答都不行的。。实现不了的。
第二，现在想变成“上一段”前加序号。比上一行加序号简单了把。
...来了百度hi我 - -
***
Private Sub Command1_Click()
Dim x As String
Dim js As String
Dim n(100) As Long
Dim a(100) As String
x = Text2
n(0) = InStr(1, x, Text1)
If n(0) > 0 Then
a(0) = Mid(x, 1, n(0) - 1) & CStr(1) & "." & Text1
y = a(0)
For i = 1 To 100
n(i) = InStr(n(i - 1) + 1, x, Text1)
If n(i) > 0 Then
a(i) = Mid(x, n(i - 1) + 1, n(i) - n(i - 1) - 1) & CStr(i + 1) & "." & Text1
y = y & a(i)
Else
js = Right(x, Len(x) - n(i - 1))
y = y & js
Exit For
End If
Next i
End If
Text2 = y
End Sub
*******
''看下面, 这回完全按照你的要求了 - -!
''text1输入关键字,点按钮后,text2就会打印出你想要的东东啦!
''对了 - - 别把text1跟text2又搞反了!!
''还有,下面的C:\1.txt是你的文件路径...你根据情况自己改!
Private Sub Command1_Click()
Dim x As String
Dim n As Integer
Dim s(100) As String
Open "C:&