Dim lines = File.ReadAllLines(filepath).Select(Function(record) record.Split(";"C)).Where(Function(cell) cell.Length >= 2).GroupBy(Function(x) x(0)).Select(Function(x) x.Key + " " + String.Join(" ", x.Select(Function(y) y(1)))) File.WriteAllLines(filepath, lines)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)