How can I segregate particular information from cell “K2” into multiple columns ?
example - “Marketplace;US”,“Product;Book”,“Marketplace;UK”,Product;Pen".
Write the above output as
Marketplace Product
US Book
UK Pen
Have a look at the generate DataTable activity
The string looks close to a csv format and we could also do some adaptions before parsing when it is needed
Dim keyValuePairs = inputText.Split(","c).
Select(Function(pair) pair.Split(";"c)).
GroupBy(Function(pair) pair(0).Trim()).
ToDictionary(Function(Group) Group.Key, Function(Group) Group.Select(Function(pair) pair(1).Trim()).ToList())
outputDataTable = New DataTable()
For Each key In keyValuePairs.Keys
outputDataTable.Columns.Add(key, GetType(String))
Next
For rowIndex = 0 To keyValuePairs.Values.Select(Function(lst) lst.Count).Max() - 1
Dim newRow = outputDataTable.Rows.Add()
For Each key In keyValuePairs.Keys
If keyValuePairs(key).Count > rowIndex Then
newRow(key) = keyValuePairs(key)(rowIndex)
End If
Next
Next
Dim keyValuePairs = inputText.Split(","c).
Select(Function(pair) pair.Split(";"c)).
GroupBy(Function(pair) pair(0).Trim()).
ToDictionary(Function(Group) Group.Key, Function(Group) Group.Select(Function(pair) pair(1).Trim()).ToList())
outputDataTable = New DataTable()
For Each key In keyValuePairs.Keys
outputDataTable.Columns.Add(key, GetType(String))
Next
For rowIndex = 0 To keyValuePairs.Values.Select(Function(lst) lst.Count).Max() - 1
Dim newRow = outputDataTable.Rows.Add()
For Each key In keyValuePairs.Keys
If keyValuePairs(key).Count > rowIndex Then
newRow(key) = keyValuePairs(key)(rowIndex)
End If
Next
Next