Extract char by sequence in a string vb 2010
I have a text in richtextbox1, I want to extract each 3 char of the string and so on, like:开发者_JAVA百科
richtextbox1.text = "It's Chrismas time"
Result, Sequence of 3 from Right to Left: "Isrmte"
Result, Sequence of 3 from Left to Right: "etmrsI"How can I do it ?
Code can be in C# 2010. I will translate to vb.net 2010.
How about richtextbox1.text.Where((c, i) => i % 3 == 0)
?
Or RTL: richtextbox1.text.Reverse().Where((c, i) => i % 3 == 0)
In VB: richtextbox1.text.Where(Function(c, i) i Mod 3 = 0)
However, your example does not show extracting every third character -- your example ignores whitespace, which you might do this way:
text.Where(Function(c) Not Char.IsWhiteSpace(c)).Where(Function(c, i) i Mod 3 = 0)
To take the text and put it into another textbox, you could do this:
textbox2.text = String.Join("", textbox1.text
.Where(Function(c) Not Char.IsWhiteSpace(c))
.Where(Function(c, i) i Mod 3 = 0))
Here's my test code copied directly from VS 2010:
Dim text = "It's Chrismas time"
Console.WriteLine(String.Join("",
text.Where(Function(c) Not Char.IsWhiteSpace(c)) _
.Where(Function(c, i) i Mod 3 = 0)))
精彩评论