Valeur de zone de texte séparée par des virgules pour la liste/tableau de chaînes - Existe-t-il un meilleur moyen d'écrire ce code?

Question

Je souhaite créer un tableau/une liste de chaînes de chaînes séparées par des virgules (extensions de fichier) saisies dans une zone de texte.

Pour le bloc de code suivant:

  Dim csv As String = Textbox1.Text + "," 

      While csv.IndexOf(".") <> -1 
       lstOfStrings.Add(csv.Substring(0, csv.IndexOf(","))) 
       csv = csv.Remove(0, csv.IndexOf(",") + 1) 
      End While 

La sortie est:

TextBox1.Text = ".exe, .php"

listOfStrings = { ".exe", " .php "}

Existe-t-il un meilleur moyen d'écrire ce code?

Answer 1

Une meilleure façon serait d'utiliser la méthode Split:

Dim lstOfStrings() As String = Textbox1.Text.Split(","c) 

Answer 2

Voici une autre façon avec Regex + LINQ. Il permet des noms de fichiers entiers, si c'est quelque chose que vous appréciez. La division est préférable en fonction du degré de conditionnement de l'entrée (espaces et autres).

using System; 
using System.Linq; 
using System.Text.RegularExpressions; 
using System.Collections.Generic; 

namespace ConsoleApplication2 
{ 
    class Program 
    { 
     static void Main(string[] args) 
     { 
      string s = "fileone.aspx, filetwo.csv,filethree.exe, filefour.php"; 
      List<string> extensions = Regex.Matches(s, @"(\.\w+)\s*,?") 
       .OfType<Match>().Select(m => m.Groups[1].Value) 
       .ToList(); 
      extensions.ForEach(i => Console.WriteLine(i)); 
      Console.ReadLine(); 
     } 
    } 
} 

SORTIE

.aspx

.csv

.exe

Afterthought

Vous pouvez ajouter .D istinct() si vous voulez des extensions uniques