如何vb或JS实现从括号中提取文字，然后给提取的内容前面加自动排序的序号

Question

括号内是注释

飞雪连天射白鹿【金庸一】
笑书神侠倚碧鸳【金庸二】
--------------------------------
我希望实现的效果是

飞雪连天射白鹿[1]
笑书神侠倚碧鸳[2]

注释：
[1]金庸一
[2]金庸二
没说清楚，请看此图

Answer 1

如图所示：

窗体里放两个TextBox,两个TextBox的MultiLine属性都设置为true，一个Command按钮

Private Sub Command1_Click()

Dim temp As String, m As Integer

arr = Split(Text1.Text, vbCrLf)    Rem 获取Text1的行数

Text2.Text = ""

For m = 0 To UBound(arr) - 1

    temp = Split(Split(arr(m), "【")(1), "】")(0)    Rem 分割两次，关于split函数的使用请百度

    temp = Replace(arr(m), temp, m + 1, , , 1)

    Text2.Text = Text2.Text & temp & vbCrLf

Next m

Text2.Text = Text2.Text & "注释：" & vbCrLf

For m = 1 To UBound(arr)

    temp = Split(Split(Text1.Text, "【")(m), "】")(0)

    Text2.Text = Text2.Text & "［" & m & "］" & temp & vbCrLf

Next m

End Sub

希望可以帮到你，满意请采纳，有问题请追问^_^

追问

谢谢回答，具体的要求忘了说了，我是准备在emeditor中实现此脚本功能。

追答

C语言没学好，上面用的是VB

追问

前面说的不清除，请看下图麻烦你了。

追答

你不如直接把这段文字直接发上来

追问

谢谢，追问 数字有限制，我弄少点字。

第一章
仰望苍穹，岚烟拂筝勾勒着韵华的轮廓，墨香流霜缭绕远绝【注释一】，微忆瞬感浸透湿眶。一个人的雨季，一切都是荒芜的【注释二】，阙阙痛悔敲击着内心伶仃的单弦。

第二章

轮回在时间的画轴里，暗涌总会在灯火阑珊处翩翩飘荡【注释三】，匍匐上眉尖，默默雕凿下的印痕，斑驳流离，在我的世界里，总有一种旋律【注释四】，它已有了经年的灵性，让我时常莫名隐隐作痛。

追答

请问你这篇文章有多大啊？
用replace函数可以实现替换，instr函数可以获取一个字符串在另一个字符串中最先出现的位置

追问

文章是举个例子，我是要实现上面那种效果的。不过我只会正则，编程不会。

Answer 2

请问 文字是被放在了什么容器里呢？
因为不同的容器操作方式可能不太一样
这种转换的需求应该没什么问题追问

我是想在emeditor中替换运行（宏）。

追答

恩就是把整个文章中特定的位置的内容提取出来，然后进行处理/生成是么？

追问

嗯是的，把提出来的内容放在章节末尾，然后继续下一章重复操作

类似效果图：

追答

哦如果我没记错emeditor是个web文本编辑器 是不？

追问

不是web编辑器

如下想实现的效果

追答

恩我看了下，貌似emeditor支持 宏 应该可以通过定义宏实现对文本的处理

本回答被提问者采纳