怎样让与自已相同的字符串排在自己的后面（箭头的后面）

相见是缘8 · 发表于 2021-4-9 06:49

如：

人参→

生地黄→

熟地黄→

天门冬→

麦门冬→

白术→

……………

想要达到的效果：

人参→人参

生地黄→生地黄

熟地黄→熟地黄

天门冬→天门冬

麦门冬→麦门冬

白术→白术

……………

请老师们帮一下，谢谢！

z9bhd · 发表于 2021-4-9 08:27

Sub lx()
Dim ar, br, i%, s$
      ar = ActiveDocument.Range
      br = Split(ar, Chr(13))
      For i = 1 To UBound(br)
         If br(i) <> "" Then
            s = s & br(i) & Left(br(i), Len(br(i)) - 1) & Chr(13)
         End If
      Next i
      ActiveDocument.Range = s
End Sub

tcdatongye · 发表于 2021-4-9 10:18

查找([一-龡]@)→替换^&\1

相见是缘8 · 发表于 2021-4-9 11:03

z9bhd 发表于 2021-4-9 08:27
Sub lx()
Dim ar, br, i%, s$
ar = ActiveDocument.Range

老师好！
感谢老师援手！代码精准达愿！
老师、如字符串的后面没有箭头的，要怎样修改代码？请再指教！

相见是缘8 · 发表于 2021-4-9 11:08

tcdatongye 发表于 2021-4-9 10:18
查找([一-龡]@)→替换^&\1

老师好！
感谢援手！
老师的“表达式”厉害！也能精准达愿！
同问老师、如字符串的后面没有箭头的，要怎样修改“表达式”？请再指教！

z9bhd · 发表于 2021-4-9 13:26

相见是缘8 发表于 2021-4-9 11:03
老师好！
感谢老师援手！代码精准达愿！
老师、如字符串的后面没有箭头的，要怎样修改代码？请再指教！ ...

把箭头替换掉就可以了

z9bhd · 发表于 2021-4-9 13:34

相见是缘8 发表于 2021-4-9 11:03
老师好！
感谢老师援手！代码精准达愿！
老师、如字符串的后面没有箭头的，要怎样修改代码？请再指教！ ...

Sub lx1()
Dim ar, br, i%, s$
      ar = ActiveDocument.Range
      br = Split(ar, Chr(13))
      For i = 1 To UBound(br)
         If br(i) <> "" Then
            s = s & Left(br(i), Len(br(i)) - 1) & Left(br(i), Len(br(i)) - 1) & Chr(13)
         End If
      Next i
      ActiveDocument.Range = s
End Sub

tcdatongye · 发表于 2021-4-9 15:52

是不是替换成重复？如是，则查找([一-龡]@)→替换\1\1

相见是缘8 · 发表于 2021-4-9 16:07

tcdatongye 发表于 2021-4-9 15:52
是不是替换成重复？如是，则查找([一-龡]@)→替换\1\1

老师好！

是没有箭头的。

如:

人参
生地黄
熟地黄
天门冬
麦门冬
白术

……………

想要达到的效果:

人参人参
生地黄生地黄
熟地黄熟地黄
天门冬天门冬
麦门冬麦门冬
白术白术

……………

相见是缘8 · 发表于 2021-4-10 06:34

z9bhd 发表于 2021-4-9 13:34
Sub lx1()
Dim ar, br, i%, s$
ar = ActiveDocument.Range

老师好！
试了好像不成，想要9楼的效果，不知可否实现？

		自动登录	找回密码
密码			免费注册

[求助] 怎样让与自已相同的字符串排在自己的后面（箭头的后面）

评分