.NET 4.x Разбор (парсинг) текстового файла - Visual Basic .NET
Формулировка задачи:
Добрый день. помогите разобрать текстовик следующего содержания
[---HEADER---]
[RELEASE#]=102[OWNER@]=TRAIO
[---ITEM_ARRAY---]
[REC#]=1[BOX#]=1[ORDER@]=1 [ITEM#]=1[OPT_GROUP#]=99[CODE@]=4MM L
[WIDTH#.]=649.000[HEIGHT#.]=1242.000[UNIT_QTY#]=1[SHEET_QTY#]=1[*RACK@]=01/19
[REC#]=2[BOX#]=2[ORDER@]=1 [ITEM#]=2[OPT_GROUP#]=99[CODE@]=4MM L
[WIDTH#.]=579.000[HEIGHT#.]=1322.000[UNIT_QTY#]=1[SHEET_QTY#]=1[*RACK@]=01/21
[REC#]=3[BOX#]=3[ORDER@]=1 [ITEM#]=3[OPT_GROUP#]=99[CODE@]=4MM L
[WIDTH#.]=574.000[HEIGHT#.]=1322.000[UNIT_QTY#]=1[SHEET_QTY#]=1[*RACK@]=01/23
коротко о структуре
в общем структура похожа на XML,
только есть родительский тег обрамленный "[---" и "---]" ,
и обычные теги в квадратных скобках с параметром или без
данный файл я загнал в массив строк с помощью
где в каждой ячейке один тег(либо заголовок, либо обычный)
необходимо разобрать и запихнуть данный текст в структуру или набор массивов,
так как в разных блоках есть наборы данных связанные между собой
полный файл
Спойлер
Листинг программы
- Dim split As String() = optlines.Split("[")
Решение задачи: «.NET 4.x Разбор (парсинг) текстового файла»
textual
Листинг программы
- Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
- Private Sub Getit()
- Dim rc As String = Strings.StrDup(255, vbNullChar)
- GetPrivateProfileString("[---ITEM_ARRAY---]", "[REC#]", "", rc, 255, "C:\yourfile.xxx")
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д