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

■35083 / 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
                         )
    

違反を報告
削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[1]: 正規表現で文字の繰り返しパターン /shu →Re[3]: 正規表現で文字の繰り返しパターン /ポポ
 
上記関連ツリー

Nomalアイコン 正規表現で文字の繰り返しパターン / ポポ (22/06/13(Mon) 10:30) #35074
Nomalアイコン Re[1]: 正規表現で文字の繰り返しパターン / shu (22/06/16(Thu) 08:46) #35082
  ├Nomalアイコン 正規表現で文字の繰り返しパターン / shu (22/06/16(Thu) 10:00) #35083 ←Now
  │└Nomalアイコン Re[3]: 正規表現で文字の繰り返しパターン / ポポ (22/06/18(Sat) 16:01) #35086
  └Nomalアイコン Re[2]: 正規表現で文字の繰り返しパターン / ポポ (22/06/18(Sat) 15:54) #35085

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Mode/  Pass/


- Child Tree -