DOBON.NETプログラミング道掲示板

No35083 の記事


■35083 / )  Re[2]: 正規表現で文字の繰り返しパターン
□投稿者/ shu 大御所(499回)-(2022/06/16(Thu) 10:00:29)
  • アイコン
    サンプルです。
    a:元の文字列
    b:連続した文字を1文字に変換
    c:連続数の一番少ない文字に合わせて変換
    
            Dim a = "ああああいいいいううううえええお"
            Dim reg1 As New Regex("(?<c>.)\k<c>+")
    
            Dim b = reg1.Replace(a, Function(m) m.Groups("c").Value)
    
            Dim min = a.Length
            reg1.Replace(a, Function(m)
                                Dim l = m.Value.Length
                                If l < min Then
                                    min = l
                                End If
                                Return ""
                            End Function
                         )
    
            Dim c = reg1.Replace(a, Function(m)
                                        Dim l = m.Value.Length
                                        Dim c1 = m.Groups("c").Value
                                        Dim nm = l - min + 1
                                        Return New String(c1, nm)
                                    End Function
                         )
    

違反を報告
返信 削除キー/


Mode/  Pass/


- Child Tree -