用replace 替换 [ ] 里面的字符

显示全部楼层 · 2011-3-28 09:04:56

上次提问的正则表达式印象比较深刻，试着改了下，不行。。。哈哈、、
能不能继续用这条表达式来实现？
${BASE}{replace,'.*?(02E\d\d).*','电影名\1'}.${EXT}
替换前
XX[XXX]XX
XXXX
括号里的字符歌手的名字的，所以没有规律。
这代码灵活性很高，把代码改成这样就解决了。
${BASE}{replace,'\[.*?(.*?).*]',''}.${EXT}
但是有点小瑕疵就是“[”符号前面有个空格，替换后得用保留命令过滤掉。。
帮我优化下，一条命令搞定吧。

千问 · 2011-3-28 09:04:56

要替换的替换为的要替换的替换为的要替换的替换为的这里面要一一对应代码Dim nDim a() As StringPrivate Sub Command1_Click()Open "d:\1.txt" For Input As #1Do Until EOF(1)n = n + 1ReDim Preserve a(n) As StringLine Input #1, a(n)LoopCloseFor i = 1 To n Step 2Call tihuan(a(i), a(i + 1))NextEnd SubPrivate Sub tihuan(x As Str

千问 · 2011-3-28 09:04:56

用Replace Pioneer 把aa[bbb]cc重命名成aacc用以下公式：${BASE}{replace,'\s*\[.*?\]\s*',''}.${EXT}\s*的作用就是把[XXX]左右的空格都删掉。