Question

求正则去替换部分小数字点

Answer 1

选中要替换的区域，CTRL+F 调出查找替换功能，查找中输入  .   替换中输入  、 点全部替换就行了。

追问

请看仔细，我并非要把所有的小数点全部替换。

Answer 2

Private Sub CommandButton1_Click()
Dim regExp As Object
Set regExp = CreateObject("VBScript.RegExp")
regExp.Pattern = "^(\d{1,}\.){1,}"
regExp.Global = True
regExp.MultiLine = True

For Each icell In Selection
    Set a = regExp.Execute(icell.Value)
    If a.Count > 0 Then
    icell.Value = Replace(icell, a(0).Value, Replace(a(0).Value, ".", "、"))
    End If
Next

End Sub

Answer 3

正则: (?<=^\d+)\. 替换为、
关键是要使用模式修正符m（多行模式）

Answer 4

replace(/^(\d+)\./gm, "$1、");

追问

能给具体代码吗

追答

    var str = "1.asdlfkjsdf1.3ewriou\n"
        +"2.ewruiogjlkj\n"
        +"3.weoirjkdgp\n";

    var result = str.replace(/^(\d+)\./gm, "$1、");
    alert(result);

js的

追问

VBA呢？JS不知道怎么用

追答

你是在excel里用吗？

追问

对的，数据只是列举，并非所有的数据都是1.2.3三项，也有可能是1.2二项，项数不一定

追答

Private Sub CommandButton1_Click()
    Dim str As String
    Dim reg As RegExp
    Dim i As Integer
    
    Set reg = New RegExp
    reg.Pattern = "^(\d)\."
    reg.Multiline = True
    reg.Global = True
    
    For i = 1 To 10
        str = Cells(i, 1).Value
        Cells(i, 2).Value = reg.Replace(str, "$1、")
    Next i
    
End Sub

自己将for里的cells索引改成对应的行列值。

注意，要使用正则，需要在工具->引用中勾选microsoft vbscript regular expression 5.5