Layer settings

The code below will prompt for a text file and attempt to parse the information and create layer categories in the current work part. The input file needs to have the following formatting:
{layer|layer range}:{category name}
So the input would be very similar to what is shown in your post above (note that there needs to be a colon (:) between the layer(s) and category name.

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF

Module Module1

Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()

Dim theUI As UI = UI.GetUI()
Dim lw As ListingWindow = theSession.ListingWindow

Sub Main()

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "layer categories from file")

lw.Open()

Dim openFileDialog1 As New OpenFileDialog()

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 1
openFileDialog1.RestoreDirectory = True

If openFileDialog1.ShowDialog() = DialogResult.OK Then
Dim line As String
Dim delim As Char() = {":"c}
Dim layerList As New List(Of Integer)

Using sr As IO.StreamReader = New IO.StreamReader(openFileDialog1.FileName)
'line = sr.ReadLine()
'Do While Not line Is Nothing
Do
layerList.Clear()
line = sr.ReadLine()
If IsNothing(line) Then
Exit Do
End If

If Not line.Contains(delim) Then
Continue Do
End If

Dim strings As String() = line.Split(delim)
'strings(0) = category layer range
'strings(1) = category name

Dim layers() As String = Nothing
Dim layerRangeStart As Integer = Nothing
Dim layerRangeEnd As Integer = Nothing

If strings(0).Contains("-") Then
'string represents a range of layers
'e.g. "220-250: Sketches"
layers = strings(0).Split("-"c)
Dim rangeParsed As Boolean = False
If Not Integer.TryParse(layers(0), layerRangeStart) Then
'could not parse string to integer, skip this entry
Continue Do
End If

If Not Integer.TryParse(layers(1), layerRangeEnd) Then
'could not parse string to integer, skip this entry
Continue Do
End If

For i As Integer = layerRangeStart To layerRangeEnd
layerList.Add(i)
Next

Else
'string represents a single layer
'e.g. "1: Solid"
If Not Integer.TryParse(strings(0), layerRangeStart) Then
'could not parse string to integer
Continue Do
End If

layerList.Add(layerRangeStart)

End If

'strip potentially problematic characters from the layer category name
Dim layerCatName As String = strings(1).Trim
layerCatName = Regex.Replace(layerCatName, " ", "_")
layerCatName = Regex.Replace(layerCatName, "\W", "")

If String.IsNullOrWhiteSpace(layerCatName) Then
'layer name cannot be an empty string
Continue Do
End If

'create the layer category
Dim category1 As Layer.Category
category1 = theSession.Parts.Work.LayerCategories.CreateCategory(layerCatName, "", layerList.ToArray)

'line = sr.ReadLine()
'Loop
Loop Until line Is Nothing
End Using
End If

lw.Close()

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image immediately after execution within NX
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

End Function

End Module