vb.net - 我怎样才能让正则表达式拿起并显示序列的最后一部分

Question

我从某个地方复制了这段代码，但我正在尝试根据我的需要进行调整

Function ProteinSegmentation()
        Dim protein As String = "GLSDGEWQQVLNVWGKVEADIAGHGQEVLIRLFTGHPETLEKFDKFKHLKTEAEMKASEDLKKHGTVVLTALGGILKKKEGHHEAELKPLAQSHATKHKIPIKYLEFISDAIIHVLHSKHRPGDFGADAQGAMTKALELFRNDIAAKYKELGFQG"
        Dim proteinsplitter = New Regex("([K,R])")
        Dim proteinparts = proteinsplitter.Split(protein)


        Dim words As New List(Of String)
        For i = 0 To proteinparts.Length - 3 Step 3
            words.Add(proteinparts(i) & proteinparts(i + 1))
        Next
        Console.WriteLine("Here is the Protein Sequence :  ")
        Console.WriteLine(String.Join(vbCrLf, words))
End Function

现在当我运行它输出的代码时

GLSDGEWQQVLNVWGK
VEADIAGHGQEVLIR
LFTGHPETLEK
FDK
FK
HLK
TEAEMK
ASEDLK
K
HGTVVLTALGGILK
K
K
EGHHEAELK
PLAQSHATK
HK
IPIK
YLEFISDAIIHVLHSK
HR
PGDFGADAQGAMTK
ALELFR
NDIAAK
YK

但是我希望它从一开始就输出完整序列的最后 6 个字符

GLSDGEWQQVLNVWGK
VEADIAGHGQEVLIR
LFTGHPETLEK
FDK
FK
HLK
TEAEMK
ASEDLK
K
HGTVVLTALGGILK
K
K
EGHHEAELK
PLAQSHATK
HK
IPIK
YLEFISDAIIHVLHSK
HR
PGDFGADAQGAMTK
ALELFR
NDIAAK
YK
ELGFQG

但是我也没有任何调试经验，所以我不太确定如何修复它，如果你能提供帮助，谢谢

标签： vb.net