Delete the last two lines of char!

Question

The following code:

If checkboxList.Items(i).Selected Then 
   .Fields("DESC1").Value += checkboxList.Items(i).Text + ", "
End If

should output output such as "A, B, C, (space)", which will then be associated with dynamically generated GridView. I would like to remove the last line of two char, that is, ", (space)". How can i do this?

Answer 1

I would not add them first :) try

If checkboxList.Items(i).Selected Then    
    if .Fields("DESC1").Value Is System.DbNull.Value then
        .Fields("DESC1").Value = checkboxList.Items(i).Text
    else
        .Fields("DESC1").Value +=  ", " + checkboxList.Items(i).Text
    End If
End If

Answer 2

Take a look at String.Join , which can do what you want without having to manipulate the last two characters.

Answer 3

. ( i ), StringBuilder; ( #, VB.Net):

StringBuilder sb = new StringBuilder();
for(int i = 0 ; i < checkboxList.Items.Count ; i++) {
    if(checkboxList.Items[i].Selected) {
        if(sb.Length > 0) sb.Append(", "); // add separator
        sb.Append(checkboxList.Items[i].Text); // add text
    }
}
someOjb.Fields("DESC1") = sb.ToString(); // use result

Answer 4

, "A, B, C" "A, B, C". :

Dim input = "A, B, C, "
Dim result = input.Substring(0, input.LastIndexOf(","))

, , , , , .

, , , . , , .

Answer 5

.TrimEnd( ",".ToCharArray()) , SubString:

strLetters.Substring(0, strLetters.Length - 2)

Answer 6

.Fields("DESC1").Value += checkboxList.Items(i).Text + ", "

. Fields("DESC1").Value = .Fields("DESC1").Value.TrimRight(new []{',',' '});

PS: - , vb:)

Answer 7

"":

string k = "okay";
string s = k.Remove(k.Length - 2, 2);

Answer 8

This will remove all trailing and / or [space]:

.Fields("DESC1").Value = .Fields("DESC1").Value.TrimRight(", ".ToCharArrray()) 

Answer 9

var selectedValues = checkboxList.Items
    .Where(i => i.Selected)
    .Select(i => i.Fields("DESC1").Value);

var result = String.Join(", ", selectedValues); 

Answer 10

Does VB have a triple if statement?

If checkboxList.Items(i).Selected Then 
    .Fields("DESC1").Value += checkboxList.Items(i).Text + (i == checkboxList.Items.Length-1 ? "" : ", ")
End If